📄 waijisavenewstea.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dbf/teacher.mdb")
conn.Open connstr
dim sql,Rest,Res
sql="select * from employee1 where eId='"&Request("eId")&"'"
set Rest=server.createobject("adodb.recordset")
Rest.open sql,conn,1,3
if not Rest.eof then
response.write"您输入的员工号已存在"%>
<form method="post" name="savenews1" action="waijijiaogong.asp" >
<input name="submit" type="submit" value="确定并返回">
<%response.End()
end if%>
<%
sql="select * from employee1 "
set Res=server.createobject("adodb.recordset")
Res.open sql,conn,1,3
Res.AddNew
if not isnumeric(Request("eId")) then
response.write "<script> alert('员工ID必须为3位数字!') </script>"
else
Res("eId")=Request("eId")
end if
Res("eName")=Request("eName")
Res("ecName")=Request("ecName")
if Request("eGender")="1" then Res("eGender")=true else Res("eGender")=false
Res("eBorn")=Request("eBorn") & "/" & Request("monthbirth") & "/" & Request("daybirth")
Res("eAddBorn")=Request("eAddBorn")
Res("efinisdate")=Request("efinisdate")+"-"+Request("efinismonth")+"-"+Request("efinisday")
Res("epactdate")=Request("epactdate")+"-"+Request("epactmonth")+"-"+Request("epactday")
Res("epactdates")=Request("epactdates")+"-"+Request("epactmonths")+"-"+Request("epactdays")
Res("eEducate")=CByte(Request("eEducate"))
Res("eMarriage")=Request("eMarriage")
Res("ePrograde")=Request("ePrograde")
Res("eIDcode")=Request("eIDcode")
Res("eNation")=Request("eNation")
Res("eweektime")=Request("eweektime")
Res("eSpec")=Request("eSpec")
Res("ePwd")=Request("ePwd")
Res("eAddress")=Request("eAddress")
Res("eMemo")=Request("eMemo")
Res("eTel")=Request.Form("eTel")
Res("eTela")=Request.Form("eTela")
Res("eTelb")=Request.Form("eTelb")
Res("eHelpname")=Request.Form("eHelpname")
Res("eWork")=Request("eWork")
Res("eEmail")=Request("eEmail")
Res("eProf")=Request("eProf")
if Request("eTbUser")="ON" then Res("eTbUser")=TRUE else Res("eTbUser")=FALSE
if Request("eTbAdmin")="ON"then Res("eTbAdmin")=TRUE else Res("eTbAdmin")=FALSE
if Request("eSysAdmin")="ON" then Res("eSysAdmin")=TRUE else Res("eSysAdmin")=FALSE
if Request("eSec")="ON" then Res("eSec")=TRUE else Res("eSec")=FAlSE
if Request("eGjj")="ON" then Res("eGjj")=TRUE else Res("eGjj")=FALSE
if Request("eModifier")="ON" then Res("eModifer")=TRUE else Res("eModifer")=FALSE
if Request("eReader")="ON" then Res("eReader")=TRUE else Res("eReader")=FALSE
if Request("eFinkeeper")="ON" then Res("eFinkeeper")=TRUE else Res("eFinkeeper")=FALSE
Res("eDept")=Request("eDept")
Res("eDeps")=Request("eDeps")
Res("ePosis")=Request("ePosis")
Res("sFenxiao")=Request("dSchool")
Res.Update
%>
<P> </P>
</P> 您的信息已经成功提交！
<p> </p>
<p>继续添加新的员工数据？ <a href="waijijiaogong.asp">继续</a>
<a href="main.asp">退出</a></p>
</P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -