📄 index.asp
字号:
<%
set conn = Server.CreateObject("ADODB.Connection")
Conn.Open("driver={SQL Server};database=pubs;"&_
"server=localhost;uid=sa;pwd=")
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM txl ORDER BY tID DESC"
rs.Open sql, conn, 3
rs.PageSize = 1
'第一次显示没有页码，默认显示第一页
If Request("page") <> "" Then
iPage = Cint(Request("page"))
If iPage < 1 Then iPage = 1 '页码小于1，则显示第一页
'当大于总页数的时候，显示最后一页
If iPage > rs.PageCount Then iPage = rs.PageCount
Else
iPage = 1
End If
Response.Write("当前第" & iPage & "页，共" & rs.PageCount & "页")
rs.AbsolutePage = iPage
%>
<HTML>
<HEAD> <TITLE>通讯录</TITLE> </HEAD>
<BODY>
<P ALIGN="CENTER"><FONT SIZE="7" COLOR="#008000">通讯录</FONT></P>
<P ALIGN="LEFT"><A HREF="DO_ADD.ASP">添加</A></P>
<%
For I = 0 To rs.PageSize-1
If rs.EOF OR rs.BOF Then Exit For
%>
<TABLE BORDER="1" CELLSPACING="1" BORDERCOLOR="#111111" WIDTH="100%">
<TR>
<td width="25%">姓名</td>
<td width="25%"><%=rs("tName")%></td>
<td width="25%">手机号码:</td>
<td width="25%"><%=rs("tMobile")%></td>
</tr>
<tr>
<td width="25%">电子邮件</td>
<td width="25%">
<a href="mailto:<%=rs("tEmail")%>"><%=rs("tEmail")%></a></td>
<td width="25%">住宅电话:</td>
<td width="25%"><%=rs("tHomePhone")%></td>
</tr>
<tr>
<td width="25%">备注</td>
<td width="25%"> </td>
<td width="25%"> </td>
<td width="25%"> </td>
</tr>
<tr>
<td width="100%" colspan="4"><%=rs("tMemo")%></td>
</TR>
</TABLE>
<BR><HR><BR>
<%
rs.movenext()
Next
%>
<BR>
<%'当前是第一页的时候，不显示"第一页"
If iPage <> 1 Then %>
<A HREF="index.asp?page=1">第一页</A>
<A HREF="index.asp?page=<%=iPage - 1 %>">上一页</A>
<% End If
'当前是最后一页的时候，不显示"最后页"
IF iPage <> rs.PageCount Then %>
<A HREF="index.asp?page=<%=iPage+1%>">下一页</A>
<A HREF="index.asp?page=<%=rs.pageCount%>">最后页</A>
<% End If
conn.close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -