save_reg_user.asp

非常有商业价值的软件

<!--#include file="my_lib/my_request.asp" -->
<!--#include file="my_lib/md5.asp" -->
<!--#include file="db_conn.asp" -->
<%
username=my_request("username",0)
password=my_request("password",0)
password2=my_request("password2",0)
question=my_request("question",0)
answer=my_request("answer",0)
email=my_request("email",0)
realname=my_request("realname",0)
idcard=my_request("idcard",0)
sex=my_request("sex",0)
kind=my_request("kind",0)
address=my_request("address",0)
postal=my_request("postal",0)
phone=my_request("phone",0)
mobile=my_request("mobile",0)
qq=my_request("qq",0)
msn=my_request("msn",0)
checkcode=my_request("checkcode",0)

if username="" or password="" or password2="" or question="" or answer="" or email="" or realname="" or idcard="" or sex="" or kind="" or address="" or postal="" or phone="" or checkcode="" then
response.write"<SCRIPT language=JavaScript>alert('请确认您的信息已经按要求填写完整。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
elseif password<>password2 then
response.write"<SCRIPT language=JavaScript>alert('两次密码输入不一致。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
elseif password=username then
response.write"<SCRIPT language=JavaScript>alert('为了安全，密码不应该等于用户名。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
sql="select txt_login_name,txt_login_pass,txt_question,txt_answer,txt_email,txt_realname,txt_idcard,txt_sex,txt_kind,txt_address,txt_postal,txt_phone,txt_mobile,txt_qq,txt_msn,dat_regtime from user_info_list where txt_login_name='"&username&"' or txt_email='"&email&"'"
set rs=server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
response.write"<SCRIPT language=JavaScript>alert('用户名或者邮件地址已经被注册。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
rs.addnew
rs("txt_login_name")=username
rs("txt_login_pass")=md5(password,32)
rs("txt_question")=question
rs("txt_answer")=md5(answer,32)
rs("txt_email")=email
rs("txt_realname")=realname
rs("txt_idcard")=idcard
rs("txt_sex")=sex
rs("txt_kind")=kind
rs("txt_address")=address
rs("txt_postal")=postal
rs("txt_phone")=phone
rs("txt_mobile")=mobile
rs("txt_qq")=qq
rs("txt_msn")=msn
rs("dat_regtime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Session.Contents.Remove("CheckCode")
response.redirect "reg_save_ok.asp"
end if
end if
%>