📄 show.asp
字号:
<!--#Include File=conn.asp -->
<%
Name=request.form("Name") '接收查询输入的“姓名”查询关键字
SqlStr="select * from userlist where 1=1 "
if Name<>"" then '如果输入的查询关键字不为空，则按关键字模糊查询记录内容
SqlStr=SqlStr & " AND 姓名 LIKE '%" & Name & "%'"
end if
SqlStr=SqlStr & " Order by Id" '将查询结果按照Id编号升序排列
Set Rs = Conn.Execute(SqlStr) '执行查询语句，并将查询结果返回给记录集对象Rs
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>通讯录列表</title>
</head>
<body>
<center>
<p align="center"></center><b>通讯录名单</b>
<table border="1" borderColorDark="#ffffff" borderColorLight="#848284" cellSpacing="0" width="100%" vAlign="top">
<tbody>
<tr>
<td align="middle" width="12%" bgcolor="#D6D3CE">姓名</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">性别</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">出生日期</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">电话</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">地址</td>
<td align="middle" width="13%" bgcolor="#D6D3CE">Email</td>
<td align="middle" width="13%" bgcolor="#D6D3CE">修改</td>
<td align="middle" width="13%" bgcolor="#D6D3CE">删除</td>
</tr>
<%do while not rs.eof '开始循环，显示每条记录%>
<tr>
<td align="middle" bgColor="#ffffff" width="12%">
<a href="modify.asp?id=<%=rs("ID")%>" title="修改"><%=rs("姓名")%></a>
</td>
<td align="middle" bgColor="#ffffff" width="12%"><%=rs("性别")%> </td>
<td align="middle" bgColor="#ffffff" width="12%"><%=rs("出生日期")%></td>
<td align="middle" bgColor="#ffffff" width="12%"><%=rs("电话")%> </td>
<td align="middle" bgColor="#ffffff" width="12%"><%=rs("地址")%> </td>
<td align="middle" bgColor="#ffffff" width="13%"><%=rs("Email")%> </td>
<td align="middle" bgColor="#ffffff" width="13%">
<a href="modify.asp?id=<%=rs("ID")%>" >修改</a>
</td>
<td align="middle" bgColor="#ffffff" width="13%">
<a href="delete.asp?id=<%=rs("ID")%>" >删除</a>
</td>
</tr>
<%
rs.movenext '将记录指针移到下一条记录位置，以便获取该条记录字段内容
loop
'循环结束
%>
<%
'关闭记录集对象Rs和数据连接对象Conn
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</tbody>
</table>
<div>
<center><input name="bt1" onclick="document.location.href='write.asp';" style="cursor: hand; " type="button" value="添加通讯名单">
<input name="bt2" onclick="document.location.href='show.asp';" style="cursor: hand; " type="button" value="显示所有名单"></center>
</div>
<!—- 以下是查询表单 -->
<form method="POST" action="show.asp">
<p>按【姓名】模糊查询：
<input type="text" name="Name" size="20">
<input type="submit" value="查询" name="B1">
<input type="reset" value="清除" name="B2"></p>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -