jg_regself_add_s.asp

这个系统是企业管理系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Server.ScriptTimeOut=6000%>
<!--#include file="jm5.asp" -->

<!--#include file="Check_Sql123.asp" -->
<!--#include file="admin_qx.asp" -->
<%'call islogin() %> 
<!--#include file="conn_db123.asp" -->
<%
'------------------------------------------------------------------------
sql_syssetup="select sys_deadline_add from admin_setup_sys  where  id is not null"
set rs_syssetup=server.CreateObject("adodb.recordset")
rs_syssetup.open sql_syssetup,conn,1,1
if not rs_syssetup.eof then
if rs_syssetup("sys_deadline_add")<>""then
if date()>rs_syssetup("sys_deadline_add") then
	response.write "<script language=JavaScript>{window.alert('敬告：录入时间截止到 “"&rs_syssetup("sys_deadline_add")&"”，\n\n所以现在不能录入数据，请按“确定”返回!');window.history.go(-1);}</script>"
response.end
end if
end if
end if
rs_syssetup.close
set rs_syssetup=nothing
'------------------------------------------------------------------------

'if session("adma_jb")<>"T"then
	'response.write "<script language=JavaScript>{window.alert('敬告：您没有基本信息录入权限，所以不能进入本页面！如您是想要新增其他模块信息，则请通过修改的方法新增\n\n请按“确定”返回!');window.history.go(-1);}</ script>"
'response.end
'end if
%>
<%
 response.write "<br><br><br><br>"&"　　　　　　　　　　　　　             正在保存信息，请稍候...... "

'*************************************************************************

xingming=trim(request("xingming"))
xingbie=trim(request("xingbie"))
chushengsj=trim(request("chushengsj"))
jiguan=trim(request("jiguan"))
minzu=trim(request("minzu"))
zhengzhimianmao=trim(request("zhengzhimianmao"))
zhengzhimianmaosj=trim(request("zhengzhimianmaosj"))
canjiagongzuosj=trim(request("canjiagongzuosj"))
congjiaosj=trim(request("congjiaosj"))
hunyinzhuangkuang=trim(request("hunyinzhuangkuang"))
jinxiaosj=trim(request("jinxiaosj"))


xueli1=trim(request("xueli1"))
xueliqudefangshi1=trim(request("xueliqudefangshi1"))
xuelixuezhi1=trim(request("xuelixuezhi1"))
xuewei1=trim(request("xuewei1"))
xuelisj1=trim(request("xuelisj1"))
xuelixuexiao1=trim(request("xuelixuexiao1"))
xuelizhuanye1=trim(request("xuelizhuanye1"))
xueli2=trim(request("xueli2"))
xueliqudefangshi2=trim(request("xueliqudefangshi2"))
xuelixuezhi2=trim(request("xuelixuezhi2"))
xuewei2=trim(request("xuewei2"))
xuelisj2=trim(request("xuelisj2"))
xuelixuexiao2=trim(request("xuelixuexiao2"))
xuelizhuanye2=trim(request("xuelizhuanye2"))

zhicheng=trim(request("zhicheng"))
zhichengsj=trim(request("zhichengsj"))
zhicheng_xianpin=trim(request("zhicheng_xianpin"))
zhicheng_xianpinsj=trim(request("zhicheng_xianpinsj"))
jinxiaoqiandanwei=trim(request("jinxiaoqiandanwei"))
bianzhileibie=trim(request("bianzhileibie"))
lizhisj=trim(request("lizhisj"))
lizhiyuanyin=trim(request("lizhiyuanyin"))
renshidaili=trim(request("renshidaili"))
jiaoshizhenghao=trim(request("jiaoshizhenghao"))

shenfenzhenghao=trim(request("shenfenzhenghao"))
xingzhengzhiwu=trim(request("xingzhengzhiwu"))
hukousuozaidi=trim(request("hukousuozaidi"))
jiatingzhuzhi=trim(request("jiatingzhuzhi"))
shoujihaoma=trim(request("shoujihaoma"))
youbian=trim(request("youbian"))
zhuzhaidianhua=trim(request("zhuzhaidianhua"))
email=trim(request("email"))
zaizhizhuangtai=trim(request("zaizhizhuangtai"))
zhiyeshengya=trim(request("zhiyeshengya"))
remark=trim(request("remark"))
zhaopian=trim(request("zhaopian"))
bumen=trim(request("bumen"))
xueke=trim(request("xueke"))
bianzhi=trim(request("bianzhi"))
login123=trim(request("login123"))
pwd123=trim(request("pwd123"))
pwd1232=trim(request("pwd1232"))

if login123="" then 
	  response.Write "<script language=javascript>{window.alert('报错：用户名不能为空!');window.history.go(-1);}</script>"
	  response.end
end if
 if pwd123="" or pwd1232 =""then 
	  response.Write "<script language=javascript>{window.alert('报错：密码与确认密码不能为空!');window.history.go(-1);}</script>"
	  response.end
end if
 if pwd123<>pwd1232 then
	  response.Write "<script language=javascript>{window.alert('报错：两次输入的密码不相同!');window.history.go(-1);}</script>"
	  response.end
end if
	if len(pwd123)<6 or len(pwd123)>30 then
response.Write "<script language=JavaScript>{window.alert('报错：密码长度不够，至少要输入五位，最长不超过30位!');window.history.go(-1);}</script>"
response.End()
   end if
   
if xingming="" then
 response.write "<script language=JavaScript>{window.alert('提示：请输入姓名! \n  请按“确定”返回!  \n ');window.history.go(-1);}</script>"
 response.end
end if
if xingbie="" then
 response.write "<script language=JavaScript>{window.alert('提示：请输入性别! \n  请按“确定”返回!  \n ');window.history.go(-1);}</script>"
 response.end
end if
if chushengsj="" then
 response.write "<script language=JavaScript>{window.alert('提示：请输入出生日期! \n  请按“确定”返回!  \n ');window.history.go(-1);}</script>"
 response.end
end if'检验编号不能在系统中重复

'if shenfenzhenghao<>""then
'if not isnumeric(shenfenzhenghao) then
' response.write "<script language=JavaScript>{window.alert('提示： 身份证号码必须为数字! \n  请按“确定”返回!  \n ');window.history.go(-1);}</ script>"
' response.end
' end if
' if  len(shenfenzhenghao)<>15 and len(shenfenzhenghao)<>18 then
' response.write "<script language=JavaScript>{window.alert('提示： 身份证号码必须为15位或18位的数字! \n  请按“确定”返回!  \n ');window.history.go(-1);}</script >"
' response.end
' end if
' end if
 
'sqlbianhao="select id from mainjg where xingming ='"&xingming&"' "
'set rsbianhao=server.CreateObject("adodb.recordset")
'rsbianhao.open sqlbianhao,conn,1,2
'if not rsbianhao.eof then
'response.Write "<script language=javascript>{window.alert('提示：已有相同姓名为 "&xingming&"的教工被重复录入，您可以通过修改或删除方式来更改！');window.location.href='jg_regselfadd.asp';}</ script>"
'end if


if login123<>"" then
sqlbianhao="select id from mainjg where login123 ='"&login123&"' "
set rsbianhao=server.CreateObject("adodb.recordset")
rsbianhao.open sqlbianhao,conn,1,2
if not rsbianhao.eof then
response.Write "<script language=javascript>{window.alert('报错：用户名 "&login123&"重复！');window.history.go(-1);}</script>"
response.end
end if
rsbianhao.close
set rsbianhao=nothing
end if


'检验用户名不能在系统中重复
sqlbianhao="select * from admin_123 where adminlogin='"&login123&"'"
set rsbianhao=server.CreateObject("adodb.recordset")
rsbianhao.open sqlbianhao,conn,1,2
if not rsbianhao.eof then
response.Write "<script language=javascript>{window.alert('报错：用户名重复！原因是该用户名已经存在于库中，请选择其他用户名！');window.history.go(-1);}</script>"
response.End
end if
rsbianhao.close
set rsbianhao=nothing

sql="select * from mainjg where id is null"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
rs.addnew
rs("login123")=login123
rs("pwd123")=MD5(pwd123)
rs("xingming")=xingming
rs("xingbie")=xingbie
rs("chushengsj")=chushengsj
rs("jiguan")=jiguan
rs("minzu")=minzu
rs("zhengzhimianmao")=zhengzhimianmao
rs("zhengzhimianmaosj")=zhengzhimianmaosj
rs("canjiagongzuosj")=canjiagongzuosj
rs("congjiaosj")=congjiaosj
rs("hunyinzhuangkuang")=hunyinzhuangkuang
rs("jinxiaosj")=jinxiaosj


'---------------------------
rs("xueli1")=xueli1
rs("xueliqudefangshi1")=xueliqudefangshi1
rs("xuelixuezhi1")=xuelixuezhi1
rs("xuewei1")=xuewei1
rs("xuelisj1")=xuelisj1
rs("xuelixuexiao1")=xuelixuexiao1
rs("xuelizhuanye1")=xuelizhuanye1
if xueli2="" then
xueli2=xueli1
xueliqudefangshi2=xueliqudefangshi1
xuelixuezhi2=xuelixuezhi1
xuewei2=xuewei1
xuelisj2=xuelisj1
xuelixuexiao2=xuelixuexiao1
xuelizhuanye2=xuelizhuanye1
end if
rs("xueli2")=xueli2
rs("xueliqudefangshi2")=xueliqudefangshi2
rs("xuelixuezhi2")=xuelixuezhi2
rs("xuewei2")=xuewei2
rs("xuelisj2")=xuelisj2
rs("xuelixuexiao2")=xuelixuexiao2
rs("xuelizhuanye2")=xuelizhuanye2

rs("zhicheng")=zhicheng
rs("zhichengsj")=zhichengsj
rs("zhicheng_xianpin")=zhicheng_xianpin
rs("zhicheng_xianpinsj")=zhicheng_xianpinsj
rs("jinxiaoqiandanwei")=jinxiaoqiandanwei
rs("bianzhileibie")=bianzhileibie
rs("lizhisj")=lizhisj
rs("lizhiyuanyin")=lizhiyuanyin
rs("renshidaili")=renshidaili