📄 admin_add_save.asp
字号:
<%@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
%>
<%
dim pwd
login=trim(request("login"))
newpwd=trim(request("newpwd"))
newpwd2=trim(request("newpwd2"))
'检测密码
'---------------------
set rs=server.createobject("adodb.recordset")
sql="select * from adminsys"
rs.open sql,conn,1,2
if rs("jgpwd")="jgpwdall" then
if newpwd<>"" or newpwd2<>"" then
response.Write "<script language=javascript>{window.alert('报错：您输入的密码无效，该教工的密码将是“系统分配的相同的统一的密码” 因为系统设置成 “给每个教工统一分配相同的登录密码” 的形式！如要单独为教工分配“特定的密码”或“不同的随机密码”，请到“系统参数设置”里进行设置!');}</script>"
end if
pwd=rs("jgpwdwhat")
end if
if rs("jgpwd")="jgpwdrnd" then
if newpwd<>"" or newpwd2<>"" then
response.Write "<script language=javascript>{window.alert('报错：您输入的密码无效，该教工的密码将是“系统自动生成的随机数密码”， 因为系统设置成 “给每个教工随机分配不同的登录密码” 的形式！如要单独为教工分配“特定的密码”或“分配统一的相同的密码”，请到“系统参数设置”里进行设置!');}</script>"
end if
pwd=hour(now)&minute(now)&second(now)
if len(pwd)<6 then
if len(pwd)=5 then
pwd=pwd&"8"
end if
if len(pwd)=4 then
pwd=pwd&"88"
end if
if len(pwd)=3 then
pwd=pwd&"888"
end if
if len(pwd)=2 then
pwd=pwd&"8888"
end if
if len(pwd)=1 then
pwd=pwd&"88888"
end if
if len(pwd)=0 then
pwd=pwd&"888888"
end if
end if
end if
if rs("jgpwd")="jgpwdhand" then
if newpwd<>newpwd2 then
response.Write "<script language=javascript>{window.alert('报错：您两次输入的密码不一致!');window.history.go(-1);}</script>"
response.End
end if
if len(newpwd)<6 or len(newpwd)>20 then
response.Write "<script language=javascript>{window.alert('报错：输入的密码位数必须在6到20位之间！');window.history.go(-1);}</script>"
response.End
end if
if newpwd="" then
response.Write "<script language=javascript>{window.alert('报错：您必须手动输入该教工的“登录密码”，因为系统设置成 “添加教工时给每个教工手工输入登录密码” 的形式！如要为每个教工“分配统一的相同的密码”或“随机分配不同的密码”，请到“系统参数设置”里进行设置!');window.history.go(-1);}</script>"
response.End
end if
pwd=newpwd
end if
name=trim(request("name"))
if name="" then
response.Write "<script language=javascript>{window.alert('报错：您没有输入教工的真实姓名!');window.history.go(-1);}</script>"
response.End()
end if
pwd=oyfqm(pwd)
if name<>"" then
set rsname=server.createobject("adodb.recordset")
sql="select login from jg where name='"&name&"'"
rsname.open sql,conn,1,2
if not rsname.eof then
flagname=1
set rsname=nothing
end if
end if
if login="" then
login=name
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('报错：因为您没有输入该教工的“登录名”，所以系统默认您所输入的“真实姓名”为“登录名”，但发现已经有同一“登录名: "&login&" ”存在，“登录名”是为以后该教工登录系统修改自己的记录用的，所以必须保证“登录名”的唯一性，如果“真实姓名”无误，那么请按“确定”返回后手动输入“登录名”!');window.history.go(-1);}</script>"
response.End()
end if
end if
if login<>"" then
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('报错：已有同一“登录名: "&login&" ”存在，“登录名”是为以后该教工登录系统修改自己的记录用的，所以必须保证“登录名”的唯一性，那么请按“确定”返回修改“登录名”!');window.history.go(-1);}</script>"
response.End()
end if
end if
sex=request("sex")
mingzu=request("mingzu")
byear=request("byear")
bmonth=request("bmonth")
bday=request("bday")
if byear<>""then
if bmonth=""then
response.Write "<script language=javascript>{window.alert('报错：“出生日期”不完整，请至少再选择“出生日期的月份”！');window.history.go(-1);}</script>"
response.End
end if
end if
if bmonth<>""then
if byear=""then
response.Write "<script language=javascript>{window.alert('报错：“出生日期”不完整，请至少再选择“出生日期的年份”！');window.history.go(-1);}</script>"
response.End
end if
end if
if byear<>"" and bmonth<>"" then
birthday=byear&"-"&bmonth&"-"&bday
else
birthday=""
end if
'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=server.htmlencode(request("lunwen"))
lunwen=replace(lunwen,chr(13),"<br>") '自动分行
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"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
rs.addnew
rs("login")=login
rs("pwd")=pwd
rs("ischeck")=0
rs("isupdate")="否"
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
if lastxueli=""then
lastxueli=firstxueli
lastxlgradufrom=firstxlgradufrom
lastxldate=firstxuelidate
end if
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
'html编码
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("byear")=byear
'rs("bmonth")=bmonth
'rs("bday")=bday
rs("luruuser")=session("adminlogin")
rs("luruname")=session("adminname")
ip11 = Request.ServerVariables("HTTP_X_FORWARDED_FOR") ' 代理IP
ip22 =Request.ServerVariables("REMOTE_ADDR")
if ip11 = "" then
luruip = ip22
else
luruip = ip11
end if
rs("luruip")=luruip
rs("lurudate")=now
rs.update
if flagname=1 then
response.Write "<script language=JavaScript>{window.alert('**记录添加成功! ** 提示：但已经有同一教工的“真实姓名： "&name&" ”存在，如果“真实姓名”无误，在没有“重名教工”的情况下，那么说明是已经录入该教工,那么请按“确定”返回后搜索刚才输入的记录，将它删除！!');window.location.href='adminjg_add.asp';}</script>"
else
response.Write "<script language=javascript>{window.alert('记录添加成功!请点击“确定”继续添加 ');window.location.href='adminjg_add.asp';}</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -