<%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "SEOEdu"
SqlPassword = "Tempuser8898Tempuser%"
SqlUsername = "Tempuser"
SqlLocalName = "211.144.157.47"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
set Conn = server.CreateObject("ADODB.Connection")
Conn.open Connstr
set rs = server.CreateObject("adodb.recordset")
SQL="Select * FROM ResourceLink where SrvFlag =1 Order By StarFlag DESC"
Set rs=Server.CreateObject("Adodb.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("
暂无记录
")
else
dim MaxPageSize,rCount,PageNum,Dr,Rows,Url,PageCount1,i
Url = ""
MaxPageSize = 100
rCount = rs.recordcount
If (rCount Mod MaxPageSize) = 0 Then
PageCount1 = rCount \ MaxPageSize
Else
PageCount1 = (rCount \ MaxPageSize)+1
End If
if request.querystring("page") = "" or CInt(request.querystring("page")) > PageCount1 then
PageNum = 1
else
PageNum = request.querystring("page")
end if
if PageNum>1 then rs.AbsolutePosition=rs.AbsolutePosition+((abs(PageNum)-1)*MaxPageSize)
Dr = rs.GetRows(MaxPageSize)
Rows = ubound(Dr,2)
for i=0 to Rows
'Response.Write(dr(1,i))
Response.Write("
")
Next
end if
%>