数据分页存储过程代码

<%
　　'平台：Win2000+IIS5.0+Sql2000
　　'附言：升级上一次版本，上一次版为SQL版本，没有利用上存储过程
　　'上一版本 :[原创]优秀的数据分页代码——(忙乎了半天)(http://bbs.bc-cn.net/dispbbs.asp?BoardID=10&ID=175543)
　　'----------------------------------------以下代码为网页代码
　　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 "

admin 管理员组

分享到：