📄 searchlook.asp
字号:
<%
dim key
dim biao
key=Request("key")
biao=Request("biao")
%>
<%
Select case biao
case "用户名"
biao="name"
case "Email"
biao="email"
case "密码问题"
biao="passwen"
case Else
Response.Redirect("search.asp")
End Select
%>
<%If key<>"" and biao<>"" Then%>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM id where "+biao+" like '%"+key+"%'"
rs.Open sql, conn, 1, 1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>搜索数据</title>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#include file="top2.asp"-->
<form name=form method="post" action="adminsearch.asp" onSubmit="return checkdata()">
<table border="1" cellspacing="0" cellpadding="0" width="581" align="center" height="10" bordercolor="#7C96B8" bordercolordark="#FFFFFF">
<%if rs.bof and rs.eof then%>
<TR>
<td colspan="1" height="20" background="images/mmTo.gIf" width="600" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699">
搜 索 结 果</font></p>
</div>
</td>
</TR>
<td height="50">
<p align="center"><font color="#336699"><a id="backforumlink" href="search.asp">没有符合条件的数据,请返回首页!</a></font></p>
<SCRIPT language="javascript" type="text/javascript">setTimeout("location.href = backforumlink.href",3000);</SCRIPT>
</td>
</TR>
<%else%>
<TR>
<td colspan="15" height="20" background="images/mmTo.gIf" width="600" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699">
搜 索 结 果</font></p>
</div>
</td>
</TR>
<TR>
<TD><font color="#336699">用户名</font></TD>
<TD><font color="#336699">密码</font></TD>
<TD><font color="#336699">密码问题</font></TD>
<TD><font color="#336699">问题答案</font></TD>
<TD><font color="#336699">Email</font></TD>
<TD><font color="#336699">姓名</font></a></TD>
<TD><font color="#336699">性别</font></a></TD>
<TD><font color="#336699">OICQ</font></a></TD>
<TD><font color="#336699">ICQ</font></a></TD>
<TD><font color="#336699">MSN</font></a></TD>
<TD><font color="#336699">生日</font></a></TD>
<TD><font color="#336699">主页</font></a></TD>
<TD><font color="#336699">头像</font></a></TD>
<TD><font color="#336699">删除</font></a></TD>
<TD><font color="#336699">编辑</font></a></TD>
</TR>
<%While Not rs.EOF%>
<tr>
<td><%=rs("name")%></td>
<td><%=rs("pass")%></td>
<td><%=rs("passwen")%></td>
<td><%=rs("passda")%></td>
<td><%=rs("email")%></td>
<td><%=rs("xingming")%></td>
<td><%=rs("sex")%></td>
<td><%=rs("oicq")%></td>
<td><%=rs("icq")%></td>
<td><%=rs("msn")%></td>
<td><%=rs("shengri")%></td>
<td><%=rs("home")%></td>
<td><img src="<%=rs("touxiang")%>" name="face" width=32 height=32 hspace=15></font></td>
<td><p align='center'><a href='del.asp?id=<%=rs("id")%>'>删除</a></p></td>
<td><p align='center'><a href='bj.asp?id=<%=rs("id")%>'>编辑</a></p></td>
</tr>
<%
rs.MoveNext
Wend
end if
%>
</table>
</body>
</html>
<%
Else
response.Write "非法的请求"
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -