save.asp

ASP入门与提高实用教程 源文件(上传网站)

<%
private sub select_page(page_no,total_page)
'该子程序依次写出各页页码，并将非当前页设置超链接，当前页则不设置
Response.Write "请选择页码:"
Dim x
for x=1 to total_page
If x=page_no Then
Response.Write x & "&nbsp"
Else
Response.Write "<a href='index.asp?page_no=" & x & "'>" & x & "</a>&nbsp"
End If
next
End sub
%>