📄 empmain_jiangcheng_disp.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%if session("name")="" then
response.write("你还未登录本系统！")
else
public company1
public content
public dihua
public kddj
if request("id")<>"" then
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from T_Client where F_Id="&request("id")&" ",MM_EmpMain_STRING,3,3
if not rs.eof then
company1=rs("F_CompanyName")
contect=rs("F_Contect")
dihua=rs("F_Tel")
kddj=rs("F_Levels")
else
company1=""
contect=""
dihua=""
kddj=""
end if
rs.close
set rs=nothing
end if
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
MM_abortEdit = false
MM_editQuery = ""
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
MM_editTable = "EmpGeneralInfo"
MM_editRedirectUrl = "EmpMain_AddNew_Sucess1.asp"
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from T_Count ",MM_EmpMain_STRING,3,3
rs.addnew
rs("F_CompanyId")=request("companyid")
rs("F_Contect")=request("contect")
rs("F_LinkTel")=request("dianhua")
rs("F_LinkWay")=request("fs")
Set rs1= Server.CreateObject ("ADODB.RecordSet")
rs1.open "select * from T_Client where F_Id="&request("id")&" ",MM_EmpMain_STRING,3,3
if not rs1.eof then
rs1("F_Redate")=request("date")
if request("kfdj")="" then
rs1("F_Levels")="前期客户"
else
rs1("F_Levels")=request("kfdj")
end if
rs1.update
end if
rs1.close
set rs1=nothing
rs("F_LinkContent")=request("content")
rs("F_BusinessMan")=session("name")
rs("F_Date")=date()
rs.update
rs.close
set rs=nothing
response.Redirect("EmpMain_marr_Disp.asp?ID="&request("id")&"")
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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(dataReady=="1"){
document.form1.submit()
}
}
</script>
</head>
<body bgcolor="#EAF4FF" topmargin="0">
<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="companyid" value="<%=request("id")%>">
<tr>
<td valign="top">
<fieldset style="padding: 2;width:100%" class="fiedset">
<legend>联系信息添加</legend>
<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="35%" class="ValueArea"> <input name="company" type="text" class="Text" id="company" style="width:100%" size="20" Need="1" value=<%=company1%>>
</td>
<td width="15%" class="Caption">联系人:</td>
<td width="35%" class="ValueArea"><input name="contect" type="text" class="Text" id="contect" style="width:100%" size="20" Need="1" value=<%=contect%>></td>
</tr>
<tr>
<td align="right" class="Caption" >联系方式:</td>
<td class="ValueArea"><select name="fs"><%=createSel("跟踪方式","")%>
</select>
</td>
<td class="Caption">日期:</td>
<td class="ValueArea"><input name="date" type="text" class="Text" id="zhiwu" onclick="getDate(this,'2')" readonly style="cursor:hand" size="20" value="<%=date()%>"></td>
</tr>
<tr>
<td align="right" class="Caption"> 联系电话:</td>
<td class="ValueArea"><input name="dianhua" type="text" class="Text" id="dianhua" style="width:100%" size="20" Need="1" value=<%=dihua%>></td>
<td class="Caption"> 客户等级:</td>
<td class="ValueArea"> <input type="radio" name="kfdj" value="中期客户" <%if kddj="" or kddj="中期客户" then %>
checked
<%end if%>>
中期客户
<input type="radio" name="kfdj" value="前期客户" <%if kddj="前期客户" then %>
checked
<%end if%>>
前期客户
<input type="radio" name="kfdj" value="后期客户" <%if kddj="后期客户" 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="content" style="width:100%;height:50;OVERFLOW-Y: visible" class="ValueArea"></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>
</td>
</tr>
<input type="hidden" name="MM_insert" value="form1">
</form>
</table>
</body>
</html><%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -