jg_add_s.asp

这个系统是企业管理系统

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

<!--#include file="admin_qx.asp" -->
<% call isqx_add_jb() %> 
<!--#include file="conn_db123.asp" -->
<%
 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 pwd123<>pwd1232 then
	  response.Write "<script language=javascript>{window.alert('报错：两次输入的密码不相同!');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='index.asp';}</script>"
'response.end
end if
rsbianhao.close
set rsbianhao=nothing

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
rs("jiaoshizhenghao")=jiaoshizhenghao
'---------------------------

rs("shenfenzhenghao")=shenfenzhenghao
rs("xingzhengzhiwu")=xingzhengzhiwu
rs("hukousuozaidi")=hukousuozaidi
rs("jiatingzhuzhi")=jiatingzhuzhi
rs("shoujihaoma")=shoujihaoma
rs("youbian")=youbian
rs("zhuzhaidianhua")=zhuzhaidianhua
rs("email")=email
rs("zaizhizhuangtai")=zaizhizhuangtai
rs("zhiyeshengya")=zhiyeshengya
rs("remark")=htmlencode(remark)
rs("zhaopian")=zhaopian
rs("bumen")=bumen
rs("xueke")=xueke
rs("bianzhi")=bianzhi

rs("luruname")=session("admin_name")

rs.update

 id_px=rs("id")   

  rs.close
 set rs=nothing
 
  '-----学习经历
nn=request.form("linenum_xuexijingli").count
redim arr_xuexijingli_shijian(nn)
redim arr_xuexijingli_jiuduxuexiao(nn)
redim arr_xuexijingli_xuexicengci(nn)

For i = 1 To nn
 arr_xuexijingli_shijian(i)=trim(request.form("xuexijingli_shijian")(i))
 arr_xuexijingli_jiuduxuexiao(i)=trim(request.form("xuexijingli_jiuduxuexiao")(i))
 arr_xuexijingli_xuexicengci(i)=trim(request.form("xuexijingli_xuexicengci")(i))

'if not isnumeric(arr_xuexijingli(i)) and arr_xuexijingli(i)<>""then
'response.write ""
' response.end
'end if

if arr_xuexijingli_shijian(i)<>"" or arr_xuexijingli_jiuduxuexiao(i)<>"" or arr_xuexijingli_xuexicengci(i)<>"" then
sql_xuexijingli="select * from xuexijingli where id is null"
set rs_xuexijingli=server.CreateObject("adodb.recordset")
rs_xuexijingli.open sql_xuexijingli,conn,1,2
rs_xuexijingli.addnew
rs_xuexijingli("xingming_id")=id_px
rs_xuexijingli("xingming")=xingming 

rs_xuexijingli("xuexijingli_shijian")=arr_xuexijingli_shijian(i)
rs_xuexijingli("xuexijingli_jiuduxuexiao")=arr_xuexijingli_jiuduxuexiao(i)
rs_xuexijingli("xuexijingli_xuexicengci")=arr_xuexijingli_xuexicengci(i)

rs_xuexijingli.update
rs_xuexijingli.close
set rs_xuexijingli=nothing
end if
Next
'-----添加记录结束
 
  '-----工作经历
nn=request.form("linenum_gongzuojingli").count
redim arr_gongzuojingli_shijian(nn)
redim arr_gongzuojingli_gongzuodanwei(nn)
redim arr_gongzuojingli_zhiwu(nn)

For i = 1 To nn
 arr_gongzuojingli_shijian(i)=trim(request.form("gongzuojingli_shijian")(i))
 arr_gongzuojingli_gongzuodanwei(i)=trim(request.form("gongzuojingli_gongzuodanwei")(i))
 arr_gongzuojingli_zhiwu(i)=trim(request.form("gongzuojingli_zhiwu")(i))

if arr_gongzuojingli_shijian(i)<>"" or arr_gongzuojingli_gongzuodanwei(i)<>"" or arr_gongzuojingli_zhiwu(i)<>"" then
sql_gongzuojingli="select * from gongzuojingli where id is null"
set rs_gongzuojingli=server.CreateObject("adodb.recordset")
rs_gongzuojingli.open sql_gongzuojingli,conn,1,2
rs_gongzuojingli.addnew
rs_gongzuojingli("xingming_id")=id_px
rs_gongzuojingli("xingming")=xingming 

rs_gongzuojingli("gongzuojingli_shijian")=arr_gongzuojingli_shijian(i)
rs_gongzuojingli("gongzuojingli_gongzuodanwei")=arr_gongzuojingli_gongzuodanwei(i)
rs_gongzuojingli("gongzuojingli_zhiwu")=arr_gongzuojingli_zhiwu(i)

rs_gongzuojingli.update
rs_gongzuojingli.close
set rs_gongzuojingli=nothing
end if
Next
'-----添加记录结束

   '-----教研情况
nn=request.form("linenum_jiaoyanqingkuang").count
redim arr_jiaoyan_lunwenmingcheng(nn)
redim arr_jiaoyan_shijian(nn)
redim arr_jiaoyan_zaitimingcheng(nn)

For i = 1 To nn
 arr_jiaoyan_lunwenmingcheng(i)=trim(request.form("jiaoyan_lunwenmingcheng")(i))
 arr_jiaoyan_shijian(i)=trim(request.form("jiaoyan_shijian")(i))
 arr_jiaoyan_zaitimingcheng(i)=trim(request.form("jiaoyan_zaitimingcheng")(i))

if arr_jiaoyan_lunwenmingcheng(i)<>"" or arr_jiaoyan_shijian(i)<>"" or arr_jiaoyan_zaitimingcheng(i)<>"" then
sql_jiaoyanqingkuang="select * from jiaoyanqingkuang where id is null"
set rs_jiaoyanqingkuang=server.CreateObject("adodb.recordset")
rs_jiaoyanqingkuang.open sql_jiaoyanqingkuang,conn,1,2
rs_jiaoyanqingkuang.addnew
rs_jiaoyanqingkuang("xingming_id")=id_px
rs_jiaoyanqingkuang("xingming")=xingming 

rs_jiaoyanqingkuang("jiaoyan_lunwenmingcheng")=arr_jiaoyan_lunwenmingcheng(i)
rs_jiaoyanqingkuang("jiaoyan_shijian")=arr_jiaoyan_shijian(i)
rs_jiaoyanqingkuang("jiaoyan_zaitimingcheng")=arr_jiaoyan_zaitimingcheng(i)

rs_jiaoyanqingkuang.update
rs_jiaoyanqingkuang.close
set rs_jiaoyanqingkuang=nothing
end if
Next
'-----添加记录结束
 
 
  '-----工作以来奖惩情况
nn=request.form("linenum_jiangcheng").count
redim arr_jiangcheng_shijian(nn)
redim arr_jiangcheng_danwei(nn)
redim arr_jiangcheng_shixiang(nn)

For i = 1 To nn
 arr_jiangcheng_shijian(i)=trim(request.form("jiangcheng_shijian")(i))
 arr_jiangcheng_danwei(i)=trim(request.form("jiangcheng_danwei")(i))
 arr_jiangcheng_shixiang(i)=trim(request.form("jiangcheng_shixiang")(i))
if arr_jiangcheng_shijian(i)<>"" or arr_jiangcheng_danwei(i)<>"" or arr_jiangcheng_shixiang(i)<>"" then
sql_jiangcheng="select * from jiangcheng where id is null"
set rs_jiangcheng=server.CreateObject("adodb.recordset")
rs_jiangcheng.open sql_jiangcheng,conn,1,2
rs_jiangcheng.addnew
rs_jiangcheng("xingming_id")=id_px
rs_jiangcheng("xingming")=xingming 

rs_jiangcheng("jiangcheng_shijian")=arr_jiangcheng_shijian(i)
rs_jiangcheng("jiangcheng_danwei")=arr_jiangcheng_danwei(i)
rs_jiangcheng("jiangcheng_shixiang")=arr_jiangcheng_shixiang(i)

rs_jiangcheng.update
rs_jiangcheng.close
set rs_jiangcheng=nothing
end if
Next
'-----添加记录结束
 
  '-----家庭主要成员
nn=request.form("linenum_jiating").count
redim arr_jiating_xingming(nn)
redim arr_jiating_chushengsj(nn)
redim arr_jiating_yubenrenguanxi(nn)
redim arr_jiating_tel(nn)
redim arr_jiating_danwei(nn)

For i = 1 To nn
 arr_jiating_xingming(i)=trim(request.form("jiating_xingming")(i))
 arr_jiating_chushengsj(i)=trim(request.form("jiating_chushengsj")(i))
 arr_jiating_yubenrenguanxi(i)=trim(request.form("jiating_yubenrenguanxi")(i))
 arr_jiating_tel(i)=trim(request.form("jiating_tel")(i))
 arr_jiating_danwei(i)=trim(request.form("jiating_danwei")(i))

if arr_jiating_xingming(i)<>"" or arr_jiating_chushengsj(i)<>"" or arr_jiating_yubenrenguanxi(i)<>"" or arr_jiating_tel(i)<>"" or arr_jiating_danwei(i)<>""  then
sql_jiating="select * from jiating where id is null"
set rs_jiating=server.CreateObject("adodb.recordset")
rs_jiating.open sql_jiating,conn,1,2
rs_jiating.addnew
rs_jiating("xingming_id")=id_px
rs_jiating("xingming")=xingming 

rs_jiating("jiating_xingming")=arr_jiating_xingming(i)
rs_jiating("jiating_chushengsj")=arr_jiating_chushengsj(i)
rs_jiating("jiating_yubenrenguanxi")=arr_jiating_yubenrenguanxi(i)
rs_jiating("jiating_tel")=arr_jiating_tel(i)
rs_jiating("jiating_danwei")=arr_jiating_danwei(i)

rs_jiating.update
rs_jiating.close
set rs_jiating=nothing
end if
Next
'-----添加记录结束 
' response.write "<script language=JavaScript>{window.alert('恭喜添加成功! \n  请按“确定”返回!  \n ');window.location.href='jg_add.asp';}</ script>"
function htmlencode(str)
htmlencode=replace(str,chr(13),"<br>")
end function
%>

<script> 
if (confirm('添加成功！\n\n要继续添加请按“确定”\n\n按“取消”则可以查看或核对您刚才录入的信息')) { 
window.location.href='jg_add.asp';
} else { 
<%session("selectid")=""%>
location = 'jg_view.asp?requestid=<%=id_px%>&add=T' 
} 
</script>