finduser.asp
来自「快狗即时通讯软件源码V2007 纪念版」· ASP 代码 · 共 68 行
ASP
68 行
<%response.expires=0%>
<!--#include file="conn.asp"-->
<%
on error resume next
yhm=trim(request.form("yhm"))
url=trim(request.form("url"))
if yhm<>"" or url<>"" then
set rs=server.createobject("adodb.recordset")
if yhm<>"" and url="" then
sql="select * from userinfo where yhm='"&yhm&"'"
elseif yhm="" and url<>"" then
sql="select * from userinfo where url1 like '%"&url&"%'"
elseif yhm<>"" and url<>"" then
sql="select * from userinfo where yhm='"&yhm&"' and url1 like '%"&url&"%'"
end if
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
response.write("<div align=""left"">")
response.write("用户名："&rs("yhm")&"<br>")
response.write("密 码："&rs("mm")&"<br>")
response.write("昵 称："&rs("lc")&"<br>")
response.write("网站名称："&rs("mc1")&"<br>")
response.write("网站类型："&rs("lx1")&"<br>")
response.write("网址："&rs("url1")&"<br>")
response.write("总访问量："&rs("looksums")&"<br>")
response.write("网站简介："&server.htmlencode(rs("jj"))&"<br>")
response.write("</div>")
response.write("<hr>")
rs.movenext
loop
end if
rs.close
conn.close
end if
%>
<html>
<head>
<title>查找注册用户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p><font color="#FF0000" size="+2">查找注册用户</font> </p>
<form name="form1" method="post" action="finduser.asp">
<table width="333" cellpadding="0" cellspacing="0">
<tr>
<td width="95">用户名:</td>
<td width="222">
<input type="text" name="yhm">
</td>
</tr>
<tr>
<td width="95">网址：</td>
<td width="222">
<input type="text" name="url">
</td>
</tr>
</table>
<br>
<input type="submit" name="ok" value=" 确 定 ">
</form>
<p> </p>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?