regsubmit.asp

学生学籍管理系统学 生学籍管理系统学 生学籍管理系统学生学籍管理系统

<!--#include file="Odbc_connection.asp"-->
<!--#include file="Function.asp"-->
<%
On Error Resume Next
insertok=trim(request.Form("insertok"))
username=trim(request.Form("username"))
password=trim(request.Form("password"))
password2=trim(request.Form("password2"))
reg=trim(request.Form("reg"))
reg1=trim(request.Form("reg1"))
typed=cint(trim(request.Form("typed")))
address=trim(request.Form("ADDRESS"))
department=request.Form("addone_id")
class1=request.Form("addtwo_id")
number=trim(request.Form("number"))
number1=number
Email=trim(request.Form("Email"))
tel=trim(request.Form("TEL"))
ip=request.ServerVariables("REMOTE_ADDR")
'-------------------------------------------

IF DEPARTMENT="请选择教师院系" or class1="请选择班级" THEN
           response.write"<script>alert('请选择所在院系和班级！');location='REGOK.asp'</script>"
 				response.End()
				
END IF
if class1<>"—学校督导—"  then
if class1<>"—教师同行—"  then
strsql="select * from class where id="&class1
set rs=db.execute(strsql)
class1=rs("classname")
end if
end if
strsql="select * from department where id="&department
set rs=db.execute(strsql)
department=rs("department")

'----------------------------------------------
'--------------------将系别数字转换成文字


typedok=TONGGUO
'2005-3-24日晚上的代码！
'成功的得到了FORM了的值
if Email="" then
Email="无"
end if
if address="" then
address="无"
end if
if tel="" then
tel="无"
end if
  '---------------------------------------------- 
user=number
	
	
	'-----------------------------------------------产生用户ID
	if username="" or password="" or number1="" then
	response.write"<script>alert('请把信息添完整');location='regok.asp'</script>"
	response.End()
	
	end if
	
	'------------------------------------------
	 if reg<>reg1 then
	response.write"<script>alert('附加码错误！');location='regok.asp'</script>"
	response.End()
	end if

'----------------------------------------------------------------------
if db.errors.count>0 then
		   
response.write"<script>alert('数据提交时出现错误，请重新申请！');location='regok.asp'</script>"	
end if
		 



'------------------------------------------------------------

strsql="INSERT INTO USERinfo(USERNAME,PASSWORD,REALNAME,TYPED,TYPEDOK,EMAIL,NUM,TEL,ADDRESS,SUBMITDATE,IP,DEPART,CLASS1)"
strsql=strsql&"values('"&USER&"','"&PASSWORD&"','"&USERNAME&"',"&TYPED&","&TYPEDOK&",'"&EMAIL&"','"&NUMBER&"','"&TEL&"','"&ADDRESS&"','"&now()&"','"&IP&"','"&DEPARTMENT&"','"&CLASS1&"')"
db.execute(strsql)
session("userREGID")=USER
response.write"<script>alert('注册成功！');location='regdisplay.asp'</script>"


%>