?? function.asp
字號:
<%
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'> "
Response.write "<strong>共</font>" & "<font color=#FF0000>" & Cstr(rs.RecordCount) & "</font>" & "<font color='#000000'>條記錄</font></strong> "
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong> "
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> "
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一頁</font></strong> "
End if
Response.write "</td>"
Response.write "</tr></table>"
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -