📄 work_edit.asp
字号:
<!--#include file="../Include/AdoConn.asp"-->
<%
dim tableName '下面函数的入口参数,表名
dim KeyWord '各表主关键字名称
dim KeyType '主键类型，自动增加型为"空"，字符型为 " ' "
dim Num '保存取得的各字段个数
tableName="xt_td_Worker"
KeyWord="员工编码"
KeyType="'"
Num=8
redim var(Num)
for i=0 to Num
var(i)=""
next
code=request.querystring("code")'修改
if code<>"" then
set rst=server.createobject("adodb.recordset")
strsql="select * from "&tableName&" where "&KeyWord&"="&KeyType&code&KeyType
rst.open strsql,conn
if not rst.eof then
for i=0 to rst.fields.count-1
var(i)=rst(i)
next
end if
rst.Close
set rst=nothing
end if
if Request.QueryString ("submit")="submit" then'是否是提交状态
set rst=server.CreateObject ("adodb.recordset")
strsql="select top 1 * from "&tableName
rst.Open strsql,conn
N=Num
code=Request.Form ("code")
if code<>"" then'修改
for i=1 to N
strSet=strSet&rst(i).name&"="&"'"&Request.Form(i)&"'"
if i<>N then
strSet=strSet+","
end if
next
strsql="update "&tableName&" set "&strSet&" where "&KeyWord&"="&KeyType&code&KeyType
conn.execute (strsql)
info="您已提交修改成功!"
else'新增
'''''''''''''''''''''检查数据库内是否有此员工
set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 姓名 from "&tableName&" where 姓名='"&Request.Form (1)&"'"
rst2.Open strsql,conn,3,2
if not rst2.EOF then
%>
<script Language="JavaScript">
<!--
alert("系统中已有此员工，如添加同名员工请在员工姓名后加上序号!");
history.back(-1);
// -->
</script>
<%
Response.End
end if
rst2.Close
set rst2=nothing
'''''''''''''''''''''检查结束
'''''''''''''''''''''确定员工编码
set rst1=server.CreateObject ("ADODB.recordset")
StrSQL="select max(员工编码) from XT_TD_worker"
set rst1=conn.execute( StrSQL)
if isnull(rst1(0)) then
WorkerCode="20000"
else
WorkerCode=cint(rst1(0))+1
end if
rst1.Close
set rst1=nothing
'''''''''''''''''''''结束
dim strTitle,strValue'记录自动生成form\rst.fields语句的变量
strTitle=rst(0).name+","
strValue="'"&WorkerCode&"'"+","
for i=1 to N
strTitle=strTitle&rst(i).name
strValue=strValue&"'"&Request.Form(i)&"'"'i+1为去掉“员工类型”项
if i<>N then
strTitle=strTitle+","
strValue=strValue+","
end if
next
strsql="insert into "&tableName&"("&strTitle&")values("&strValue&")"
conn.execute (strsql)
info="您已提交成功!"
end if
rst.Close
set rst=nothing
end if
'<input type="hidden" name="code" value="<%=var(0)>此隐藏域用于提交主键，将其入到所有输入变量之后。
%>
<html>
<head>
<title>注册员工</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/Css/All.css">
<script language="javascript">
ArrayString=new Array(0,"textfield1","姓名不能为空！");
</script>
<script language="javascript" src="../js/checkForm.js"></script>
<script language="javascript" src="../js/Check_email_num.js"></script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><%=info%></td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center" background="../Images/title_edit.gif">
<tr >
<td width="199" height="30"> </td>
<td width="112" height="30" align="center">注 册 员 工</td>
<td width="189" height="30"> </td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center" class="snd">
<form name="form1" method="post" action="Work_edit.asp?submit=submit" onsubmit="return CheckForm(this)">
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20"> 编码</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20"><%=var(0)%></td>
<td width="176" height="20"> </td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">姓名</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<input type="text" name="textfield1" size="20" maxlength="20" value=<%=var(1)%>>
** </td>
<td width="176" height="20">
<p>(**为必填项，下同) </p>
</td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">密码</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<input type="password" name="textfield2" size="20" maxlength="20" value="<%=var(2)%>">
** </td>
<td width="176" height="20">
<p></p>
</td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">年龄</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<input type="text" name="textfield3" size="20" maxlength="2" value=<%=var(3)%>>
</td>
<td width="176" height="20"> </td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">学历</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<select name="textfield4">
<option value="无" <%if var(4)="无" then response.write "selected" end if %>>无</option>
<option value="博士"<%if var(4)="博士" then response.write "selected" end if %>>博士</option>
<option value="硕士"<%if var(4)="硕士" then response.write "selected" end if %>>硕士</option>
<option value="本科"<%if var(4)="本科" then response.write "selected" end if %>>本科</option>
<option value="大专"<%if var(4)="大专" then response.write "selected" end if %>>大专</option>
<option value="其它"<%if var(4)="其它" then response.write "selected" end if %>>其它</option>
</select>
</td>
<td width="176" height="20"> </td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">宅电</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<input type="text" name="textfield5" size="20" maxlength="25" value=<%=var(5)%>>
</td>
<td width="176" height="20"> </td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">手机</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<input type="text" name="textfield6" size="20" maxlength="15" value=<%=var(6)%>>
</td>
<td width="176" height="20"> </td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">传呼</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<input type="text" name="textfield7" size="20" maxlength="15" value=<%=var(7)%>>
</td>
<td width="176" height="20"> </td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20">地址</td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20">
<input type="text" name="textfield8" size="25" maxlength="25" value=<%=var(8)%>>
</td>
<td width="176" height="20"> </td>
</tr>
<tr>
<td width="24" align="right" height="20"> </td>
<td width="54" align="right" height="20"> </td>
<td width="27" height="20" align="center"> </td>
<td width="209" height="20"> </td>
<td width="176" height="20"> </td>
</tr>
<tr align="center">
<td colspan="5" height="20" width="498">
<input type="hidden" name="code" value="<%=var(0)%>">
<input type="submit" name="Submit" value="提 交" class="buttonnew">
<input type="reset" name="Submit2" value="重 置" class="buttonnew">
</td>
</tr>
<tr align="center">
<td colspan="5" height="20" width="498"> </td>
</tr>
<tr bgcolor="#000000">
<td colspan="5" align="right" height="1" width="498"></td>
</tr>
</form>
</table>
</body>
</html>
<%
set rst1=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -