📄 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 kufu where id="&request("id")&" order by id desc ",MM_EmpMain_STRING,3,3
if rs.eof then
response.write("没有找到！")
response.End
else
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<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(document.form1.dianhua.value==""){
alert("联系电话不能为空！")
document.form1.dianhua.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.客户性质.value==""){
alert("客户性质不能为空！")
document.form1.客户性质.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.city.value==""){
alert("请选择地区！")
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(dataReady=="1"){
document.form1.submit()
}
}
</script>
</head>
<body bgcolor="#EAF4FF" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="100%">
<form method="POST" name="form1" action="<%=MM_editAction%>"><input type=hidden name="id" value="<%=request("id")%>">
<tr>
<td valign="top"> <fieldset style="padding: 2;width:100%" class="fiedset">
<legend><font size="2">员工基本信息</font></legend>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" align="center">
<!--DWLayoutTable-->
<tr>
<td width="15%" align="right" class="Caption"><font color="#FF0000" size="2"><strong>*</strong></font><font size="2">公司名称:</font></td>
<td width="338" class="ValueArea"> <input name="company" type="text" class="Text" id="company" style="width:100%" size="20" Need="1" value="<%=rs("公司名称")%>">
</td>
<td width="144" class="Caption"> <div align="right"><font color="#FF0000" size="2"><strong>*</strong></font><font size="2">联系人:</font></div></td>
<td width="338" class="ValueArea"><input name="contect" type="text" class="Text" id="contect" style="width:100%" size="20" Need="1" value="<%=rs("联系人")%>"></td>
</tr>
<tr>
<td align="right" class="Caption" ><font color="#FF0000" size="2"><strong>*</strong></font><font size="2">城市:</font></td>
<td class="ValueArea">
<select name="city"><%if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true then
response.write(createSel("地区",rs("城市")))
else
response.write(usersel(""))
end if%>
</select></td>
<td class="Caption"> <div align="right"><font size="2">职务:</font></div></td>
<td class="ValueArea"><select name="zhiwu">
<%=createSel("职务",rs("职务"))%>
</select></td>
</tr>
<tr>
<td align="right" class="Caption"><font color="#FF0000" size="2"><strong>*</strong></font><font size="2">客户性质:</font></td>
<td colspan="3" class="ValueArea"><select name="客户性质" size="1" onChange="onsearch(this)" class="Text" id="客户性质" style="width:80">
<%=createSel("客户性质",rs("客户性质"))%>
</select></td>
</tr>
<tr>
<td align="right" class="Caption"><font size="2">公司地址:</font></td>
<td colspan="3" class="ValueArea"><input name="Address" type="text" class="Text" id="Address2" style="width:100%" size="20" value="<%=rs("地址")%>"></td>
</tr>
<tr>
<td align="right" class="Caption"><font color="#FF0000" size="2"><strong>*</strong></font><font size="2"> 联系电话
:</font></td>
<td class="ValueArea"><input name="dianhua" type="text" class="Text" id="dianhua" style="width:100%" size="20" Need="1" value="<%=rs("联系电话")%>"></td>
<td class="Caption"> <div align="right"><font color="#FF0000" size="2"></font><font size="2"> 手机号码:
</font></div></td>
<td class="ValueArea"> <input name="shouji" type="text" class="Text" id="shouji" style="width:100%" value="<%=rs("手机")%>" size="20" Need="1"></td>
</tr>
<tr>
<td align="right" class="Caption"><font size="2">传真:</font></td>
<td class="ValueArea"><input name="zhuanzhen" type="text" class="Text" id="zhuanzhen" style="width:100%" value="<%=rs("传真")%>" size="20">
</td>
<td class="Caption"> <div align="right"><font size="2">邮箱:</font></div></td>
<td class="ValueArea"><input name="email" type="text" class="Text" id="email" style="width:100%" size="20" value="<%=rs("email")%>" DataType="TelNo"></td>
</tr>
<tr>
<td height="21" align="right" class="Caption"><font size="2">客户等级:</font></td>
<td colspan="3" valign="top" class="ValueArea"> <input type="radio" name="kfdj" value="意向客户" <%if rs("客户等级")="意向客户" then%> checked<%end if%>>
意向客户
<input type="radio" name="kfdj" value="无价值" <%if rs("客户等级")="无价值" then%> checked<%end if%>>
无价值客户
<input type="radio" name="kfdj" value="已购买" <%if rs("客户等级")="已购买" then%> checked<%end if%>>
已购买客户</td>
</tr>
<tr>
<td height="57" align="right" nowrap class="Caption">备注:</td>
<td colspan="3" valign="top" class="ValueArea"><textarea name="qt" style="width:400;"><%=rs("备注")%></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 kufu where id="&request("id")&" order by id desc ",MM_EmpMain_STRING,3,3
if not rs.eof then
rs("公司名称")=request("company")
rs("email")=request("email")
rs("联系人")=request("contect")
rs("联系电话")=request("dianhua")
rs("手机")=request("shouji")
rs("地址")=request("Address")
rs("职务")=request("zhiwu")
rs("城市")=request("city")
rs("传真")=request("zhuanzhen")
rs("备注")=request("qt")
rs("录入人")=session("name")
rs("客户等级")=request("kfdj")
rs("客户性质")=request("客户性质")
rs("date")=date()
rs.update
' append the query string to the redirect URL
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 + -