一款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("<br/><table class='table'><form method='get' onsubmit=""document.location = '"&action&"?"&temp&"page='+ this.page.value;return false;""><tr><td align='center'>")
    if page<= 1 then
        response.write ("首页 上一页 ")
    else
        response.write("<a href='"&action&"?"&temp&"page=1'>首页</a> <a href='"&action&"?"&temp&"page="&(page -1)&"'>上一页</a> ")
    end if
    if page>= maxpage then
        response.write ("下一页 尾页 ")
    else
        response.write("<a href='"&action&"?"&temp&"page="&(page+1)&"'>下一页</a> <a href='"&action&"?"&temp&"page="&maxpage&"'>尾页</a> ")
    end if
    response.write("["&page&"/"&maxpage&"页] [共"&allpage&"条记录] 转到第 <input type='text' name='page' size='3' value='"&page&"'> 页 <input type='submit' value='跳转'/></td></tr></form></table>")
end sub
%>