📄 personchange.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>员工工信息修改</title>
<link href="css/MainBorder.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
.STYLE3 {color: #FFFF00}
-->
</style>
</head>
<script language="vbscript">
sub enter_onclick()
yes =window.confirm("是否要修改此人信息！？")
if yes = true then
f.submit()
end if
end sub
</script>
<body topmargin="800">
<table width="970" height="42">
<tr>
<td>
</td>
</tr>
</table>
<%
t1=request.form("Rname")
t2=request.QueryString("Rname")
if t1<>"" then
temp=t1
else if t2<>"" then
temp=t2
end if
end if
%>
<!--#include file ="Connections/auto.asp"-->
<%
set RS = server.CreateObject("ADODB.Recordset")
Sname = "select *from Login, Message where Message.ID ='"& temp & "'and Message.ID=Login.ID"
RS.open Sname , CN
%>
<form id="f" method="post" action="changecc.asp?op=<%=temp%>">
<table width="436" height="262" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#666699">
<tr>
<td width="79" align="right"><span class="STYLE3">员工编号： </span></td>
<td width="354"><input name="id" type="text" value="<%response.write(RS("ID"))%>"></td>
</tr>
<tr>
<td align="right" ><span class="STYLE3"> 员工姓名：</span></td>
<td ><input name="lname" type="text" value="<%=RS("Name")%>"></td>
</tr>
<tr>
<td align="right" ><span class="STYLE3">部门： </span></td>
<td ><span class="STYLE1">
<select name="part">
<option value="caiwu" <%if strcomp(RS("Part"),"caiwu")=0 then response.Write("selected") end if%>>财务部</option>
<option value="renshi" <%if strcomp(RS("Part"),"renshi")=0 then response.Write("selected") end if%>>人事部</option>
<option value="qihua" <%if strcomp(RS("Part"),"qihua")=0 then response.Write("selected") end if%>>启划部</option>
<option value="chejian" <%if strcomp(RS("Part"),"chejian")=0 then response.Write("selected") end if%>>车间</option>
</select>
</span></td>
</tr>
<tr>
<tr>
<td align="right" ><span class="STYLE3">职务： </span></td>
<td ><span class="STYLE1">
<select name="position">
<option value="jingli" <%if strcomp(RS("position"),"jingli")=0 then response.Write("selected") end if%>>经理</option>
<option value="mishu" <%if strcomp(RS("position"),"mishu")=0 then response.Write("selected") end if%>>秘书</option>
<option value="yuangong" <%if strcomp(RS("position"),"yuangong")=0 then response.Write("selected") end if%>>员工</option>
</select>
</span></td>
</tr>
<td align="right"><span class="STYLE3">出生日期： </span></td>
<td><span class="STYLE1">
<input name="data" type="text" value="<% =RS("Data")%>">
"####-##-##"</span></td>
</tr>
<tr>
<td align="right" ><span class="STYLE3">身份证号： </span></td>
<td ><span class="STYLE1">
<input name="pc" type="text" value="<% =RS("PC")%>">
"18位"</span></td>
</tr>
<tr>
<td align="right" ><span class="STYLE3">电话： </span></td>
<td ><span class="STYLE1">
<input name="hometel" type="text" value="<% =RS("Hometel")%>">
"8位"</span></td>
</tr>
<tr>
<td align="right"><span class="STYLE3">手机号码： </span></td>
<td ><span class="STYLE1">
<input name="tel" type="text" value="<% =RS("Tel")%>">
"11位"</span></td>
</tr>
<tr>
<td align="right" ><span class="STYLE3">家庭住址： </span></td>
<td><input name="address" type="text" value="<% =RS("Address")%>"></td>
</tr>
<tr>
<td align="right"><span class="STYLE3">入公司时间： </span></td>
<td ><span class="STYLE1">
<input name="start" type="text" value="<% =RS("Start")%>">
"####-##-##"</span></td>
</tr>
<tr>
<td align="right"><span class="STYLE3">个人介绍： </span></td>
<td ><span class="STYLE1">
<textarea name="history" cols="50" rows="5"><% =RS("History")%>
</textarea>
</span></td>
</tr>
</table>
<center>
<table width="442" height="65">
<tr>
<td width="444"><div align="center"><input type="button" class="s04" name="enter" value="确定修改个人信息"></div></td>
</tr>
</table>
</center>
<p> </p>
</form>
<%
RS.close
CN.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -