?? search.asp
字號:
<%Response.Buffer=True%>
<!--#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>
<form method="post" action="">
<table border="0" width="90%" bgcolor="#CC9933">
<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對象
Dim rs,strSql
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="#FF9900" align="center">
<td width=10%>姓名</td>
<td width=15%>聯系方式</td>
<td width=25%>性別</td>
<td width=20%>住址</td>
<td width=10%>年齡</td>
<td width=20%>備注</td>
</tr>
<%
Do While Not rs.Eof
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 "</tr>"
rs.MoveNext
Loop
End If
End If
%>
</center>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -