functionedit.asp

结合了某度和AH的个人主页 功能比较完整

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