📄 editstafaddressinf.asp

📁 很好的OA办公系统
💻 ASP
字号:
<%response.expires=0%>
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/bgsub.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checked.asp"-->
<!--#include file="asp/maillink.asp"-->
<!--#include file="asp/keepformat.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="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>编辑<%=request("name")%>通讯录</b>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<form method="post" action="all_notebook.asp">
<td><input type="submit" name="submit" value="返回"></td>
<input type="hidden" name="userdept" value="<%=request("userdept")%>">
</form>
</tr>
</table>
</center>
<%
 
%>
<center>
<%
companytel=request("companytel")
fax=request("fax")
hometel=request("hometel")
homeaddress=request("homeaddress")
postcard=request("postcard")
sex=request("sex")
handset=request("handset")
callset=request("callset")
remark=request("remark")
email=request("email")
function checkinput()
	errinf=""
	if strlength(companytel)>30 then
		errinf=errinf&"电话或分机太长，不能超过30个字符！<br>"
	end if
	if strlength(fax)>15 then
		errinf=errinf&"传真号码太长，不能超过15个字符！<br>"
	end if
	if strlength(hometel)>30 then
		errinf=errinf&"住宅电话太长，不能超过30个字符！<br>"
	end if
	if strlength(postcard)>6 then
		errinf=errinf&"邮政编码太长，不能超过6个字符！<br>"
	end if
	if strlength(handset)>11 then
		errinf=errinf&"手机号码太长，不能超过11个字符！<br>"
	end if
	if strlength(callset)>15 then
		errinf=errinf&"传呼号码太长，不能超过15个字符！<br>"
	end if
	if strlength(email)>50 then
		errinf=errinf&"Email太长，不能超过50个字符！<br>"
	end if
	checkinput=errinf
end function
'如果输入
if request("submit")="输入" then
	errorinfo=""
	errorinfo=checkinput()
	if errorinfo="" then
		set conn=opendb("oabusy","conn","accessdsn")
		sql = "Insert Into stafaddressinf (username,companytel,fax,hometel,homeaddress,postcard,sex,handset,callset,remark,email) Values( "
		sql = sql & SqlStr(request("username")) & ", "
		sql = sql & SqlStr(companytel) & ", "
		sql = sql & SqlStr(fax) & ", "
		sql = sql & SqlStr(hometel) & ", "
		sql = sql & SqlStr(homeaddress) & ", "
		sql = sql & SqlStr(postcard) & ", "
		sql = sql & SqlStr(sex) & ", "
		sql = sql & SqlStr(handset) & ", "
		sql = sql & SqlStr(callset) & ", "
		sql = sql & SqlStr(remark) & ", "
		sql = sql & SqlStr(email) & ")"
		conn.Execute sql
%>
<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  
	if request("submit")="修改" then
		errorinfo=""
		errorinfo=checkinput()
		if errorinfo="" then
			set conn=opendb("oabusy","conn","accessdsn")  
			sql = "update stafaddressinf set "  
			sql = sql & "companytel=" & SqlStr(companytel) & ", "  
			sql = sql & "fax=" & SqlStr(fax) & ", "  
			sql = sql & "hometel=" & SqlStr(hometel) & ", "  
			sql = sql & "homeaddress=" & SqlStr(homeaddress) & ", "  
			sql = sql & "postcard=" & SqlStr(postcard) & ", "  
			sql = sql & "sex=" & SqlStr(sex) & ", "  
			sql = sql & "handset=" & SqlStr(handset) & ", "  
			sql = sql & "callset=" & SqlStr(callset) & ", "  
			sql = sql & "remark=" & SqlStr(remark) & ", "  
			sql = sql & "email=" & SqlStr(email) & " where username=" & sqlstr(request("username"))  
			conn.Execute sql   
%>  
<br><br>  
<center><font color=red size=3>成功修改员工通讯资料！</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  
		if request("submit")="删除" then  
			set conn=opendb("oabusy","conn","accessdsn")  
			sql="delete from stafaddressinf where username=" & sqlstr(request("username"))  
			conn.Execute sql  
%>  
<br><br>  
<center><font color="red" size="+1">成功删除员工通讯资料！</font></center>
<br><br>
<%  
		else  
		'打开数据库读出通讯信息  
		set conn=opendb("oabusy","conn","accessdsn")  
		set rs=server.createobject("adodb.recordset")  
		sql="select * from stafaddressinf where username=" & sqlstr(request("username"))  
		rs.open sql,conn,1  
		if not rs.eof and not rs.bof then  
			companytel=server.htmlencode(rs("companytel"))
			fax=server.htmlencode(rs("fax"))
			hometel=server.htmlencode(rs("hometel"))
			homeaddress=server.htmlencode(rs("homeaddress"))
			postcard=server.htmlencode(rs("postcard"))
			sex=server.htmlencode(rs("sex"))
			handset=server.htmlencode(rs("handset"))
			callset=server.htmlencode(rs("callset"))
			remark=server.htmlencode(rs("remark"))
			email=server.htmlencode(rs("email"))
			submit="修改"  
		else  
			companytel=""
			fax=""
			hometel=""
			homeaddress=""
			postcard=""
			sex=""
			handset=""
			callset=""
			remark=""
			email=""
			submit="输入"
		end if  
%>  
<br>  
<form method="post" action="editstafaddressinf.asp">  
<table border="0" cellpadding="5" cellspacing="1" width="95%" bgcolor="#C0C0C0">  
  <tr>  
    <td height=25 align="center" width="15%" bgcolor="#FFFFFF"><b>员工姓名</b></td>  
    <td width="35%" bgcolor="#FFFFFF"><%=request("name")%></td>  
    <td align="center" width="15%" bgcolor="#FFFFFF"><b>性别</b></td>  
    <td width="35%" bgcolor="#FFFFFF">  
<select name="sex" size=1>  
<option value="男"<%=selected("男",sex)%>>男</option>  
<option value="女"<%=selected("女",sex)%>>女</option>  
</select>  
</td>  
  </tr>  
  <tr>  
    <td height=25 align="center" bgcolor="#FFFFFF"><b>所在部门</b></td>  
    <td bgcolor="#FFFFFF"><%=request("userdept")%></td>  
    <td align="center" bgcolor="#FFFFFF"><b>职务</b></td>  
    <td bgcolor="#FFFFFF"><%=request("userlevel")%></td>  
  </tr>  
  <tr>  
    <td height=25 align="center" bgcolor="#FFFFFF"><b>电话或分机</b></td>  
    <td bgcolor="#FFFFFF"><input type="text" name="companytel" size=20 value="<%=companytel%>" onkeypress="vbscript:checkkey()" maxlength="30"></td>  
    <td align="center" bgcolor="#FFFFFF"><b>传真</b></td>  
    <td bgcolor="#FFFFFF"><input type="text" name="fax" size=20 value="<%=fax%>"  onkeypress="vbscript:checkkey()" maxlength="15"></td>  
  </tr>  
  <tr>  
    <td height=25 align="center" bgcolor="#FFFFFF"><b>手机号码</b></td>  
    <td bgcolor="#FFFFFF"><input type="text" name="handset" size=20 value="<%=handset%>" onkeypress="vbscript:checkkey()" maxlength="11"></td>  
    <td align="center" bgcolor="#FFFFFF"><b>呼机</b></td>  
    <td bgcolor="#FFFFFF"><input type="text" name="callset" size=20 value="<%=callset%>" onkeypress="vbscript:checkkey()" maxlength="15"></td>  
  </tr>  
  <tr>  
    <td height=25 align="center" bgcolor="#FFFFFF"><b>住宅电话</b></td>  
    <td bgcolor="#FFFFFF"><input type="text" name="hometel" size=20 value="<%=hometel%>" onkeypress="vbscript:checkkey()" maxlength="30"></td>  
    <td align="center" bgcolor="#FFFFFF"><b>Email</b></td>  
    <td bgcolor="#FFFFFF"><input type="text" name="email" size=20 value="<%=email%>" maxlength="50"></td>  
  </tr>  
  <tr>  
    <td height=25 align="center" bgcolor="#FFFFFF"><b>宿舍地址</b></td>  
    <td colspan="3" bgcolor="#FFFFFF"><input type="text" name="homeaddress" size=59 value="<%=homeaddress%>" maxlength="50"></td>  
  </tr>  
  <tr>  
    <td height=25 align="center" bgcolor="#FFFFFF"><b>宿舍邮编</b></td>  
    <td colspan="3" bgcolor="#FFFFFF"><input type="text" name="postcard" size=59 value="<%=postcard%>" onkeypress="vbscript:checkkey()" maxlength="6"></td>  
  </tr>  
  <tr>  
    <td height=25 align="center" bgcolor="#FFFFFF"><b>备注说明</b></td>  
    <td colspan="3" bgcolor="#FFFFFF"><textarea rows="4" name="remark" cols="58"><%=remark%></textarea>
</td>  
  </tr>  
</table>  
<input type="submit" name="submit" value="<%=submit%>">&nbsp;&nbsp;<input type="submit" name="submit" value="删除" onclick="javascript:return window.confirm('您真的要删除该员工的通讯资料吗？')">  
<input type="hidden" name="userdept" value="<%=request("userdept")%>">    
<input type="hidden" name="username" value="<%=request("username")%>">    
<input type="hidden" name="name" value="<%=request("name")%>">    
<input type="hidden" name="userlevel" value="<%=request("userlevel")%>">    
</form>  
<%  
		end if  
	end if  
end if  
%>  
</center>  
<%  
%>
<div align="center">
  <center>
<table align="center">
    <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 &copy; <a href="http://www.ie37.com" target="_blank">IE37.com</a></font></td> 
		  </tr>
        </table>
      </td>
    </tr>
<%  
%>  
  </table>
  </center>
</div>
</body>
💿 文件大小 4282 K
👤 上传用户 dojoy
📂 所属分类 OA系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -