📄 search.asp
字号:
<%Response.Buffer=True%>
<!--#INCLUDE FILE="odbc_connection.asp"-->
<html>
<head>
<title>查找成员</title>
</head>
<body>
<h2 align="center">查找成员</h2>
<center>
<form method="post" action="">
<table border="0" width="90%" bgcolor="#00CCFF">
<tr>
<td>姓名关键字：</td><td><input type="text" name="name" size="20" >**</td>
<td><input type="submit" value=" 确 定 "></td>
</tr>
<table>
</form>
<%
'如果没有输入姓名就不执行下列语句
If Trim(Request("name"))<>"" Then
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'以姓名为关键字查找
strSql="Select * From users Where name Like '%" & Trim(Request("name")) & "%'"
rs.Open strSql,db,1 '要应用Count属性，要用键盘指针
If rs.RecordCount<=0 Then
Response.Write "对不起，没有找到信息"
Else
Response.Write "共找到" & rs.RecordCount & "条记录"
%>
<table border="0" width="90%">
<tr bgcolor="#B7B7B7" align="center">
<td width=10%>姓名</td>
<td width=15%>电话</td>
<td width=15%>手机</td>
<td width=30%>email</td>
</tr>
<%
Do While Not rs.Eof
'下面将利用表格输出名单
Response.Write "<tr bgcolor='#00CCFF' align='center'>"
Response.Write "<td><a href='particular.asp?id="& rs("id") & "' target='_new'>" & rs("name") & "</a></td>"
Response.Write "<td>" & rs("tel") & " </td>"
Response.Write "<td>" & rs("handtel") & " </td>"
Response.Write "<td><a href='mailto:" & rs("email") & "'>" & rs("email") & "</td>"
Response.Write "</tr>"
Response.Write "</tr>"
rs.MoveNext
Loop
End If
End If
%>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -