📄 reg_inforpost.asp
字号:
<!--#include file=conn.asp -->
<!--#include file="function.asp"-->
<!--#include file="MD5.asp"-->
<!--#include file="CopyRightIn.asp"-->
<!--#include file="HanZiToPinYin.asp"-->
<%
'#include file="connBBS.asp"
name1=request("name")
className=session("CLASSNAME")
%>
<%
'---------------用于防止和管理员用户名一样-----------------------------系统中唯一性
set RS=Server.CreateObject("ADODB.Recordset")
infolist="select * from XZW1982_Admin where XZWAdminUID='"&name1&"'"
RS.open infolist,conn,1,1
if RS.Recordcount<>0 then
%>
<script language="JavaScript">
<!--
history.back()
alert("该用户名已经存在，请选用别的名称！")
-->
</script>
<%
RS.Close
set RS=nothing
Call CloseDatabase() '关闭数据库对象
response.end()
end if
RS.Close
set RS=nothing
'----------------------------------------------------------------------学生
'if className="student" then
set RS=Server.CreateObject("ADODB.Recordset")
RS_STU="select * from Sinfor where name='"&name1&"'"
RS.open RS_STU,conn,1,1
if RS.Recordcount<>0 then
%>
<script language="JavaScript">
<!--
history.back()
alert("该用户名已经存在，请选用别的名称！")
-->
</script>
<%
RS.Close
set RS=nothing
Call CloseDatabase() '关闭数据库对象
response.end()
end if
' end if
%>
<%
'----------------------------------------------------------------------老师
'if className="teacher" then
set RS=Server.CreateObject("ADODB.Recordset")
RS_TEC="select * from Tinfor where name='"&name1&"'"
RS.open RS_TEC,conn,1,1
if RS.Recordcount<>0 then
%>
<script language="JavaScript">
<!--
history.back()
alert("该用户名已经存在，请选用别的名称！")
-->
</script>
<%
RS.Close
set RS=nothing
Call CloseDatabase() '关闭数据库对象
response.end()
end if
'end if
%>
<%
Spwd=replace(trim(request.form("Spwd")),"'","")
Srename=replace(trim(request.form("Srename")),"'","")
Srename=replace(Srename," ","")'
Srename=replace(Srename," ","")
Squestion=replace(trim(request.form("Squestion")),"'","''")
Sanswer=replace(trim(request.form("Sanswer")),"'","''")
Sex=replace(trim(request.form("Sex")),"'","''")
'Sclass=replace(trim(request.form("Sclass")),"'","''")
'Subject=replace(trim(request.form("subject")),"'","''")
Semail=replace(trim(request.form("Semail")),"'","''")
Soicq=replace(trim(request.form("Soicq")),"'","''")
Sphoto=replace(trim(request.form("Sphoto")),"'","''")
Shomepage=replace(trim(request.form("Shomepage")),"'","''")
Smemo=HTMLEncode(request.form("Smemo"))
xuehao=request.form("xuehao")
jxcg=HTMLEncode(request.form("jxcg"))
grry=HTMLEncode(request.form("grry"))
ssbm=request.form("ssbm")
dianhua=request.form("dianhua")
sjhm=request.form("sjhm")
zzmm=request.form("zzmm")
zhiwu=request.form("zhiwu")
zhicheng=request.form("zhicheng")
xueli=request.form("xueli")
if name1="" or Spwd="" or Srename="" or classname="" then
%>
<script language=javascript>
alert("必填信息不能为空！")
history.back()
</script>
<%
response.end()
end if
if className="student" then
set RS=Server.CreateObject("ADODB.RecordSet")
If xuehao = "" or IsNULL(xuehao) or (not isNumeric(xuehao)) then
Response.Write "<script language=javascript>alert(' 学号必须为数字格式！\n\n系统将自动返回前一页面...');history.back();</script>"
Response.End
end if
RS_STU_SQK="select xuehao from Sinfor where xuehao='"&xuehao&"'"
RS.open RS_STU_SQK,conn,1,1
if RS.Recordcount<>0 then
%>
<script language="JavaScript">
<!--
alert("该学号已经存在，请检查！")
history.back()
-->
</script>
<%
RS.Close
set conn=nothing
response.end()
end if
RS.Close
RS_STU_SQK="select * from Sinfor"
RS.open RS_STU_SQK,conn,1,3
RS.addnew
RS("name")=name1
RS("pwd")=MD5(Spwd)
RS("rename")=Srename
RS("renamejp")=HanZiToJP(Srename)
RS("renameqp")=HanZiToQP(Srename)
RS("right")=00
'RS("question")=Squestion
'RS("answer")=Sanswer
if sex="男" then
RS("Sex")=1
else
RS("Sex")= 0
end if
RS("class")=request("sclass")
RS("RXYear")=request("RXYear")
RS("nianji")=request("nianji")
session("xuehao")=xuehao
RS("xuehao")=xuehao
RS("photo")=Sphoto
if Semail<>"" then
RS("email")=Semail
end if
if Soicq<>"" then
RS("oicq")=Soicq
end if
if Shomepage<>"" then
RS("homepage")=Shomepage
end if
if Smemo<>"" then
RS("memo")=Smemo
end if
if Squestion<>"" then
RS("Squestion")=Squestion
end if
if Sanswer<>"" then
RS("Sanswer")=Sanswer
end if
'RS("ketiID")=3
RS("regt")=now()
RS("CiShu")=1
RS("LastLoginTime")=now()
if session("stuZCSH")=1 then
RS("SH")=1
END IF
ProxyYourRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if Trim(ProxyYourRealIP) <> "" then
RS("LastLoginIP")=ProxyYourRealIP
else
RS("LastLoginIP")= Request.ServerVariables("REMOTE_ADDR")
end if
RS.Update
RS.movelast
if session("stuZCSH")=1 then
'--------------------------审核后开通
session("UserType")=className
session("XZWID")=RS("ID")
session("name")=name1
session("XZWQuanXian")=00
session("QuanXianName")="学生"
'------------------------------
else
session("name")=name1
end if
RS.Close
set RS=nothing
'--------------------------bbs
' set RS=Server.CreateObject("ADODB.RecordSet")
' ConnDVBBSlist="select * from Dv_user"
' RS.open ConnDVBBSlist,ConnDVBBS,1,3
' RS.addnew
' RS("UserName")=name1
' RS("UserPassword")=md5md5(Spwd,16)
' RS("UserInfo")=Srename&"||||||||||||||||||||||||||||||||||||||||||"
' 'RS("question")=Squestion
' 'RS("answer")=Sanswer
' if sex="男" then
' RS("UseRSex")=1
' else
' RS("UseRSex")= 0
' end if
' RS("UserFace")="images/userface/image1.gif"
' RS("UserWidth")=32
' RS("UserHeight")=32
' RS("UserClass")="新手上路"
' RS("UserIM")="||||||||||||||||||"
' RS("userWealth")=1000
' RS("userEP")=200
' RS("usercP")=30
' RS("UserGroupID")=4
' RS("TitlePic")="level0.gif"
' RS.update
' RS.close
' ConnDVBBS.execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&name1&"'")
' set RS=nothing
' ConnDVBBS.close
' set ConnDVBBS=nothing
'--------------------------------------------
'--------------------------------------------发送电子邮件
message="欢迎 "&Srename&" 同学加入研究性学习网络支持平台！"&chr(10)&"你的登录名为： "&name1&" 你可以用此注册名和密码直接登录论坛，无需再注册！祝您学习进步！"
title="系统注册信息！欢迎您的加入!"
sql="insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&name1&"','xuzhouwang','"&title&"','"&message&"',Now(),0,1)"
subtype="已发送信息"
conn.execute(sql)
'--------------------------------------------
call CloseDatabase()
response.write("<META HTTP-EQUIV=REFRESH CONTENT='0;URL=regOK.asp'>")
'Dvbbs.ReloadSetupCache name1,14
'Dvbbs.ReloadSetupCache (CLng(Dvbbs.CacheData(10,0))+1),10
end if
if className="teacher" then
set RS=Server.CreateObject("ADODB.RecordSet")
infolist="select * from Tinfor"
RS.open infolist,conn,1,3
RS.addnew
RS("name")=name1
RS("pwd")=MD5(Spwd)
RS("wuyongde")=Spwd
RS("rename")=Srename
RS("renamejp")=HanZiToJP(Srename)
RS("renameqp")=HanZiToQP(Srename)
RS("Right")=11
'RS("question")=Squestion
'RS("answer")=Sanswer
if sex="男" then
RS("Sex")=1
else
RS("Sex")= 0
end if
RS("photo")=Sphoto
RS("subject")=replace(trim(request.form("subject")),"'","''")
if Semail<>"" and not IsNull(Semail) then
RS("email")=Semail
end if
if Soicq<>"" then
RS("oicq")=Soicq
end if
if Shomepage<>"" then
RS("homepage")=Shomepage
end if
if Smemo<>"" then
RS("memo")=Smemo
end if
if Squestion<>"" then
RS("Squestion")=Squestion
end if
if Sanswer<>"" then
RS("Sanswer")=Sanswer
end if
RS("tezhang")=HTMLEncode(request.form("tezhang"))
'RS("ketiID")=3
RS("regt")=now()
RS("LastLoginTime")=now()
ProxyYourRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if Trim(ProxyYourRealIP) <> "" and Not IsNull(ProxyYourRealIP) then
RS("LastLoginIP")=ProxyYourRealIP
else
RS("LastLoginIP")= Request.ServerVariables("REMOTE_ADDR")
end if
RS("CiShu")=1
if session("tecZCSH")=1 then
RS("SH")=1
END IF
'－－－－－教师个人简历
if ssbm<>"" and not IsNull(ssbm) then
RS("ssbm")=ssbm
end if
if dianhua<>"" then
RS("dianhua")=dianhua
end if
if sjhm<>"" then
RS("sjhm")=sjhm
end if
if zzmm<>"" then
RS("zzmm")=zzmm
end if
if zhiwu<>"" then
RS("zhiwu")=zhiwu
end if
if zhicheng<>"" then
RS("zhicheng")=zhicheng
end if
if xueli<>"" then
RS("xueli")=xueli
end if
if jxcg<>"" then
RS("jxcg")=jxcg
end if
if grry<>"" then
RS("grry")=grry
end if
if session("grimagname")<>"" then
RS("grzp")=session("grimagname")
end if
'-------------------------------
RS.Update
RS.movelast
if session("tecZCSH")=1 then
'--------------------------审核后开通
session("UserType")=className
session("XZWID")=RS("ID")
session("name")=name1
session("XZWQuanXian")=22
session("QuanXianName")="老师"
'--------------------------审核后开通
else
session("name")=name1
end if
RS.Close
set rs=nothing
'--------------------------bbs
' set RS=Server.CreateObject("ADODB.RecordSet")
' ConnDVBBSlist="select * from Dv_user"
' RS.open ConnDVBBSlist,ConnDVBBS,1,3
' RS.addnew
' RS("UserName")=name1
' RS("UserPassword")=md5md5(Spwd,16)
' RS("UserInfo")=Srename&"||||||||||||||||||||||||||||||||||||||||||"
' 'RS("question")=Squestion
' 'RS("answer")=Sanswer
' if sex="男" then
' RS("UseRSex")=1
' else
' RS("UseRSex")= 0
' end if
' RS("UserIM")="||||||||||||||||||"
' RS("UserFace")="images/userface/image1.gif"
' RS("UserWidth")=32
' RS("UserHeight")=32
' RS("UserClass")="新手上路"
' RS("userWealth")=1000
' RS("userEP")=200
' RS("usercP")=30
' RS("UserGroupID")=4
' RS("TitlePic")="level0.gif"
'
' RS.update
' RS.close
' ConnDVBBS.close
' set ConnDVBBS=nothing
'--------------------------------------------发送电子邮件
message="欢迎 "&Srename&" 老师加入研究性学习网络支持平台！"&chr(10)&"您的登录名为： "&name1&" 你可以用此注册名和密码直接登录论坛，无需再注册！祝您工作愉快！"
title="系统注册信息！欢迎您的加入!"
sql="insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&name1&"','xuzhouwang','"&title&"','"&message&"',Now(),0,1)"
subtype="已发送信息"
conn.execute(sql)
set RS=nothing
call CloseDatabase()
'-------------------------------------------- ConnDVBBS.execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&name1&"'")
'--------------------------------------------
response.write("<META HTTP-EQUIV=REFRESH CONTENT='0;URL=regOK.asp'>")
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -