teacher_updateok.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="qyschar.asp" -->
<%
if session("jg_id")=""then
 	response.write "<script language=JavaScript>{window.alert('对不起，您没有访问该页面的权限或尚未登录!');window.history.go(-1);}</script>"
  response.end 
end if
%>
<%
jgid=request("id")
name=request("name")
if name="" then
response.Write "<script language=javascript>{window.alert('报错：您没有输入教工的真实姓名!');window.history.go(-1);}</script>"
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")
rdy=request("rdy")
rdm=request("rdm")
rdd=request("rdd")
mianmaotime=rdy&"-"&rdm&"-"&rdd

gzy=request("gzy")
gzm=request("gzm")
gzd=request("gzd")
workstart=gzy&"-"&gzm&"-"&gzd
'workage=request("workage")
leibie=request("leibie")
xueke=request("xueke")
zhuanye=request("zhuanye")
firstxueli=request("firstxueli")
firstxlgradufrom=request("firstxlgradufrom")

xue1datey=request("xue1datey")
xue1datem=request("xue1datem")
xue1dated=request("xue1dated")
firstxuelidate=xue1datey&"-"&xue1datem&"-"&xue1dated


lastxueli=request("lastxueli")
lastxlgradufrom=request("lastxlgradufrom")

xue2datey=request("xue2datey")
xue2datem=request("xue2datem")
xue2dated=request("xue2dated")
lastxldate=xue2datey&"-"&xue2datem&"-"&xue2dated

zhicheng=request("zhicheng")
zcy=request("zcy")
zcm=request("zcm")
zcd=request("zcd")
zhichengdate=zcy&"-"&zcm&"-"&zcd

spy=request("spy")
spm=request("spm")
spd=request("spd")
zhichpingyongdate=spy&"-"&spm&"-"&spd

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=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
'检测用户名是否重复


set jgrs=server.createobject("adodb.recordset")
sql="select login from jg where login='"&login&"'"
jgrs.open sql,conn,1,2
set jgrs=nothing
jiupwd=oyfqm(trim(request("jiupwd")))
newpwd=oyfqm(trim(request("newpwd")))
newpwd2=oyfqm(trim(request("newpwd2")))
if newpwd<>"" or newpwd2<>"" then
   if jiupwd="" then 
response.Write "<script language=javascript>{window.alert('报错：在修改新密码前必须输入原密码!');window.history.go(-1);}</script>"
   else if jiupwd<>rs("pwd") then 
	 response.Write "<script language=javascript>{window.alert('报错：您输入的原密码错误，要修改密码必须核实原密码!');window.history.go(-1);}</script>"
end if
end if
end if
if newpwd<>""and newpwd2<>"" then 
     if newpwd<>newpwd2  then 
			     response.Write "<script language=javascript>{window.alert('报错：您两次输入的新密码不一致!');window.history.go(-1);}</script>"
				 else rs("pwd")=newpwd
				 end if
				 if len(newpwd)<6 or len(newpwd)>20 then
response.Write "<script language=JavaScript>{window.alert('报错：您的密码长度不够，至少要输入六位，最长不超过20位!');window.history.go(-1);}</script>"
response.End()
end if
		 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
	   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("jg_login")
	  rs("lastupdname")=session("jg_name")
	  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("jg_login")
      rs_jgupddiary("lastupdname")=session("jg_name")
      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>