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

作者：简简单单 2010-11-05

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<= 1 then
        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
%>