一款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
%>