'分页 p当前页数 c数页数 u要传梯的参数:如?c=5&a=2
Sub revPage(p,c,u)
Dim t
t=Int((p-1)/10)*10+1
Response.Write("<div class='page'>")
If p=1 Then
Response.Write(" 首页")
Response.Write(" 上页")
Else
Response.Write(" <a href='"&u&"&p=1'>首页</a>")
Response.Write(" <a href='"&u&"&p="&p-1&"'>上页</a>")
End If
If p=c Then
Response.Write(" 下页")
Response.Write(" 尾页")
Else
Response.Write(" <a href='"&u&"&p="&p+1&"'>下页</a>")
Response.Write(" <a href='"&u&"&p="&c&"'>尾页</a>")
End If
Response.Write("<div>")
Response.Write(" 分页 "&p&"/"&c)
If p<=10 Then
Response.Write(" <<")
Else
Response.Write(" <a href='"&u&"&p="&t-10&"'><<</a>")
End If
For i=t To t+9
If i>c Then Exit For
If i=p Then
Response.Write(" "&i)
Else
Response.Write(" <a href='"&u&"&p="&i&"'>"&i&"</a>")
End If
Next
If t+10<c Then
Response.Write(" <a href='"&u&"&p="&t+10&"'>>></a>")
Else
Response.Write(" >>")
End If
Response.Write("</div></div>")
End Sub
%>