📄 dealuser.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P> </P>
<%
dim mysql
dim NewUserName,NewUserID,NewUserPWD,NewUserNickName,IPAdd
NewUserName=Request.Form("realname")
NewUserID=Request.Form("uid")
NewUserPWD=Request.Form("pwd1")
NewUserNickName=Request.Form("nickname")
IPAdd=Request.ServerVariables("Remote_Host")
set myrecord=server.CreateObject ("ADODB.Recordset")
mysql="select * from EverUser where UserID='" & NewUserID & "'"
myrecord.Open mysql,"DSN=ChatRoom",1,3
if not myrecord.BOF then
Response.Write "该用户名已经存在，请重新输入一个用户名"
Response.Write "<a href='NewUser.asp'>重新注册</a>"
else
myrecord.AddNew
myrecord("UserID")=NewUserID
myrecord("PWD")=NewUserPWD
myrecord("NickName")=NewUserNickName
if NewUserName<>"" then
myrecord("Name")=NewUserName
end if
myrecord("IPAdd")=IPAdd
myrecord.Update
Response.Write ("恭喜你，你已经注册成功，你现在可以<a href='default.asp'>进入聊天室</a>")
end if
myrecord.Close
set myrecord=nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -