📄 adduser.asp
字号:
<!-- pingmac www.pingmac.com -->
<!--#include file="../dbconnect/conn.asp" -->
<%
set rsa=Server.CreateObject("adodb.recordset")
sqla="select * from system"
rsa.open sqla,conn,1,1
%>
<%
dim rs,sql
set rs=Server.CreateObject("adodb.recordset")
'mimageNum = 0
action = "addnew"
userid = Trim(Request.QueryString("userid"))
if isNumeric(userid)=false or userid="" then
userid=0
action = "addnew"
end if
set rsp=Server.CreateObject("adodb.recordset")
sqlp = "select * FROM Account where id="&userid
rsp.Open sqlp,conn,1,3
if rsp.RecordCount=1 then
action = "modify"
mquanxian=rsp("Rightword")
mleixing=rsp("Units")
musername=rsp("username")
musersex=rsp("xingbie")
mminzu=rsp("minzu")
mhuji=rsp("Residence")
mzhuzhi=rsp("zhuzhi")
mshengri=rsp("shengri")
mdianhua=rsp("Telephone")
memail=rsp("email")
muserqq=rsp("qqinfo")
mdixin=rsp("Salaries")
mpassword=rsp("pwd")
mpingjia=rsp("Evaluation")
mjianli=rsp("jianli")
mtechang=rsp("zhuanchang")
mlixiang=rsp("lixiang")
mgonghao=rsp("Jobnum")
else
action = "addnew"
userid = 0
end if
rsp.Close
set rsp=nothing
sub produceForm()
mquanxian=trim(request.form("quanxian"))
mleixing=trim(request.form("leixing"))
musername=trim(request.form("username"))
musersex=trim(request.form("usersex"))
mminzu=trim(request.form("minzu"))
mhuji=trim(request.form("huji"))
mzhuzhi = trim(Request.form("zhuzhi"))
mshengri=trim(request.form("shengri"))
mdianhua=trim(request.form("dianhua"))
memail=trim(request.form("email"))
muserqq=trim(request.form("userqq"))
mdixin=trim(request.form("dixin"))
mpingjia=trim(request.form("pingjia"))
mpassword = trim(Request.form("password"))
mjianli=trim(request.form("jianli"))
mtechang=trim(request.form("techang"))
mlixiang = trim(Request.form("lixiang"))
mgonghao = trim(Request.form("gonghao"))
sqlq = "select * from Account where id="&Trim(Request.Form("userid"))
set rsq = Server.CreateObject("adodb.recordset")
rsq.Open sqlq,conn,1,3
if Trim(Request.Form("action"))="modify" then
if rsq.RecordCount = 1 then
'修改
rsq("Rightword") = mquanxian
rsq("Units") = mleixing
rsq("username") = musername
rsq("xingbie") = musersex
rsq("minzu") = mminzu
rsq("Residence") = mhuji
rsq("zhuzhi") = mzhuzhi
rsq("shengri") = mshengri
rsq("Telephone") = mdianhua
rsq("email") = memail
rsq("qqinfo") = muserqq
rsq("Salaries") = mdixin
rsq("Evaluation") = mpingjia
rsq("pwd") = mpassword
rsq("jianli") = mjianli
rsq("zhuanchang") = mtechang
rsq("lixiang") = mlixiang
rsq("Jobnum") = mgonghao
'rsq("addDate") = year(now()) & "年" & month(now()) & "月" & day(now()) & "日"
rsq.Update
end if
Response.Write("<Script Language='Javascript'>")
Response.Write("alert('资料已经修改成功!');")
Response.Write("</Script>")
Response.Write "<script language=javascript>"&_
"history.go(-2);"&_
"</script>"
else
rsq.AddNew
rsq("Rightword") = mquanxian
rsq("Units") = mleixing
rsq("username") = musername
rsq("xingbie") = musersex
rsq("minzu") = mminzu
rsq("Residence") = mhuji
rsq("zhuzhi") = mzhuzhi
rsq("shengri") = mshengri
rsq("Telephone") = mdianhua
rsq("email") = memail
rsq("qqinfo") = muserqq
rsq("Salaries") = mdixin
rsq("Evaluation") = mpingjia
rsq("pwd") = mpassword
rsq("jianli") = mjianli
rsq("zhuanchang") = mtechang
rsq("lixiang") = mlixiang
rsq("Jobnum") = mgonghao
rsq("addDate") = year(now()) & "年" & month(now()) & "月" & day(now()) & "日"
rsq("logindata") = 1
rsq.update
Response.Write("<Script Language='Javascript'>")
Response.Write("alert('资料已经成功保存了!');")
Response.Write("</Script>")
end if
rsq.Close
set rsq = nothing
end sub
if Trim(Request.Form("action"))<>"" then
call produceForm()
end if
%>
<HTML><HEAD><TITLE><%=rsa("Systemname")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=GBK">
<SCRIPT language=javascript src="java/JavaScript.js"></SCRIPT>
<LINK href="../css/style.css" type=text/css rel=stylesheet>
<STYLE>
.Div_LongTable2 {
OVERFLOW-Y: visible; OVERFLOW-X: auto; WIDTH: 755px
}
</STYLE>
<META content="MSHTML 6.00.2900.3020" name=GENERATOR>
<script language="JavaScript">
<!--
function saveIt()
{
if (document.mail.quanxian.value=="")
{
alert("请选择登入权限");
document.mail.quanxian.focus();
return false;
}
if (document.mail.leixing.value=="")
{
alert("请选择工作类型");
document.mail.leixing.focus();
return false;
}
if (document.mail.username.value=="")
{
alert("姓名不能为空");
document.mail.username.focus();
return false;
}
if (document.mail.usersex.value=="")
{
alert("请选择性别");
document.mail.usersex.focus();
return false;
}
if (document.mail.minzu.value=="")
{
alert("民族不能为空");
document.mail.minzu.focus();
return false;
}
if (document.mail.huji.value=="")
{
alert("户籍不能为空");
document.mail.huji.focus();
return false;
}
if (document.mail.zhuzhi.value=="")
{
alert("住址不能为空");
document.mail.zhuzhi.focus();
return false;
}
if (document.mail.shengri.value=="")
{
alert("出生日期不能为空");
document.mail.shengri.focus();
return false;
}
if (document.mail.dianhua.value=="")
{
alert("联系电话不能为空");
document.mail.dianhua.focus();
return false;
}
if (document.mail.email.value=="")
{
alert("E-mail不能为空");
document.mail.email.focus();
return false;
}
if (document.mail.dixin.value=="")
{
alert("底薪不能为空");
document.mail.dixin.focus();
return false;
}
if (document.mail.jianli.value=="")
{
alert("工作简历不能为空");
document.mail.jianli.focus();
return false;
}
if (document.mail.techang.value=="")
{
alert("特技专长不能为空");
document.mail.techang.focus();
return false;
}
if (document.mail.lixiang.value=="")
{
alert("追求理想不能为空");
document.mail.lixiang.focus();
return false;
}
if (document.mail.gonghao.value=="")
{
alert("请设置工号");
document.mail.gonghao.focus();
return false;
}
waiting.style.visibility = "visible";
document.mail.submit();
}
//-->
</script>
</HEAD>
<BODY leftMargin=4 topMargin=12>
<DIV id=waiting
style="Z-INDEX: 10; LEFT: 20px; VISIBILITY: hidden; POSITION: absolute; TOP: 220px">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="30%"></TD>
<TD bgColor=#ff9900>
<TABLE height=70 cellSpacing=2 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#eeeeee>正在将新员工数据写入系统,
请稍候...</TD></TR></TBODY></TABLE></TD>
<TD width="30%"></TD></TR></TBODY></TABLE></DIV>
<form name="mail" method="post" action="adduser.asp?action=addnew" ID="mail">
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=right border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE class=Bg_Rim cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -