一款asp分页程序（支持跳转与输入数字）

sub pcfinal_page
action = "http://" & request.servervariables("http_host") & request.servervariables("script_name")
query = split(request.servervariables("query_string"), "&")
for each x in query
a = split(x, "=")
if strcomp(a(0), "page", vbtextcompare) 0 then
temp = temp & a(0) & "=" & a(1) & "&"
end if
next
response.write("

") if page response.write ("首页 上一页 ") else response.write(" ") end if if page>= maxpage then response.write ("下一页 尾页 ") else response.write(" ") end if response.write("["&page&"/"&maxpage&"页] [共"&allpage&"条记录] 转到第 页

")
end sub
%>