?? conn.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%Server.ScriptTimeOut=5000%>
<%
Response.Buffer = True
Dim Startime,db
Dim SqlNowString,Conn
dim er
Const IsSqlDataBase = 0 '定義數(shù)據(jù)庫類別,1為SQL數(shù)據(jù)庫,0為Access數(shù)據(jù)庫
Startime = Timer()
dim Rs
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
'sql數(shù)據(jù)庫連接參數(shù):數(shù)據(jù)庫名、用戶密碼、用戶名、連接名(本地用local,外地用IP)
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "yuaner"
SqlPassword = ""
SqlUsername = "yuaner"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else '用戶第一次使用請修改本處數(shù)據(jù)庫地址并相應(yīng)修改data目錄中數(shù)據(jù)庫名稱
Db = "data/data.asp"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "The Sever Is Busy,Please to try again..."
Response.End
End If
End Sub
Function GrateRs(SqlStr,wr)
dim Rs
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open SqlStr, Conn, 1, wr
set GrateRs=Rs
End Function
Function ReplStr(s)
s=Replace(s,"'","’")
s=Replace(s,"%","%")
s=Replace(s,"&","&")
s=Replace(s,"<","<")
s=Replace(s,">",">")
s=replace(s,chr(13)+chr(10),"<br>")
s=Replace(s," "," ")
ReplStr=s
End Function
Sub DBConnEnd()
On Error Resume Next
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -