function.asp

泡泡堂单机版（含ASL游戏引擎源码）

<%
Dim i,text,checkpage,page,MaxPerPage,CurrentPage
Sub showpage
Response.Write "<table width='98%' border='0' cellpadding='0' cellspacing='0' align='center'>"
Response.Write "<tr> "
Response.Write "<td height='25' colspan='5' align='center'>&nbsp;&nbsp; "
Response.write "<strong>共</font>" & "<font color=#FF0000>" & Cstr(rs.RecordCount) & "</font>" & "<font color='#000000'>条记录</font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong>&nbsp;"

If currentpage > 1 Then
response.write "<strong><a href='User_LN.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
Response.write "<strong><a href='User_LN.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
Else
Response.write "<strong><font color='#000000'>上一页 </font></strong>"
End if

If currentpage < rs.PageCount Then
Response.write "<strong><a href='User_LN.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='User_LN.asp?page="+Cstr(rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong>&nbsp;&nbsp;"
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一页</font></strong>&nbsp;&nbsp;"
End if
Response.write "</td>"
Response.write "</tr></table>"
End Sub

%>