reg_save.asp

用ASP写的学生管理系统

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="functions.asp"-->
<%
UserId=request.form("UserId")
User_Password=request.form("pw1")
userpassword=md5(user_password)
UserMail=request.form("UserMail")
Username=request.form("Username")
UserQQ=request.form("UserQQ")
Address=request.form("Address")
Zipcode=request.form("Zipcode")
Sex=request.form("Sex")
Birthday=request.form("Birthday")
CompPhone=request.form("CompPhone")
HomePhone=request.form("HomePhone")
Country=request.form("Country")
Province=request.form("Province")
City=request.form("City")
Banji=request.form("Banji")
Zhuanye=request.form("Zhuanye")
Memo=request.form("Memo")
tjr=request.form("tjr")
jptxt="ゴ|ガ|ギ|グ|ゲ|ザ|ジ|ズ|ヅ|デ|ド|ポ|ベ|プ|ビ|パ|ヴ|ボ|ペ|ブ|ピ|バ|ヂ|ダ|ゾ|ゼ"
jptext=split(jptxt,"|")
for jp=0 to ubound(jptext)
userid=replace(userid,jptext(jp),"")
Username=replace(Username,jptext(jp),"")
next
'过滤日文字符及其它常见的非法文字
if request("UserId")<>UserId or request("Username")<>Username then
	response.write "<script language='javascript'>"
	response.write "alert('本系统不允许使用日文字符，请检查后重新输入！');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	response.end
end if

if instr(lcase(userid),"admin")>0 or instr(userid,"管理员")>0  or instr(userid,"游客")>0 then
	response.write "<script language='javascript'>"
	response.write "alert('警告：不允许使用此类用户名，请检查后重新输入！');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	response.end
end if
set rs = conn.execute ("SELECT * FROM [user] where UserId= '" & UserId & "' ")
 if not (rs.Bof or rs.eof) then
	response.write "<img border=0 src=images/login/no.gif alt='非常遗憾，此用户名已被他人注册，请选用其它用户名。'>"
    else
sqlinfo = "select * from [user]"
set rst=Server.Createobject("ADODB.RecordSet")
rst.Open sqlinfo,conn,1,3
rst.AddNew
rst("UserId")=UserId
rst("UserPassword")=UserPassword
rst("Username")=Username
rst("UserQQ")=UserQQ
rst("Address")=Address
rst("Zipcode")=Zipcode
rst("Sex")=Sex
rst("Birthday")=Birthday
rst("HomePhone")=HomePhone
rst("CompPhone")=CompPhone
rst("UserMail")=UserMail
rst("Country")=Country
rst("Province")=Province
rst("City")=City
rst("Banji")=Banji
rst("Zhuanye")=Zhuanye
rst("Memo")=Memo
rst("tjr")=tjr
rst("IP")=Request.serverVariables("REMOTE_ADDR")
rst.Update
rst.close
set rst = nothing
response.cookies("userid")=""
response.cookies("userid")=userid
'登陆完成
response.write "<script language='javascript'>"
response.write "alert('恭喜，注册成功。单击“确定”登陆本站。');"
response.write "</script>"
response.write "<meta http-equiv=refresh content='0;URL=index.asp'>"
end if
%>