jg_regself_add_s.asp

这个系统是企业管理系统

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

'------------------------------------------------------------------------
sql_syssetup="select sys_isneedcheck_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_isneedcheck_add")="T" then
rs("ischeck")="nocheck"
end if
if rs_syssetup("sys_isneedcheck_add")="F" then
rs("ischeck")="passcheck"
end if
end if


rs_syssetup.close
set rs_syssetup=nothing
'------------------------------------------------------------------------




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
'-----添加记录结束 
 session("jg_reg_curr_id")=id_px '判断如是自助注册则有转向自己记录的权限！
 url="jg_regself_index_view.asp"

 response.write "<script language=JavaScript>{window.alert('恭喜，添加成功! \n  管理员将审核您的记录！审核前您可以修改资料，下次查看或修改资料，请从首页登录！ \n按“确定”后跳转到您的自己的刚录入记录，跳转后您可以查看修改自己的记录，离开时请点击“退出”！\n  ');window.location.href='"&url&"';}</script>"
 

 
function htmlencode(str)
htmlencode=replace(str,chr(13),"<br>")
end function
%>