adminjg_updateok.asp

轻燕工作室中学人事管理系统最新的V5.0版本！

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="qyschar.asp" -->
<%
if session("admin_id")=""then
 	response.write "<script language=JavaScript>{window.alert('对不起，您没有访问该页面的权限或尚未登录!');window.history.go(-1);}</script>"
  response.end  
end if
%>
<%
jgid=request("id")
newpwd=trim(request("newpwd"))
newpwd2=trim(request("newpwd2"))


name=request("name")
if name="" then
response.Write "<script language=javascript>{window.alert('报错：您没有输入教工的真实姓名!');window.history.go(-1);}</script>"
response.End
end if
sex=request("sex")
mingzu=request("mingzu")
byear=request("byear")
bmonth=request("bmonth")
bday=request("bday")
if byear="" or bmonth="" or bday=""then 
response.Write "<script language=javascript>{window.alert('报错：“出生日期”没填或填入的不够完整，请填好出生日期的年月日”！');window.history.go(-1);}</script>"
response.End
end if
birthday=byear&"-"&bmonth&"-"&bday
'age=request("")
shenfenzheng=request("shenfenzheng")
jiguan=request("jiguan")
mianmao=request("mianmao")
mianmaotime=request("mianmaotime")
if mianmaotime<>""then
  if not isdate(mianmaotime) then
response.Write "<script language=javascript>{window.alert('您输入的“政治面貌时间”格式错误！正确的格式为1998-12-6、1998年12月6日、1998/12/6');window.history.go(-1);}</script>"
response.End
end if
end if
workstart=request("workstart")
if workstart<>""then
  if not isdate(workstart) then
response.Write "<script language=javascript>{window.alert('您输入的“参加工作时间”格式错误！正确的格式为1998-12-6、1998年12月6日、1998/12/6');window.history.go(-1);}</script>"
response.End
end if
end if
'workage=request("workage")
leibie=request("leibie")
xueke=request("xueke")
zhuanye=request("zhuanye")
firstxueli=request("firstxueli")
firstxlgradufrom=request("firstxlgradufrom")
firstxuelidate=request("firstxuelidate")
if firstxuelidate<>""then
  if not isdate(firstxuelidate) then
response.Write "<script language=javascript>{window.alert('您输入的“第一学历时间”格式错误！正确的格式为1998-12-6、1998年12月6日、1998/12/6');window.history.go(-1);}</script>"
response.End
end if
end if
lastxueli=request("lastxueli")
lastxlgradufrom=request("lastxlgradufrom")
lastxldate=request("lastxldate")
if lastxldate<>""then
  if not isdate(lastxldate) then
response.Write "<script language=javascript>{window.alert('您输入的“最后学历毕业时间”格式错误！正确的格式为1998-12-6、1998年12月6日、1998/12/6');window.history.go(-1);}</script>"
response.End
end if
end if
zhicheng=request("zhicheng")
zhichengdate=request("zhichengdate")
if zhichengdate<>""then
  if not isdate(zhichengdate) then
response.Write "<script language=javascript>{window.alert('您输入的“取得职称的时间”格式错误！正确的格式为1998-12-6、1998年12月6日、1998/12/6');window.history.go(-1);}</script>"
response.End
end if
end if
zhichpingyongdate=request("zhichpingyongdate")
if zhichpingyongdate<>""then
  if not isdate(zhichpingyongdate) then
response.Write "<script language=javascript>{window.alert('您输入的“取得职称聘用时间”格式错误！正确的格式为1998-12-6、1998年12月6日、1998/12/6');window.history.go(-1);}</script>"
response.End
end if
end if
renshidaili=request("renshidaili")
phone=request("phone")
beizhu=request("beizhu")
'lurudate=request("lurudate")
renjiaobumen=request("renjiaobumen")
zhiwu=request("zhiwu")
bianzhi=request("bianzhi")
bianzhileibie=request("bianzhileibie")
jianli=request("jianli")
zhuzhi=request("zhuzhi")
hunyin=request("hunyin")
chengyuan=request("chengyuan")
email=request("email")
'----------------------验证email
if email<>"" then
Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular expression object (stupid, huh?)
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" ' Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(email) ' Execute search.
if  match.count=0 then 
response.Write "<script language=javascript>{window.alert('您输入的“email”格式错误！');window.history.go(-1);}</script>"
response.End
end if
end if
'---------------------------
shehui=request("shehui")
chushen=request("chushen")
lunwen=request("lunwen")
peixunjl=request("peixunjl")
jixujiaoyu=request("jixujiaoyu")
gongzu=request("gongzu")
yibao=request("yibao")
niankao=request("niankao")
biandong=request("biandong")
jiangcheng=request("jiangcheng")
tuxiu=request("tuxiu")
danganhao=request("danganhao")
teacherzheng=request("teacherzheng")
danwei=request("danwei")
img=trim(request("img"))
'byear=request("byear")
'bmonth=request("bmonth")
'bday=request("bday")
sql="select * from jg where id="&jgid&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
'检测用户名是否重复
login=request("login")
if login<>rs("login") then
  if login="" then
response.Write "<script language=javascript>{window.alert('报错：此处的“用户名”是为以后该教工登录系统修改自己的记录用的，不能为空，在没有同名教工的情况下，您也可以填写教工姓名作为用户名，!');window.history.go(-1);}</script>"
response.End()
end if
		set jgrs=server.createobject("adodb.recordset")
sql="select login from jg where login='"&login&"'"
jgrs.open sql,conn,1,2
if not jgrs.eof then
set jgrs=nothing
response.Write "<script language=JavaScript>{window.alert('报错：已经有同一用户名存在，不能重复添加!');window.history.go(-1);}</script>"
response.End()
end if
set jgrs=nothing
end if
if img<>"" and img<>rs("img") and rs("img")<>"" then
  set DelObj=Server.CreateObject("Scripting.FileSystemObject")
 filepath="upload/"&rs("img")
  Delpath=server.mappath(filepath)
   if DelObj.FileExists(Delpath) then
   set DelFi=DelObj.getfile(Delpath)
 DelFi.Delete
 set Delobj=nothing
 end if
 end if
 
'检测更改密码
if newpwd<>newpwd2  then 
			     response.Write "<script language=javascript>{window.alert('报错：您两次输入的新密码不一致!');window.history.go(-1);}</script>"
			response.End
				 end if
if newpwd="" and newpwd2=""  then 
			     response.Write "<script language=javascript>{window.alert('报错：该教工的密码不能为空，如不需要修改该教工密码，请不要动这两个“密码框”!');window.history.go(-1);}</script>"
			response.End
				 end if
if newpwd<>"" and newpwd2<>""  then
newpwd=oyfqm(newpwd)
   rs("pwd")=newpwd
		 end if
		 rs("login")=login
      rs("name")=name
      rs("sex")=sex
      rs("mingzu")=mingzu
      rs("birthday")=birthday
     'rs("age")=      
      rs("shenfenzheng")=shenfenzheng
      rs("jiguan")=jiguan
      rs("mianmao")=mianmao
      rs("mianmaotime")=mianmaotime
      rs("workstart")=workstart
     ' rs("workage")=workage
      rs("leibie")=leibie
      rs("xueke")=xueke
      rs("zhuanye")=zhuanye
      rs("firstxueli")=firstxueli
      rs("firstxlgradufrom")=firstxlgradufrom
      rs("firstxuelidate")=firstxuelidate
      rs("lastxueli")=lastxueli
      rs("lastxlgradufrom")=lastxlgradufrom
      rs("lastxldate")=lastxldate
      rs("zhicheng")=zhicheng
      rs("zhichengdate")=zhichengdate
      rs("zhichpingyongdate")=zhichpingyongdate
      rs("renshidaili")=renshidaili
      rs("phone")=phone
      beizhu2 = Replace(beizhu,chr(13),"<br>")
      rs("beizhu")=beizhu2
      rs("renjiaobumen")=renjiaobumen
      
      rs("zhiwu")=zhiwu
      rs("bianzhi")=bianzhi
      rs("bianzhileibie")=bianzhileibie
 jianli2 = Replace(jianli,chr(13),"<br>")
      rs("jianli")=jianli2
      rs("zhuzhi")=zhuzhi
      rs("hunyin")=hunyin
      rs("chengyuan")=chengyuan
      rs("email")=email
      rs("shehui")=shehui
      rs("chushen")=chushen
       lunwen2 = Replace(lunwen,chr(13),"<br>")
      rs("lunwen")=lunwen2
	   peixunjl2 = Replace(peixunjl,chr(13),"<br>")
	  rs("peixunjl")=peixunjl2
	    jixujiaoyu2 = Replace(jixujiaoyu,chr(13),"<br>")
      rs("jixujiaoyu")=jixujiaoyu2
gongzu2 = Replace(gongzu,chr(13),"<br>")
      rs("gongzu")=gongzu2
      rs("yibao")=yibao
   niankao2 = Replace(niankao,chr(13),"<br>")
      rs("niankao")=niankao2
      rs("biandong")=biandong
   jiangcheng2 = Replace(jiangcheng,chr(13),"<br>")
      rs("jiangcheng")=jiangcheng2
      rs("tuxiu")=tuxiu
      rs("danganhao")=danganhao
      rs("teacherzheng")=teacherzheng
      rs("danwei")=danwei
      rs("img")=img
      rs("lastupduser")=session("adminlogin")
	  rs("lastupdname")=session("adminname")
	  ip11 = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '　代理IP
ip22 =Request.ServerVariables("REMOTE_ADDR") 
if ip11 = "" then
lastupdip = ip22
else
lastupdip = ip11
end if
      rs("lastupdip")=lastupdip
	  rs("lastupddate")=now
	  rs.update
	  rs.close
	  set rs=nothing
	  '-----------------------***************
	  ip111 = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '　代理IP
ip222 =Request.ServerVariables("REMOTE_ADDR") 
if ip111 = "" then
ipupdate = ip222
else
ipupdate = ip111
end if
jgpcname=Request.ServerVariables("HTTP_USER_AGENT")
sql_jgupddiary="select * from updjgdiary"
set rs_jgupddiary=server.CreateObject("adodb.recordset")
rs_jgupddiary.open sql_jgupddiary,conn,1,2
rs_jgupddiary.addnew
      rs_jgupddiary("id")=jgid '教工ID号
	   rs_jgupddiary("jg_name")=name '教工姓名
      rs_jgupddiary("lastupduser")=session("adminlogin")
      rs_jgupddiary("lastupdname")=session("adminname")
      rs_jgupddiary("lastupddate")=now
      rs_jgupddiary("lastupdip")=ipupdate
	  rs_jgupddiary("os")=jgpcname
      rs_jgupddiary.update
	  rs_jgupddiary.close
	  set rs_jgupddiary=nothing
	  '------------------------------********************
response.Write "<script language=javascript>{window.alert('记录（和相片）更新成功!请点击“确定”返回　　　');window.history.go(-2);}</script>"
	  %><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

</body>
</html>