📄 updateme.asp
字号:
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<!--#include file="../inc/def_color.htm"-->
<%
LoginID=trim(session("LoginID"))
if LoginID="" then response.end
ID=LoginID
if ID<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from tblUser where ID="& ID
rs.open sql,oConn
if not rs.eof then
sName=trim(rs("Name"))
sSex=trim(rs("sex"))
sDepartment=trim(rs("Department"))
if sDepartment="" then sDepartment=0
sPosition=trim(rs("Position"))
sOfficeTel=trim(rs("Officetel"))
sHomeTel=trim(rs("HomeTel"))
sPager=trim(rs("Pager"))
sMobile=trim(rs("Mobiletel"))
sPostCode=trim(rs("PostCode"))
sEmail=trim(rs("Email"))
sBody=trim(rs("Info"))
sAddress=trim(rs("Address"))
sFax=trim(rs("Fax"))
sSignature=trim(rs("Signature"))
sPhoto=trim(rs("Photo"))
sSelfBody=trim(rs("SelfBody"))
end if
rs.close
set rs=nothing
end if
if Request("cmdUp")<>"" then
Name=replace(trim(request("Name")),"'","''")
Sex=trim(request("sex"))
Department=trim(request("Department"))
if Department="" then Department=0
Position=trim(request("Position"))
OfficeTel=replace(trim(request("Officetel")),"'","''")
HomeTel=replace(trim(request("HomeTel")),"'","''")
Pager=replace(trim(request("Pager")),"'","''")
Mobile=replace(trim(request("Mobile")),"'","''")
PostCode=replace(trim(request("PostCode")),"'","''")
Email=replace(trim(request("Email")),"'","''")
Body=replace(trim(request("Body")),"'","''")
Address=replace(trim(request("Address")),"'","''")
Fax=replace(trim(request("Fax")),"'","''")
SelfBody=trim(request("SelfBody"))
if Name="" then errName="<img src='../images/error.gif' border=0 height=15 alt='必须输入姓名'>"
if Name<>"" then
Updateme(ID)
response.write "<h3><font FACE=Verdana>Infomation Updated!（个人资料已经成功修改！）</font></h3><BR>谢谢！<BR>"
response.write "<a href=Updateme.htm><img src='../images/return.gif' border=0></a><BR>"
response.end
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/main.css">
</head>
<body BGCOLOR="FFFFFF">
<p ALIGN="center">修改个人档案</p>
<form NAME="eventfrm" ACTION="Updateme.htm" METHOD="POST">
<div align=center>
<table CELLSPACING="1" CELLPADDING="1" border=0 WIDTH="80%" bgcolor="<%=bgcolor%>">
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="20%"><b>姓名</b>
<font COLOR="RED">*</td>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="80%">
<input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="30" NAME="Name" value="<%=sName%>">
<%=errName%>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="20%"><b>性别</b>
<font COLOR="RED">*</td>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="80%">
<select name="sex">
<option value=0 <%if sSex="0" then response.write " selected"%>>男
<option value=1 <%if sSex="1" then response.write " selected"%>>女
</select>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="20%"><b>部门</b>
<font COLOR="RED">*</td>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="80%">
<%options "department","tblDepartment","Name",sDepartment%>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>职位</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="30" NAME="Position" value="<%=sPosition%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>E-mail</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="30" NAME="Email" value="<%=sEmail%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>电话(O)</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="OfficeTel" value="<%=sOfficeTel%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>电话(H)</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="HomeTel" value="<%=sHomeTel%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>传真</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Fax" value="<%=sFax%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>传呼</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Pager" value="<%=sPager%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>手机</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Mobile" value="<%=sMobile%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>邮政编码</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Postcode" value="<%=sPostCode%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>详细地址</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Address" value="<%=sAddress%>">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>自我评价</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<textarea COLS="48" ROWS="5" NAME="SelfBody" WRAP="PHYSICAL"><%=sSelfbody%>
</textarea>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>其他</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<textarea COLS="48" ROWS="5" NAME="Body" WRAP="PHYSICAL"><%=sbody%>
</textarea>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>照片</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<%if sPhoto<>"" then%>
<img src="../File_up/Photo/<%=LoginID%>/<%=sPhoto%>" border=0>
<%end if%>
<!--input type="file" name="Photo" size=20 class="input"-->
<input type="button" value="更改照片" onclick="OpenWindow('PhotoUpfrm.htm','PhotoWindow')">
<input type="button" value="删除照片" onclick="OpenWindow('delPhoto.htm','PhotoWindow')">
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>签名</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<%if sSignature<>"" then%>
<img src="../File_up/Photo/<%=LoginID%>/<%=sSignature%>" border=0>
<%end if%>
<!--input type="file" name="Signature" size=20 class="input"-->
<input type="button" value="更改签名" onclick="OpenWindow('SignatureUpfrm.htm','PhotoWindow')">
<input type="button" value="删除签名" onclick="OpenWindow('delSignature.htm','PhotoWindow')">
</td>
</tr>
<tr bgcolor=#ffffff>
<td colspan=2 align=center>
<INPUT TYPE="submit" name="cmdUp" value="修 改" class=font9boldwhite>
<INPUT TYPE="reset" name="reset1" value="重 置" class=font9boldwhite>
</td>
</tr>
</table>
</div>
<BR>
</form>
</body>
</html>
<script language="JavaScript">
function OpenWindow(url,windowname)
{
window.open(url,windowname,'left=100,top=50,height=100,width=350,toolbar=no,menubar=no,scrollbars=yes')
}
</script>
<%
sub Updateme(ID)
sql="Update tblUser set Name='"&Name&"', OfficeTel='"&OfficeTel&"', HomeTel='"&Hometel&"',Email='"&Email&"',Fax='"&fax&"',Pager='"&Pager&"',Mobiletel='"&Mobile&"',PostCode='"&Postcode&"',Address='"&address&"',info='"&Body&"',sex="&sex&",department="&department&",position='"&position&"',Selfbody='"&SelfBody&"' where ID="& ID
oConn.execute (sql)
end sub
Function GetTableValue(TableName,Field,ValueField,Value)
if TableName<>"" and Value<>"" then
Set RsTmp = Server.Createobject("Adodb.recordset")
strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
Rstmp.open strSql,oConn,1,1
If not Rstmp.eof then
GetTableValue=trim(Rstmp(Field))
else
GetTableValue=""
end if
Rstmp.close
'set RsTmp = Nothing
else
GetTableValue=""
end if
End Function
%>
<!--#include file="../inc/conn_close.htm"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -