📄 reg_detectname.asp
字号:
<!--#include file="Comm/conn.asp"-->
<%
UserId=replace(request("UserId"),"'","’")
if UserId <> "" then
'开始检测是否已有此用户
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM UserMain where UserId= '" & UserId & "'"
rs.open sql,conn,1,1
%>
<%
if not (rs.Bof or rs.eof) then
message="<font color=red><b>对不起！</b><br><br>该登陆帐号已经有人使用<br><br>请选择别的登陆帐号!</font>"
else
message="<font color=red><b>恭喜您！</b><br><br>该登陆帐号目前暂无人使用</font>"
end if
rs.Close
set rs=nothing
else
message="<font color=red><b>对不起！</b><br><br>请您填写账号</font>"
end if
%>
<HTML>
<HEAD>
<TITLE>注册-检测用户ID</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="cycoo15.css" type="text/css">
</HEAD>
<BODY>
<%
response.write message
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -