📄 empmain_modynew.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true then
else
call fnCheckRight1("客户信息","2")
end if
If (CStr(Request("MM_insert")) = "form1") Then
call kufudatasave
end if
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from T_Client where F_Id="&request("id")&" order by F_Id desc ",MM_EmpMain_STRING,3,3
if rs.eof then
response.write("没有找到客户！")
response.End
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改客户信息</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script language="javascript" src="js_Lib/fnCheckForm.js"></script>
<script language="javascript" src="Js_Lib/Calendar.js"></script>
<script>
function CheckForm(){
if(trim(document.form1.company.value)==""){
alert("公司名称，不能为空！")
document.form1.company.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.contect.value==""){
alert("联系人不能为空！")
document.form1.contect.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(trim(document.form1.city.value)==""){
alert("请选择地区！")
document.form1.city.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.tel.value==""){
alert("联系电话不能为空！")
document.form1.tel.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.product.value==""){
alert("请选择产品！")
document.form1.product.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(dataReady=="1"){
document.form1.submit()
}
}
</script>
</head>
<body bgcolor="#EAF4FF" class="body">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="100%">
<fieldset style="padding: 2;width:100%" class="fiedset"><legend>公司基本信息</legend>
<form method="POST" name="form1" action="<%=MM_editAction%>"><input type=hidden name="id" value="<%=request("id")%>">
<input name="IsVerify" type="hidden" value="1" id="IsVerify">
<tr>
<td valign="top">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" align="center">
<tr>
<td width="15%" align="right" class="Caption">公司名称:</td>
<td width="338" class="ValueArea"> <input name="company" type="text" class="Text" id="company" style="width:100%" size="20" value="<%=rs("F_CompanyName")%>">
</td>
<td width="144" class="Caption">联系人:</td>
<td width="338" class="ValueArea"><input name="contect" type="text" class="Text" id="contect" style="width:100%" value="<%=rs("F_Contect")%>" size="20" ></td>
</tr>
<tr>
<td align="right" class="Caption" >省市:</td>
<td class="ValueArea">
<select name="city"><%if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true then
response.write(createSel("地区",rs("F_City")))
else
response.write(usersel(""))
end if%>
</select></td>
<td class="Caption"> 职务:</td>
<td class="ValueArea"><select name="zhiwu">
<%=createSel("职务",rs("F_Jobs"))%>
</select></td>
</tr>
<tr>
<td align="right" class="Caption"> 联系电话:</td>
<td class="ValueArea"><input name="tel" type="text" class="Text" id="tel" style="width:100%" size="20" value="<%=rs("F_Tel")%>"></td>
<td class="Caption"> 网址:</td>
<td class="ValueArea"> <input name="netaddress" type="text" class="Text" id="netaddress" style="width:100%" size="20" value="<%=rs("F_NetAddress")%>"></td>
</tr>
<tr>
<td align="right" class="Caption">传真:</td>
<td class="ValueArea"><input name="fox" type="text" class="Text" id="fox" style="width:100%" size="20" value="<%=rs("F_Fox")%>">
</td>
<td class="Caption">邮箱:</td>
<td class="ValueArea"><input name="email" type="text" class="Text" id="email" style="width:100%" size="20" value="<%=rs("F_Email")%>"></td>
</tr>
<tr>
<td align="right" class="Caption">产品:</td>
<td class="ValueArea"><select name="product">
<%=createSel("产品",rs("F_Product"))%>
</select>
</td>
<td class="Caption">邮编:</td>
<td class="ValueArea"><input name="post" type="text" class="Text" id="post" style="width:100%" size="20" maxlength="6" value="<%=rs("F_Post")%>"></td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">通讯地址:</td>
<td colspan="3" valign="top" class="ValueArea"><textarea name="Address" style="width:400;" id="Address"><%=rs("F_Address")%>
</textarea></td>
</tr>
<tr>
<td height="21" align="right" class="Caption">客户等级:</td>
<td colspan="3" valign="top" class="ValueArea"><input type="radio" name="khdj" value="中期客户" <%if rs("F_Levels")="中期客户" then%> checked<%end if%>>
中期客户
<input type="radio" name="khdj" value="前期客户" <%if rs("F_Levels")="前期客户" then%> checked<%end if%>>
前期客户
<input type="radio" name="khdj" value="后期客户" <%if rs("F_Levels")="后期客户" then%> checked<%end if%>>
后期客户</td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">备注:</td>
<td colspan="3" valign="top" class="ValueArea"><textarea name="qt" style="width:400;"><%=rs("F_Remark")%>
</textarea></td>
</tr>
</table>
</fieldset>
<div align="right"> <font size="2"> <br>
<input type="button" value="提交" name="B1" class="button" onClick="CheckForm()">
<input type="reset" value="重置" name="B2" class="button">
</font> </div><%=msg%>
</td>
</tr>
<input type="hidden" name="MM_insert" value="form1">
</form>
</table>
</body>
</html><%end if
rs.close
set rs=nothing
sub kufudatasave
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from T_Client where F_Id="&request("id")&" order by F_Id desc ",MM_EmpMain_STRING,3,3
if not rs.eof then
rs("F_CompanyName")=request("company")
rs("F_Contect")=request("contect")
rs("F_City")=request("city")
rs("F_Jobs")=request("zhiwu")
rs("F_Tel")=request("tel")
rs("F_NetAddress")=request("netaddress")
rs("F_Fox")=request("fox")
rs("F_Email")=request("email")
rs("F_Product")=request("product")
rs("F_Post")=request("post")
rs("F_Address")=request("Address")
rs("F_Levels")=request("khdj")
rs("F_Remark")=request("qt")
rs("F_Redate")=date()
rs.update
response.write("<script> alert('修改成功！'); window.close();</script>")
End If
rs.close
set rs=nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -