Oledb方式打開SQL數據連接
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'>數據庫連接出錯,請聯繫管理員!</div>)
Response.End()
End If
End Sub
'數據庫操作相關函數
'************************************************* ***********
'[Sub]openReadRs rs,sql,oType
'功能:打開對應類型的數據集,只讀操作
'參數:
' rs 打開的rs集合
' sql 執行的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
'功能:打開對應類型的數據集,可寫入操作
'參數:
' rs 打開的rs集合
' sql 執行的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
'功能:關閉對應類型的數據集
'參數:
' rs 打開的rs集合
'************************************************* ***********
Sub endRs(rs)
If IsObject(rs) Then
rs.close:Set rs=Nothing
End If
End Sub
'************************************************* ***********
'[Sub]endConn
'功能:關閉數據庫連接
'參數:無
'************************************************* ***********
Sub endConn
If IsObject(conn) Then
conn.close:Set conn=Nothing
End If
End Sub
'************************************************* ***********
'[Sub]execSql sql
'功能:執行SQL語句
'參數:
' sql 執行的SQL語句
'************************************************* ***********
Sub execSql(sql)
conn.execute(sql)
End Sub
'************************************************* ***********
'[]selectAlone sql
'功能:單一字段查詢
'參數:
' sql 執行的SQL語句
'返回:查詢字段值
'************************************************* ***********
selectAlone(sql)
Dim selectAloneRs
Set selectAloneRs=conn.execute(Sql)
selectAlone=selectAloneRs(0)
endRs selectAloneRs
End
'字符串操作相關函數
'************************************************* ***********
'[]IsSafeStr str
'功能:判斷是否安全字符串,在註冊登錄等特殊字段中使用
'參數:
' 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編碼
'參數:
' str 需編碼的字符串
'返回:編碼後的字符串
'************************************************* ***********
HtmlToEncode(str)'
if not isnull(str) and str<> then
str= Replace(str,&,&)
str = replace(str, >, >)
str = replace(str, <, <)
str = Replace(str, CHR(32), )
str = Replace(str, CHR(9), )
str = Replace(str, CHR(34), ")
str = Replace(str, CHR(39), ')
str = Replace(str, CHR(13), )
str = Replace(str, , script)
str = Replace(str, ＆#115;, s)
HtmlToEncode = str
end if
End
'************************************************* ***********
'[]EncodeToHtml str
'功能:將HTML反編碼
'參數:
' str 需反編碼的字符串
'返回:反編碼後的字符串
'************************************************* ***********
EncodeToHtml(str)
if not isnull(str) and str<> then
str= Replace(str,&,&)
str = replace(str, >, >)
str = replace(str, <, <)
str = Replace(str, , CHR(32))
str = Replace(str, , CHR(9))
str = Replace(str, ", CHR(34))
str = Replace(str, ', CHR(39))
str = Replace(str, , CHR(13))
str = Replace(str, script, )
str = Replace(str, s, ＆#115;)
EncodeToHtml = str
end if
End
'************************************************* ***********
'[]gotTopic str,strlen
'功能:截取字符串strlen長度,漢字算2長度
'參數:
' 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
'功能:時間格式化
'參數:
' 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
'功能:是否為數字
'參數:
' str 需要判斷的字符串
'返回:true=數字,false=非數字
'************************************************* ***********
IsNum(Str) '
if Str<> and isnumeric(Str) then
IsNum=True
else
IsNum=False
end if
End
'輸出調試相關函數
'************************************************* ***********
'[Sub]mesGoBack str
'功能:彈出信息並返回
'參數:
' str 需要判斷的字符串
'************************************************* ***********
Sub mesGoBack(str)
Response.write(< language='java'>alert('&str&');history.back();</>)
Response.End()
End Sub
'************************************************* ***********
'[Sub]mesGoUrl str,url
'功能:彈出信息並返回
'參數:
' str 需要判斷的字符串
' url 跳轉地址
'************************************************* ***********
Sub mesGoUrl(str,url)
Response.write(< language='java'>alert('&str&');location.href='&url&';</>)
Response.End()
End Sub
'************************************************* ***********
'[Sub]Debug Wrong
'功能:調試輸出
'參數:
' Wrong 希望輸出信息
'返回:無返回值
'************************************************* ***********
Sub Debug(Wrong)'調試輸出
Response.Write(Wrong)
Response.End()
End Sub
'功能相關函數
'************************************************* ***********
'[]getIP
'功能:獲取用戶IP
'參數:
' 無
'返回:用戶當前IP
'************************************************* ***********
getIP()
Dim userip
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
If userip = Then userip = Request.ServerVariables(REMOTE_ADDR)
getIP=userip
End
'************************************************* ***********
'[]getUrl
'功能:獲取當前域名
'參數:
' 無
'返回:當前域名
'************************************************* ***********
getUrl()
getUrl=Request.ServerVariables(Server_name)
End