国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP常用函數(shù)收集

2024-05-04 11:06:46
字體:
供稿:網(wǎng)友

Oledb方式打開SQL數(shù)據(jù)連接
Sub OpenSqlByOledb 
   on error resume next
   set conn=server.createobject("adodb.connection")
   conn.open "Provider=SQLOLEDB.1;Password='sa';Persist Security Info=true;User ID=sa;Initial Catalog=gate;Data Source=(local);"
   If err.number<>0 Then
    err.clear
    Response.Write("<div align='center'>數(shù)據(jù)庫連接出錯,請聯(lián)系管理員!</div>")
    Response.End()
   End If
End Sub

'數(shù)據(jù)庫操作相關(guān)函數(shù)
'************************************************************
'[Sub]openReadRs rs,sql,oType
'功能:打開對應(yīng)類型的數(shù)據(jù)集,只讀操作
'參數(shù):
'    rs 打開的rs集合
'    sql 執(zhí)行的SQL語句
'************************************************************
Sub openReadRs(rs,sql)
 If Not IsObject(rs) Then
  Set rs=Server.CreateObject("ADODB.Recordset")
  rs.open sql,conn,1,1  
 End If
End Sub
'************************************************************
'[Sub]openWriteRs rs,sql
'功能:打開對應(yīng)類型的數(shù)據(jù)集,可寫入操作
'參數(shù):
'    rs 打開的rs集合
'    sql 執(zhí)行的SQL語句
'************************************************************
Sub openWriteRs(rs,sql)
 If Not IsObject(rs) Then
  Set rs=Server.CreateObject("ADODB.Recordset")
  rs.open sql,conn,1,3
 End If
End Sub
'************************************************************
'[Sub]endRs rs
'功能:關(guān)閉對應(yīng)類型的數(shù)據(jù)集
'參數(shù):
'    rs 打開的rs集合
'************************************************************
Sub endRs(rs)
 If IsObject(rs) Then
  rs.close:Set rs=Nothing
 End If
End Sub
'************************************************************
'[Sub]endConn
'功能:關(guān)閉數(shù)據(jù)庫連接
'參數(shù):無
'************************************************************
Sub endConn
 If IsObject(conn) Then
  conn.close:Set conn=Nothing
 End If
End Sub
'************************************************************
'[Sub]execSql sql
'功能:執(zhí)行SQL語句
'參數(shù):
'    sql 執(zhí)行的SQL語句
'************************************************************
Sub execSql(sql)
 conn.execute(sql)
End Sub
'************************************************************
'[]selectAlone sql
'功能:單一字段查詢
'參數(shù):
'    sql 執(zhí)行的SQL語句
'返回:查詢字段值
'************************************************************
selectAlone(sql)
 Dim selectAloneRs
 Set selectAloneRs=conn.execute(Sql)
 selectAlone=selectAloneRs(0)
 endRs selectAloneRs
End

 

'字符串操作相關(guān)函數(shù)
'************************************************************
'[]IsSafeStr str
'功能:判斷是否安全字符串,在注冊登錄等特殊字段中使用
'參數(shù):
'    str 需檢測的字符串
'返回:true=安全,false=不安全
'************************************************************
IsSafeStr(str) 
 Dim s_BadStr, n, i
 s_BadStr = "'   &<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)
 n = Len(s_BadStr)
 IsSafeStr = True
 For i = 1 To n
  If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then
   IsSafeStr = False
   Exit 
  End If
 Next
End 
'************************************************************
'[]HtmlToEncode str
'功能:將HTML編碼
'參數(shù):
'    str 需編碼的字符串
'返回:編碼后的字符串
'************************************************************
HtmlToEncode(str) '
 if not isnull(str) and str<>"" then
  str = Replace(str,"&","&amp;") 
  str = replace(str, ">", "&gt;")
  str = replace(str, "<", "&lt;")
  str = Replace(str, CHR(32), " ")
  str = Replace(str, CHR(9), "&nbsp;")
  str = Replace(str, CHR(34), "&quot;")
  str = Replace(str, CHR(39), "&#39;")
  str = Replace(str, CHR(13), "")
  str = Replace(str, "", "&#115;cript")
  str = Replace(str, "&#115;", "&#115;")
  HtmlToEncode = str
 end if
End 
'************************************************************
'[]EncodeToHtml str
'功能:將HTML反編碼
'參數(shù):
'    str 需反編碼的字符串
'返回:反編碼后的字符串
'************************************************************
EncodeToHtml(str)
 if not isnull(str) and str<>"" then
  str = Replace(str,"&amp;","&") 
  str = replace(str, "&gt;", ">")
  str = replace(str, "&lt;", "<")
  str = Replace(str, " ", CHR(32))
  str = Replace(str, "&nbsp;", CHR(9))
  str = Replace(str, "&quot;", CHR(34))
  str = Replace(str, "&#39;", CHR(39))
  str = Replace(str, "", CHR(13))
  str = Replace(str, "&#115;cript", "")
  str = Replace(str, "&#115;", "&#115;")
  EncodeToHtml = str
 end if
