% Call SiteInfo() If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If If request.QueryString("SortID") = "" Then SeoTitle = "新闻动态" ElseIf Not IsNumeric(request.QueryString("SortID")) Then SeoTitle = "参数错误" ElseIf conn.Execute("select * from Qianbo_NewsSort Where ViewFlag and ID="&request.QueryString("SortID")).EOF Then SeoTitle = "参数错误" Else Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_NewsSort where ViewFlag and ID="&request.QueryString("SortID") rs.Open sql, conn, 1, 1 SeoTitle = rs("SortName") rs.Close Set rs = Nothing End If %>
"&vbCrLf
Response.Write "共"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条记录" & vbCrLf
pagenmin = page - pagenc
pagenmax = page+pagenc
If(pagenmin<1) Then pagenmin = 1
If ISHTML = 1 Then
If ID = "" Then
If(page>1) Then response.Write ("9 ")
Else
If(page>1) Then response.Write ("9 ")
End If
Else
If(page>1) Then response.Write ("9 ")
End If
If page - (pagenc * 2 + 1)<= 0 Then
pageprevious = 1
Else
pageprevious = page - (pagenc * 2 + 1)
End If
If ISHTML = 1 Then
If ID = "" Then
If(pagenmin>1) Then response.Write ("3 ")
Else
If(pagenmin>1) Then response.Write ("3 ")
End If
Else
If(pagenmin>1) Then response.Write ("3 ")
End If
If(pagenmax>pagec) Then pagenmax = pagec
For i = pagenmin To pagenmax
If(i = page) Then
response.Write (" "& i &" ")
Else
If ISHTML = 1 Then
If ID = "" Then
response.Write ("["& i &"]")
Else
response.Write ("["& i &"]")
End If
Else
response.Write ("["& i &"]")
End If
End If
Next
If page+(pagenc * 2 + 1)>= pagec Then
pagenext = pagec
Else
pagenext = page+(pagenc * 2 + 1)
End If
If ISHTML = 1 Then
If ID = "" Then
If(pagenmax | "&vbCrLf
Response.Write "