savenreguser.txt

来自「ajax技术书籍 ajax技术书籍」· 文本 代码 · 共 32 行

Name: 用户简单注册保存函数
Author: shemily
Create: 2007-04-29
Version: 1.0
Language: VBscript

<%
'------------参数说明-------------
'userName	--用户名
'userPass	--密码
'userMail	--邮件地址
'---------------------------------
function saveNRegUser(userName, userPass, userMail)
	on error resume next
	dim backStr,con
	set con=getConn()
	sql="insert into users(userName, userPass, email, ifOnline) "
	sql=sql&"values('"&userName&"','"&userPass&"','"&userMail&"',1)"
	
	con.execute(sql)		'save user info
	con.close
	set con=nothing
	
	if Err.Number <> 0 then
		backStr="Err_121"
	else
		backStr="Err_120"
	end if
	
	saveNRegUser = backStr		'return error code
end function
%>