savenreguser.inc

来自「ajax技术书籍 ajax技术书籍」· INC 代码 · 共 21 行

<%
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)
	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
%>