📄 list.asp.bak
字号:
<% Option Explicit %>
<!--#Include file="odbc_connection.asp"-->
<html>
<head>
<title>查看全部客户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
font-size: 14px;
}
body {
background-color: #FFFDEE;
}
-->
</style></head>
<body>
<% If session("id")="" Then
Response.Redirect "index.asp"
end if
%>
<h2 align="center">显示客户记录</h2>
<%
'先输出表格的标题栏
%>
<center>
<table border="0" width="95%">
<tr bgcolor="#FF9900" align="center">
<td width=5%>姓名</td>
<td width=10%>联系方式</td>
<td width=5%>性别</td>
<td width=30%>住址</td>
<td width=5%>年龄</td>
<td width=25%>备注</td>
<td width=20%>登记时间</td>
</tr>
<%
'建立Recordset对象
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users Order By name " '以姓名为序排列
rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针
'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息
If rs.Bof Or rs.Eof Then
Response.Write "现在还没有数据"
Else
'以下主要为了分页显示
Dim page_size '定义每页多少条记录变量
Dim page_no '定义当前是第几页变量
Dim page_total '定义总页数变量
page_size=10 '每页显示10条记录
'如果第一次打开，则page_no为1，否则由传回的参数决定
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
End If
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
'下面一段利用表格显示当前页的所有记录
Dim I
I=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾
I=I-1
'下面将利用表格输出名单
Response.Write "<tr bgcolor='#CC9933' align='center'>"
Response.Write "<td>" & rs("name") & "</td>"
Response.Write "<td>" & rs("tel") & " </td>"
Response.Write "<td>" & rs("sex") & "</td>"
Response.Write "<td>" & rs("home") & "</td>"
Response.Write "<td>" & rs("age") & "</td>"
Response.Write "<td>" & rs("intro") & "</td>"
Response.Write "<td>" & rs("submit_date") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Loop
Response.Write "</table>" '表格结束
Response.Write "<p>请选择数据页: "
'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接
For I=1 To page_total
If I=page_no Then
Response.Write I & " "
Else
Response.Write "<a href='list.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next
End If
'关闭对象
rs.Close
Set rs=nothing
db.Close
Set db=nothing
%>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -