📄 editclientinf.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
id=request("id")
%>
<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>编辑客户资料</b> </td>
<form method="post" action="client_notebook.asp">
<td><input type="submit" value="返回"><input type="hidden" name="project" value="<%=request("project")%>">
</td>
</form>
</tr>
</table>
</center>
<%
if request("delit")="删除" then
set conn=opendb("oabusy","conn","accessdsn")
sql = "delete * from clientinf where id=" & id
conn.Execute sql
conn.close
set conn=nothing
%>
<br><br>
<center>
<font color="red" size="+1">
成功删除客户信息！
</font>
</center>
<br><br>
<%
else
if request("submit")="修改" then
errorinfo=""
name=request("name")
if strlength(name)>10 then
errorinfo=errorinfo&"客户姓名太长，不能超过5个汉字！<br>"
end if
company=request("company")
if strlength(company)>50 then
errorinfo=errorinfo&"所在单位太长，不能超过25个汉字！<br>"
end if
address=request("address")
if strlength(address)>50 then
errorinfo=errorinfo&"单位地址太长，不能超过25个汉字！<br>"
end if
project=request("project")
if strlength(project)>50 then
errorinfo=errorinfo&"业务项目太长，不能超过25个汉字！<br>"
end if
tel=request("tel")
if strlength(tel)>30 then
errorinfo=errorinfo&"联系电话太长，不能超过30个字符！<br>"
end if
callno=request("callno")
if strlength(callno)>15 then
errorinfo=errorinfo&"呼机号码太长，不能超过15个字符！<br>"
end if
handset=request("handset")
if strlength(handset)>11 then
errorinfo=errorinfo&"手机号码太长，不能超过11个字符！<br>"
end if
fax=request("fax")
if strlength(fax)>15 then
errorinfo=errorinfo&"传真号码太长，不能超过15个字符！<br>"
end if
remark=request("remark")
email=request("email")
if strlength(email)>50 then
errorinfo=errorinfo&"Email太长，不能超过50个字符！<br>"
end if
postcard=request("postcard")
if strlength(postcard)>6 then
errorinfo=errorinfo&"邮政编码太长，不能超过6个字符！<br>"
end if
dept=request("dept")
if strlength(dept)>30 then
errorinfo=errorinfo&"部门太长，不能超过15个汉字！<br>"
end if
sex=request("sex")
position=request("position")
if strlength(position)>30 then
errorinfo=errorinfo&"职位太长，不能超过15个汉字！<br>"
end if
if errorinfo="" then
set conn=opendb("oabusy","conn","accessdsn")
sql = "update clientinf set "
sql = sql & "name=" & SqlStr(name) & ", "
sql = sql & "company=" & SqlStr(company) & ", "
sql = sql & "address=" & SqlStr(address) & ", "
sql = sql & "project=" & SqlStr(project) & ", "
sql = sql & "tel=" & SqlStr(tel) & ", "
sql = sql & "callno=" & SqlStr(callno) & ", "
sql = sql & "handset=" & SqlStr(handset) & ", "
sql = sql & "fax=" & SqlStr(fax) & ", "
sql = sql & "remark=" & SqlStr(remark) & ", "
sql = sql & "email=" & SqlStr(email) & ", "
sql = sql & "postcard=" & SqlStr(postcard) & ", "
sql = sql & "dept=" & SqlStr(dept) & ", "
sql = sql & "sex=" & SqlStr(sex) & ", "
sql = sql & "position=" & SqlStr(position) & " where id=" & id
conn.Execute sql
conn.close
set conn=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.name.value.length;
if(l1==0)
{
window.alert("客户姓名必须填");
document.form1.name.focus();
return (false);
}
var l2=document.form1.company.value.length;
if(l2==0)
{
window.alert("客户所在单位必须填");
document.form1.company.focus();
return (false);
}
var l3=document.form1.project.value.length;
if(l3==0)
{
window.alert("业务项目必须填");
document.form1.project.focus();
return (false);
}
}
</script>
<%
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from clientinf where id=" & id
rs.open sql,conn,1
%>
<center>
<form method="post" action="editclientinf.asp" name="form1">
<br>
<table border="1" cellpadding="5" cellspacing="0" width="95%" bordercolorlight="#808080" bordercolordark="#d4d0c8">
<tr>
<td align=center width="15%"><b>客户姓名</b></td>
<td bgcolor="#FFFFFF"><input type=text name="name" size=23 value="<%=server.htmlencode(rs("name"))%>" maxlength="10"><font color=red>*</font></td>
<td align=center width="15%"><b>客户性别</b></td>
<td bgcolor="#FFFFFF"><select name="sex" size="1">
<option value="男"<%=selected(rs("sex"),"男")%>>男</option>
<option value="女"<%=selected(rs("sex"),"女")%>>女</option>
</select></td>
</tr>
<tr>
<td align=center><b>职 位</b></td>
<td bgcolor="#FFFFFF"><input type=text name="position" size=23 value="<%=server.htmlencode(rs("position"))%>" maxlength="30"></td>
<td align=center><b>业务项目</b></td>
<td bgcolor="#FFFFFF"><input type=text name="project" size=23 value="<%=server.htmlencode(rs("project"))%>" maxlength="30"><font color=red>*</font></td>
</tr>
<tr>
<td align=center><b>所在单位</b></td>
<td colspan="3" bgcolor="#FFFFFF"><input type=text name="company" size=62 value="<%=server.htmlencode(rs("company"))%>" maxlength="50"><font color=red>*</font></td>
</tr>
<tr>
<td align=center><b>部 门</b></td>
<td bgcolor="#FFFFFF"><input type=text name="dept" size=23 value="<%=server.htmlencode(rs("dept"))%>" maxlength="30"></td>
<td align=center><b>邮政编码</b></td>
<td bgcolor="#FFFFFF"><input type=text name="postcard" size=23 value="<%=server.htmlencode(rs("postcard"))%>" maxlength="6" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center><b>单位地址</b></td>
<td colspan="3" bgcolor="#FFFFFF"><input type=text name="address" size=62 value="<%=server.htmlencode(rs("address"))%>" maxlength="50"></td>
</tr>
<tr>
<td align=center><b>传真号码</b></td>
<td colspan="3" bgcolor="#FFFFFF"><input type=text name="fax" size=62 value="<%=server.htmlencode(rs("fax"))%>" maxlength="15" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center><b>联系电话</b></td>
<td bgcolor="#FFFFFF"><input type=text name="tel" size=23 value="<%=server.htmlencode(rs("tel"))%>" maxlength="30" onkeypress="vbscript:checkkey()"></td>
<td align=center><b>手 机</b></td>
<td bgcolor="#FFFFFF"><input type=text name="handset" size=23 value="<%=server.htmlencode(rs("handset"))%>" maxlength="11" onkeypress="vbscript:checkkey()"></td>
</tr>
<tr>
<td align=center><b>呼 机</b></td>
<td bgcolor="#FFFFFF"><input type=text name="callno" size=23 value="<%=server.htmlencode(rs("callno"))%>" maxlength="15" onkeypress="vbscript:checkkey()"></td>
<td align=center><b>电子邮箱</b></td>
<td bgcolor="#FFFFFF"><input type=text name="email" size=23 value="<%=server.htmlencode(rs("email"))%>" maxlength="50"></td>
</tr>
<tr>
<td align=center><b>备注说明</b></td>
<td colspan="3" bgcolor="#FFFFFF"><textarea rows="4" cols="61" name="remark"><%=server.htmlencode(rs("remark"))%></textarea></td>
</tr>
</table>
<input type="hidden" name="id" value=<%=id%>>
<font color=red>*</font>必须填写 <input type="submit" name="submit" value="修 改" onclick="javascript:return form_check();"> <input type="submit" name="delit" value="删 除" onclick="javascript:return window.confirm('此操作后数据无法恢复，您真的要删除该客户的资料吗？');">
</form>
</center>
<%
conn.close
set conn=nothing
end if
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 + -