優秀的數據分頁存儲過程代碼(ver2.0)

'----------------------------------------以下代碼爲網頁代碼

Response.Buffer = True
Dim SqlLocalName,SqlUsername,SqlPassword,SqlDatabaseName
Dim ConnStr,Conn
'''''''''''''''''''''''''''''''''SQL數據庫 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SqlLocalName ="(local)" '連接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '數據庫用戶名
SqlPassword ="XXXXXX" '用戶密碼
SqlDatabaseName="NewsTable" '數據庫名
ConnStr ="Provider=Sqloledb;User ID=" & SqlUsername &"; Password=" & SqlPassword &"; Initial Catalog =" & SqlDatabaseName &"; Data Source=" & SqlLocalName &";"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open ConnStr

　　If Err Then
　　err.Clear
Set Conn = Nothing
Response.Write"

數據庫連接出錯，請檢查數據庫連接字串