End 
'************************************************************
'[]gotTopic str,strlen
'功能:截取字符串strlen長度,漢字算2長度
'參數(shù):
'    str 需截取的字符串
'    strlen 截取長度
'返回:截取strlen長度后的字符串
'************************************************************
getTopic(str,strlen)
 if str="" then
  gotTopic=""
  exit 
 end if
 dim l,t,c, i
 l=len(str)
 t=0
 for i=1 to l
  c=Abs(Asc(Mid(str,i,1)))
  if c>255 then
   t=t+2
  else
   t=t+1
  end if
  if t>=strlen then
   gotTopic=left(str,i) & "…"
   exit for
  else
   gotTopic=str
  end if
 next
End 
'************************************************************
'[]DateFormatTime Tvar,sType
'功能:時間格式化
'參數(shù):
'    Tvar 需要格式化的時間字符串
'    sType 格式化類型
'返回:格式化后的時間字符串
'************************************************************
DateFormatTime(Tvar,sType)
 dim Tt,sYear,sMonth,sDay,sHour,sMinute,sSecond
 If Not IsDate(Tvar) Then DateFormatTime = "" : Exit 
 Tt   = Tvar
 sYear  = Year(Tt)
 sMonth = Right("0" & Month(Tt),2)
 sDay  = Right("0" & Day(Tt),2)
 sHour  = Right("0" & Hour(Tt),2)
 sMinute = Right("0" & Minute(Tt),2)
 sSecond = Right("0" & Second(Tt),2)
 Select Case sType
  Case 1 '2006-3-13
   DateFormatTime = sYear & "-" & sMonth & "-" & sDay
  Case 2 '2006年3月13日
   DateFormatTime = sYear & "年" & sMonth & "月" & sDay & "日"
  case 3  '200603131120123
   DateFormatTime = sYear & sMonth & sDay & sHour & sMinute &sSecond
  Case Else
   DateFormatTime = Tt
  End Select
End 
'************************************************************
'[]IsNum str
'功能:是否為數(shù)字
'參數(shù):
'    str 需要判斷的字符串
'返回:true=數(shù)字,false=非數(shù)字
'************************************************************
IsNum(Str) '
 if Str<>"" and isnumeric(Str) then
  IsNum=True
 else
  IsNum=False
 end if
End

 

'輸出調(diào)試相關(guān)函數(shù)
'************************************************************
'[Sub]mesGoBack str
'功能:彈出信息并返回
'參數(shù):
'    str 需要判斷的字符串
'************************************************************
Sub mesGoBack(str)
 Response.write("< language='java'>alert('"&str&"');history.back();</>")
 Response.End()
End Sub
'************************************************************
'[Sub]mesGoUrl str,url
'功能:彈出信息并返回
'參數(shù):
'    str 需要判斷的字符串
'    url 跳轉(zhuǎn)地址
'************************************************************
Sub mesGoUrl(str,url)
 Response.write("< language='java'>alert('"&str&"');location.href='"&url&"';</>")
 Response.End()
End Sub
'************************************************************
'[Sub]Debug Wrong
'功能:調(diào)試輸出
'參數(shù):
'    Wrong 希望輸出信息
'返回:無返回值
'************************************************************
Sub Debug(Wrong) '調(diào)試輸出
 Response.Write(Wrong)
 Response.End()
End Sub

 

'功能相關(guān)函數(shù)
'************************************************************
'[]getIP
'功能:獲取用戶IP
'參數(shù):
'   無
'返回:用戶當(dāng)前IP
'************************************************************
getIP()
 Dim userip
 userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
 If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 
 getIP=userip
End 
'************************************************************
'[]getUrl
'功能:獲取當(dāng)前域名
'參數(shù):
'    無
'返回:當(dāng)前域名
'************************************************************
getUrl()
 getUrl=Request.ServerVariables("Server_name")
End

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 华容县| 仁怀市| 柏乡县| 凉城县| 弋阳县| 崇义县| 蛟河市| 梓潼县| 南昌市| 青冈县| 商南县| 凤山市| 寻乌县| 闽清县| 陇川县| 仁化县| 永仁县| 康平县| 阿尔山市| 商水县| 河池市| 东明县| 岳阳市| 苏尼特左旗| 二手房| 田阳县| 阿图什市| 仙游县| 石狮市| 道孚县| 旬邑县| 彰化县| 桦甸市| 平安县| 汉中市| 东阳市| 大竹县| 武汉市| 环江| 拉萨市| 平昌县|