📄 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 kufu where id="&request("id")&" ",MM_EmpMain_STRING,3,3
if not rs.eof then
company1=rs("公司名称")
contect=rs("联系人")
dihua=rs("联系电话")
kddj=rs("客户等级")
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 tj ",MM_EmpMain_STRING,3,3
rs.addnew
rs("companyid")=request("companyid")
rs("联系人")=request("contect")
rs("联系电话")=request("dianhua")
rs("跟踪方式")=request("fs")
Set rs1= Server.CreateObject ("ADODB.RecordSet")
rs1.open "select * from kufu where id="&request("id")&" ",MM_EmpMain_STRING,3,3
if not rs1.eof then
rs1("redate")=request("date")
if request("kfdj")="" then
rs1("客户等级")="意向客户"
else
rs1("客户等级")=request("kfdj")
end if
rs1.update
end if
rs1.close
set rs1=nothing
rs("跟踪内容")=request("content")
rs("业务员")=session("name")
rs("日期")=date()
rs.update
rs.close
set rs=nothing
response.Redirect("EmpMain_marr_Disp.asp?ID="&request("id")&"")
' append the query string to the redirect URL
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 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(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><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="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"> <div align="right"><font color="#FF0000" size="2"><strong>*</strong></font><font size="2">联系人:</font></div></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" ><font color="#FF0000" size="2"><strong>*</strong></font><font size="2">跟踪方式:</font></td>
<td class="ValueArea"><select name="fs"><%=createSel("跟踪方式","")%>
</select>
</td>
<td class="Caption"> <div align="right"><font size="2">日期:</font></div></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"><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=<%=dihua%>></td>
<td class="Caption"> <div align="right"><font size="2">客户等级: </font></div></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 + -