📄 personeditrecord.asp
字号:
<%response.expires=0%>
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/bgsub.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checked.asp"-->
<%
function strlength(inputstr)
dim length,i
length=0
for i=1 to len(inputstr)
if asc(mid(inputstr,i,1))<0 then
length=length+2
else
length=length+1
end if
next
strlength=length
end function
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<meta http-equiv="expires" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css.css">
<title>企业办公自动化IE37-OA系统</title>
<script language="vbscript">
sub checkkey()
if window.event.keyCode >57 or window.event.keyCode <48 then
if window.event.keyCode<>45 and window.event.keyCode<>40 and window.event.keyCode<>41 then
window.event.keyCode=0
end if
end if
end sub
</script>
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
<center>
<table align="center">
<tr>
<td><b>修改个人通讯录资料</b> </td>
<form method="post" action="person_notebook.asp">
<td><input type="submit" value="返回">
</td>
</form>
</tr>
</table>
</center>
<%
id=request("id")
if id="" then
response.redirect "person_notebook.asp"
response.end
end if
if request("submit")="修改" then
errorinfo=""
xm=trim(request("xm"))
if strlength(xm)>10 then
errorinfo=errorinfo&"姓名太长，不能超过5个汉字！<br>"
end if
xb=request("xb")
zw=trim(request("zw"))
if strlength(zw)>20 then
errorinfo=errorinfo&"职务太长，不能超过10个汉字！<br>"
end if
lb=trim(request("lb"))
dw=trim(request("dw"))
if strlength(dw)>50 then
errorinfo=errorinfo&"单位太长，不能超过25个汉字！<br>"
end if
zzdh=trim(request("zzdh"))
if strlength(zzdh)>30 then
errorinfo=errorinfo&"住宅电话太长，不能超过30个字符！<br>"
end if
yzbm=trim(request("yzbm"))
if strlength(yzbm)>6 then
errorinfo=errorinfo&"邮政编码太长，不能超过6个字符！<br>"
end if
dhfj=trim(request("dhfj"))
if strlength(dhfj)>30 then
errorinfo=errorinfo&"电话或分机太长，不能超过30个字符！<br>"
end if
sj=trim(request("sj"))
if strlength(sj)>11 then
errorinfo=errorinfo&"手机号码太长，不能超过11个字符！<br>"
end if
dzyj=trim(request("dzyj"))
if strlength(dzyj)>50 then
errorinfo=errorinfo&"Email太长，不能超过50个字符！<br>"
end if
hj=trim(request("hj"))
if strlength(hj)>15 then
errorinfo=errorinfo&"呼机太长，不能超过15个字符！<br>"
end if
zzdz=trim(request("zzdz"))
if strlength(zzdz)>50 then
errorinfo=errorinfo&"住宅地址太长，不能超过25个汉字！<br>"
end if
cz=trim(request("cz"))
if strlength(cz)>15 then
errorinfo=errorinfo&"传真号码太长，不能超过15个字符！<br>"
end if
bz=trim(request("bz"))
if xm="" or dw="" then
response.write("<script language=""javascript"">")
response.write("alert(""姓名和单位不能为空！"");")
response.write("history.go(-1);")
response.write("</script>")
response.end
end if
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from personrecord where xm="&sqlstr(xm)&" and thisinfousername="&sqlstr(oabusyusername)&" and id<>"&id
rs.open sql,conn,1
if not rs.eof or not rs.bof then
conn.close
set rs=nothing
response.write("<script language=""javascript"">")
response.write("alert(""已有该用户的资料，请重新输入姓名！"");")
response.write("history.go(-1);")
response.write("</script>")
response.end
end if
if errorinfo="" then
sql = "update personrecord set "
sql = sql & "thisinfousername="&SqlStr(oabusyusername) & ", "
sql = sql & "recordtype="& cstr(lb) & ", "
sql = sql & "xm="& SqlStr(xm) & ", "
sql = sql & "company="&SqlStr(dw) & ", "
sql = sql & "userzw="&SqlStr(zw) & ", "
sql = sql & "companytel="&SqlStr(dhfj) & ", "
sql = sql & "fax="&SqlStr(cz) & ", "
sql = sql & "hometel="&SqlStr(zzdh) & ", "
sql = sql & "email="&SqlStr(dzyj) & ", "
sql = sql & "homeaddress="&SqlStr(zzdz) & ", "
sql = sql & "postcard="&SqlStr(yzbm) & ", "
sql = sql & "sex="&SqlStr(xb) & ", "
sql = sql & "handset="&SqlStr(sj) & ", "
sql = sql & "callset="&SqlStr(hj) & ","
sql=sql & "remark="&sqlstr(bz)& "where id="&id
conn.Execute sql
conn.close
set rs=nothing
%>
<br><br>
<center>
<font color="red" size="+1">
成功修改通讯录资料！
</font>
</center>
<br><br>
<%
else
%>
<div align="center">
<table widht="80%" border="0">
<tr><td>
<center><b><font color="red" size="+1">出错了</font></b></center><br><br>
<font color="#ee0000" size="+1"><%=errorinfo%></font>
<center><input type="button" value="返回" onclick="javascript:history.go( -1 );return true;"></center>
</td></tr></table>
</div>
<%
end if
else
%>
<script Language="JavaScript">
function form_check()
{
var l1=document.form1.xm.value.length;
if(l1==0)
{
window.alert("姓名为必填项！");
document.form1.xm.focus();
return (false);
}
var l2=document.form1.dw.value.length;
if(l2==0)
{
window.alert("单位为必填项！");
document.form1.dw.focus();
return (false);
}
}
</script>
<%
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from personrecord,persontype where personrecord.id="&id&" and persontype.id=personrecord.recordtype"
rs.open sql,conn,1
if rs.eof or rs.bof then
conn.close
set rs=nothing
response.write("<font color=""#ff0000"" size=""+3"">")
response.write("<center>错误，该条信息可能已经被删除！</center>")
response.write("</font>")
response.end
end if
if rs("thisinfousername")<>oabusyusername then
conn.close
set rs=nothing
response.write("<font color=""#ff0000"" size=""+1"">")
response.write("<center>对不起，您不能修改该条资料！</center>")
response.write("</font>")
response.end
end if
xm=rs("xm")
xb=rs("sex")
zw=rs("userzw")
lb=rs("recordtype")
dw=rs("company")
zzdh=rs("hometel")
yzbm=rs("postcard")
dhfj=rs("companytel")
sj=rs("handset")
hj=rs("callset")
dzyj=rs("email")
zzdz=rs("homeaddress")
cz=rs("fax")
bz=rs("remark")
%>
<center>
<br>
<form method="post" action="personeditrecord.asp?id=<%=id%>" name="form1" onsubmit="javascript:return form_check();">
<table border="1" cellpadding="5" cellspacing="0" width="80%" bordercolorlight="#808080" bordercolordark="#D4D0C8">
<tr>
<td width="122" align=center><b>姓
名</b></td>
<td width="182" bgcolor="#FFFFFF"><input type=text name="xm" size=23 value="<%=server.htmlencode(xm)%>" maxlength="10"><font color=red>*</font></td>
<td width="95" align=center><b>性
别</b></td>
<td width="190" bgcolor="#FFFFFF"><select name="xb" size="1">
<option value="男">男</option>
<option value="女">女</option>
</select>
<%
response.write("<script language=""javascript"">")
response.write("form1.xb.value="&chr(34)&xb&chr(34)&";")
response.write("</script>")
%>
</td>
</tr>
<tr>
<td align=center width="122"><b>职
务</b></td>
<td width="182" bgcolor="#FFFFFF"><input type=text name="zw" size=23 value="<%=server.htmlencode(zw)%>" maxlength="20"></td>
<td align=center width="95"><b>通讯录类别</b></td>
<td width="190" bgcolor="#FFFFFF">
<select size="1" name="lb">
<%
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from persontype where username='"&oabusyusername&"'"
rs.open sql,conn,1
if rs.eof or rs.bof then
conn.close
set rs=nothing
response.write("<script language=""javascript"">")
response.write("location.href=""personaddtype.asp"";")
response.write("</script>")
response.end
end if
do while not rs.eof
if rs("id")=clng(lb) then
%>
<option value="<%=rs("id")%>" selected><%=rs("typename")%></option>
<%
else
%>
<option value="<%=rs("id")%>"><%=rs("typename")%></option>
<%
end if
rs.movenext
loop
conn.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td align=center width="122"><b>单
位</b></td>
<td colspan="3" width="469" bgcolor="#FFFFFF"><input type=text name="dw" size=63 value="<%=server.htmlencode(dw)%>" maxlength="50"><font color=red>*</font></td>
</tr>
<tr>
<td align=center width="122"><b>住宅电话</b></td>
<td width="182" bgcolor="#FFFFFF"><input type=text name="zzdh" size=23 value="<%=server.htmlencode(zzdh)%>" maxlength="30" onkeypress="vbscript:checkkey()"></td>
<td align=center width="95"><b>邮政编码</b></td>
<td width="190" bgcolor="#FFFFFF"><input type=text name="yzbm" size=23 maxlength="6" value="<%=server.htmlencode(yzbm)%>" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center width="122"><b>电话或分机</b></td>
<td width="183" bgcolor="#FFFFFF"><input type=text name="dhfj" size=23 value="<%=server.htmlencode(dhfj)%>" maxlength="30" onkeypress="vbscript:checkkey()"></td>
<td width="96">
<p align="center"><b>手 机</b></p>
</td>
<td width="191" bgcolor="#FFFFFF"><input type=text name="sj" size=23 value="<%=server.htmlencode(sj)%>" maxlength="11" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center width="122"><b>呼
机</b></td>
<td width="183" bgcolor="#FFFFFF"><input type=text name="hj" size=23 value="<%=server.htmlencode(hj)%>" maxlength="15" onkeypress="vbscript:checkkey()"></td>
<td width="96">
<p align="center"><b>Email</b></td>
<td width="191" bgcolor="#FFFFFF"><input type=text name="dzyj" size=23 value="<%=server.htmlencode(dzyj)%>" maxlength="50"></td>
</tr>
<tr>
<td align=center width="122"><b>住宅地址</b></td>
<td width="467" colspan="3" bgcolor="#FFFFFF"><input type=text name="zzdz" size=63 value="<%=server.htmlencode(zzdz)%>" maxlength="50"></td>
</tr>
<tr>
<td align=center width="122"><b>传
真</b></td>
<td width="467" colspan="3" bgcolor="#FFFFFF"><input type=text name="cz" size=63 value="<%=server.htmlencode(cz)%>" maxlength="15" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center width="122"><b>备注说明</b></td>
<td colspan="3" width="469" bgcolor="#FFFFFF"><textarea rows="4" cols="62" name="bz"><%=server.htmlencode(bz)%></textarea></td>
</tr>
</table>
<font color=red>*</font>必须填写 <input type="submit" name="submit" value="修改"> <input type="button" value="返回" onclick="javascript:window.location.href='person_notebook.asp';">
</form>
</center>
<%
end if
%>
<div align="center">
<center>
<table>
<tr>
<td height=19>
<table border="0" cellpadding="0" cellspacing="0" width="610" height="19">
<tr>
<td width="100%" height=20><p align="center"><font color="#808080">IE37 © <a href="http://www.ie37.com" target="_blank">IE37.com</a></font></td>
</tr>
</table>
</td>
</tr>
<%
%>
</table>
</center>
</div>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -