<%=WebContent()%>
<%=CopyRight%>
<%=IcpNumber%>
<%
Function WebContent()
Dim rs, sql
Dim idCount
Dim pages
pages = 20
Dim pagec
Dim page
page = CLng(request("Page"))
Dim pagenc
pagenc = 5
Dim pagenmax
Dim pagenmin
Dim pageprevious
Dim pagenext
Dim datafrom
datafrom = "zx_News"
Dim datawhere
datawhere = " "
Dim sqlid
Dim Myself, PATH_INFO, QUERY_STRING
PATH_INFO = request.servervariables("PATH_INFO")
QUERY_STRING = request.ServerVariables("QUERY_STRING")'
If QUERY_STRING = "" Then
Myself = PATH_INFO & "?"
ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then
Myself = PATH_INFO & "?" & QUERY_STRING & "&"
Else
Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1)
End If
Dim taxis
taxis = "order by id desc "
Dim i
sql = "select count(ID) as idCount from ["& datafrom &"]"
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 0, 1
idCount = rs("idCount")
If(idcount>0) Then
If(idcount Mod pages = 0)Then
pagec = Int(idcount / pages)
Else
pagec = Int(idcount / pages) + 1
End If
sql = "select id from ["& datafrom &"] " & datawhere & taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
rs.pagesize = pages
If page < 1 Then page = 1
If page > pagec Then page = pagec
If pagec > 0 Then rs.absolutepage = page
For i = 1 To rs.pagesize
If rs.EOF Then Exit For
If(i = 1)Then
sqlid = rs("id")
Else
sqlid = sqlid &","&rs("id")
End If
rs.movenext
Next
End If
If(idcount>0 And sqlid<>"") Then
sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 0, 1
Response.Write "