Ë­ÄܸæËßÎÒÕâ¸ö·ÖҳЧ¹ûµÄ´úÂëÊÇÔõôµ÷ÓõÄѽ?¸ßÊÖ°ï°ïæ¿©

Ì«ÑôÉñ

<%
function showpage(pagecount,pagesize,page,resultcount)
Dim query, a, x, temp
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("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+this.page.value;return false;"">")
if page<=1 then
Response.Write ("[Ê×Ò³] [ÉÏÒ»Ò³] ")
else
Response.Write("[<a href=" & action & "?" & temp & "Page=1>Ê×Ò³</a>] ")
Response.Write("[<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">ÉÏÒ»Ò³</a>] ")
end if
if page>=pagecount then
Response.Write ("[ÏÂÒ»Ò³] [βҳ]")
else
Response.Write("[<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">ÏÂÒ»Ò³</a>] ")
Response.Write("[<a href=" & action & "?" & temp & "Page=" & pagecount & ">βҳ</a>]")
end if
Response.Write("[Ò³´Î:<font color=red>" & page & "</font>/" & pageCount)
Response.Write("] [¹²" & resultcount & "Ìõ <font color=red>"& pagesize & "</font>Ìõ/Ò³]")
Response.Write(" תµ½" & "<input name=page size=4 value=" & page & ">" & "Ò³<input type=submit value=go>")
End function
%>
Õâ¸öÊÇÎÒÕÒÀ´µÄ,µ«ÊDz»»áÓÃ,ºÇºÇ,»áµÄ˵Ŷ,л¹þ!

Èý¿Å²ÐÑÀ

¶÷,ÎÒÊÔÊÔ,лŶ

...»ðºüÀê```

µ÷ÓÃ<%call showpage(pagecount,pagesize,page,resultcount)%>
pagecount,pagesize,page,resultcountÕâËĸö±äÁ¿Äã¿ÉÒÔÔÚ·ÖÒ³µÄʱºò¸³ÓèËûÃÇÖµ¡£