📄 serachname.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/config.Asp"-->
<!--#include file="inc/pwwd.Asp"-->
<!--#include file="inc/index_inc.Asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META NAME="keywords" CONTENT="<%=keywords%>">
<META NAME="description" CONTENT="<%=description%>">
<META NAME="robots" CONTENT="all">
<title>用户查询</title>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0">
<table width="132" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="29"> </td>
</tr>
<tr>
<td width="132" height="29"><div align="center"><%call Serach_Name()%></div></td>
</tr>
<tr>
<td width="132"><div align="center" ><a href="javascript:window.close()" class="size">关闭窗口</a></div></td>
</tr>
</table>
<%
sub Serach_Name()
Dim Username
Username=ReplaceBadWord(Request("Username"))
If Username="" Then
Response.Write("用户名不能为空")
Else
If len(Username)<2 Then
Response.Write("用户名不能少于三位")
Else
Dim checkrsobj,sql
sql="select * from [user] where username='"&Username&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
If Not rs.eof Then
Response.Write("此用户已经被注册")
Else
Response.Write("此用户可以注册")
End if
End if
End if
Set rs = Nothing
End sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -