電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR ariables("script name") f counter=lo Then End If ref="<a href="& scriptName whichPage="& counter ref=ref &"> pad counter &"</a> f counter Mod 10=0 Then Next </td> <form method="post" action="output pagers. asp"> If whichPage>I Then 第一页 nput name=" pageAction"type=" submit" value="上一页"> If cint( which Page)<cint( maxPage) Then < Input name=" page Action"type=" submit" value="下一页"> < Input name=" pageAction"type=" submit" value="末一页"> End If End If </td> </u>pad="0" scriptName=Request.ServerVariables("script_name") For counter=1 To maxPage If counter>=10 Then pad="" End If ref="<a href=" & scriptName & "?whichPage=" & counter &"" ref=ref & ">" & pad & counter & "</a>" Response.Write ref & " " If counter Mod 10 = 0 Then Response.Write "<br>" End If Next %> </td> </tr> </table> <form method="post" action="output_pagers.asp"> <table> <tr> <td> <% If whichPage>1 Then %> <input name="pageAction" type="submit" value="第一页"> <input name="pageAction" type="submit" value="上一页"> <% End If If cint(whichPage) <> cint(maxPage) Then %> <input name="pageAction" type="submit" value="下一页"> <input name="pageAction" type="submit" value="末一页"> <% End If End If End If %> </td> </tr>