📄 personaddrecord.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>
<%
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)&""
rs.open sql,conn,1
if not rs.eof or not rs.bof then
response.write("<script language=""javascript"">")
response.write("alert(""已有该用户的资料，请重新输入姓名！"");")
response.write("history.go(-1);")
response.write("</script>")
response.end
end if
if errorinfo="" then
sql = "Insert Into personrecord (thisinfousername,recordtype,xm,company,userzw,companytel,fax,hometel,email,homeaddress,postcard,sex,handset,callset,remark) Values( "
sql = sql & SqlStr(oabusyusername) & ", "
sql = sql & cstr(lb) & ", "
sql = sql & SqlStr(xm) & ", "
sql = sql & SqlStr(dw) & ", "
sql = sql & SqlStr(zw) & ", "
sql = sql & SqlStr(dhfj) & ", "
sql = sql & SqlStr(cz) & ", "
sql = sql & SqlStr(zzdh) & ", "
sql = sql & SqlStr(dzyj) & ", "
sql = sql & SqlStr(zzdz) & ", "
sql = sql & SqlStr(yzbm) & ", "
sql = sql & SqlStr(xb) & ", "
sql = sql & SqlStr(sj) & ", "
sql = sql & SqlStr(hj) & ","
sql=sql & sqlstr(bz)& ")"
conn.Execute sql
conn.close
set rs=nothing
%>
<br><br>
<center>
<font color=red size=3>
成功输入个人通讯录资料！<input type="button" value="继续增加" onclick="location.href='personaddrecord.asp'">
</font>
</center>
<%
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>
<center>
<br>
<form method="post" action="personaddrecord.asp" name="form1" onsubmit="javascript:return form_check();">
<table border="1" cellpadding="5" cellspacing="0" width="80%" bordercolorlight="#808080" bordercolordark="#D4D0C8">
<tr>
<td width="105" align=center><b>姓 名</b></td>
<td width="216" bgcolor="#FFFFFF"><input type=text name="xm" size=23 maxlength="10"><font color=red>*</font></td>
<td width="81" align=center><b>性 别</b></td>
<td width="190" bgcolor="#FFFFFF"><select name="xb" size="1">
<option value="男">男</option>
<option value="女">女</option>
</select></td>
</tr>
<tr>
<td align=center width="105"><b>职 务</b></td>
<td width="216" bgcolor="#FFFFFF"><input type=text name="zw" size=23 maxlength="20"></td>
<td align=center width="81"><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
%>
<option value="<%=rs("id")%>"><%=rs("typename")%></option>
<%
rs.movenext
loop
conn.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td align=center width="105"><b>单 位</b></td>
<td colspan="3" width="489" bgcolor="#FFFFFF"><input type=text name="dw" size=64 maxlength="50"><font color=red>*</font></td>
</tr>
<tr>
<td align=center width="105"><b>住宅电话</b></td>
<td width="216" bgcolor="#FFFFFF"><input type=text name="zzdh" size=23 maxlength="30" onkeypress="vbscript:checkkey()"></td>
<td align=center width="81"><b>邮政编码</b></td>
<td width="190" bgcolor="#FFFFFF"><input type=text name="yzbm" size=22 maxlength="6" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center width="105"><b>电话或分机</b></td>
<td width="217" bgcolor="#FFFFFF"><input type=text name="dhfj" size=23 maxlength="30" onkeypress="vbscript:checkkey()"></td>
<td width="82">
<p align="center"><b>手 机</b></p>
</td>
<td width="191" bgcolor="#FFFFFF"><input type=text name="sj" size=22 maxlength="11" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center width="105"><b>呼 机</b></td>
<td width="217" bgcolor="#FFFFFF"><input type=text name="hj" size=23 maxlength="15" onkeypress="vbscript:checkkey()"></td>
<td width="82">
<p align="center"><b>Email</b></td>
<td width="191" bgcolor="#FFFFFF"><input type=text name="dzyj" size=22 maxlength="50"></td>
</tr>
<tr>
<td align=center width="105"><b>住宅地址</b></td>
<td width="487" colspan="3" bgcolor="#FFFFFF"><input type=text name="zzdz" size=64 maxlength="50"></td>
</tr>
<tr>
<td align=center width="105"><b>传 真</b></td>
<td width="487" colspan="3" bgcolor="#FFFFFF"><input type=text name="cz" size=64 maxlength="15" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center width="105"><b>备注说明</b></td>
<td colspan="3" width="489" bgcolor="#FFFFFF"><textarea rows="4" cols="62" name="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 + -