function.asp

来自「搜搜搜软件自动更新引擎每天每隔30分种自动从指定网站更新当日最新更新的软件、源码」· ASP 代码 · 共 13 行

<%
private sub select_page(p,total_page)
Response.Write "<span style='font-size: 9pt'><font color=#009933>100/页, PAGES：</font>	"
Dim I
for I=1 to total_page
If I=p Then
Response.Write I & "&nbsp"
Else
Response.Write "<span style='font-size:9pt'><a href='index.asp?p=" & I & "'>" & I & "</a>&nbsp</span>"
End If
Next
End sub
%>