?? 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">
<meta name="Robots" content="index,follow">
<meta name="Abstract" content="CycooShop">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<link rel="stylesheet" href="shop" type="text/css">
</HEAD>
<BODY>
<%
response.write message
%>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -