dealuser.asp

来自「同样是一个在ASP.NET+SQL基础环境下开发的网上BBS系统」· ASP 代码 · 共 49 行

ASP
49 行
字号 
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P>&nbsp;</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>

dealuser.asp - 源码说明

本页面展示了「同样是一个在ASP.NET+SQL基础环境下开发的网上BBS系统」中的 dealuser.asp 源码文件，采用 ASP 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?