buyer_manage.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 336 行 · 第 1/2 页
ASP
336 行
<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<%
Dim Makking
Makking = Request.QueryString("Makking")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿博尔</title>
</head>
<link href="Images/Admin.css" rel="stylesheet" type="text/css">
<%
Select Case Makking
Case ""
%>
<body>
<table width="98%" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D8D8D8">
<tr>
<td height="30" align="left" bgcolor="ffffff"><table width="100%" height="100%" border="0" cellpadding="3" cellspacing="0">
<tr bgcolor="eeeeee">
<td width="5%" align="center"><img src="Images/1.gif" width="13" height="12"></td>
<td width="78%"><span class="style2">管理中心 >>> 管理客户</span></td>
<td width="17%" align="right">
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D8D8D8">
<tr>
<td valign="top" bgcolor="ffffff"> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<form name="form" method="post" action="Buyer_Manage.asp?Makking=Search">
<input type="hidden" name="City" value="">
<input type="hidden" name="Class" value="">
<tr>
<td height="30" align="right">关键词：</td>
<td height="30"> <input name="key" type="text" id="key" size="30"></td>
</tr>
<tr>
<td height="30" align="right">客户分类：</td>
<td height="30"> <select name="Search_Type">
<option value="">全部客户</option>
<option value="潜在客户" <%IF Session("My_Search_Type")="潜在客户" Then%>selected<%End IF%>>潜在客户</option>
<option value="新客户" <%IF Session("My_Search_Type")="新客户" Then%>selected<%End IF%>>新客户</option>
<option value="意向客户" <%IF Session("My_Search_Type")="意向客户" Then%>selected<%End IF%>>意向客户</option>
<option value="准客户" <%IF Session("My_Search_Type")="准客户" Then%>selected<%End IF%>>准客户</option>
<option value="客户" <%IF Session("My_Search_Type")="客户" Then%>selected<%End IF%>>客户</option>
<option value="问题客户" <%IF Session("My_Search_Type")="问题客户" Then%>selected<%End IF%>>问题客户</option>
<option value="黑名单" <%IF Session("My_Search_Type")="黑名单" Then%>selected<%End IF%>>黑名单</option>
</select></td>
</tr>
<tr>
<td height="30" align="right">搜索内容：</td>
<td height="30"> <select name="Search_Body">
<option value="Buyer_Name" <%IF Session("My_Search_Body")="Buyer_Name" Then%>selected<%End IF%>>名称</option>
<option value="Buyer_Address" <%IF Session("My_Search_Body")="Buyer_Address" Then%>selected<%End IF%>>地址</option>
<option value="Buyer_Postcode" <%IF Session("My_Search_Body")="Buyer_Postcode" Then%>selected<%End IF%>>邮编</option>
<option value="Buyer_Telephone" <%IF Session("My_Search_Body")="Buyer_Telephone" Then%>selected<%End IF%>>电话</option>
<option value="Buyer_Fax" <%IF Session("My_Search_Body")="Buyer_Fax" Then%>selected<%End IF%>>传真</option>
<option value="Buyer_Introduce" <%IF Session("My_Search_Body")="Buyer_Introduce" Then%>selected<%End IF%>>简介</option>
<option value="Buyer_Website" <%IF Session("My_Search_Body")="Buyer_Website" Then%>selected<%End IF%>>网站</option>
<option value="Buyer_Mail" <%IF Session("My_Search_Body")="Buyer_Mail" Then%>selected<%End IF%>>邮件</option>
<option value="Legal_Person" <%IF Session("My_Search_Body")="Legal_Person" Then%>selected<%End IF%>>法人</option>
</select></td>
</tr>
<tr>
<td height="30" align="right">行业：</td>
<td height="30"> <IFRAME frameBorder=0 id=FrmRight name=right src="../inc/Class.asp?NumberID=<%=Session("My_Search_Class")%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"></IFRAME></td>
</tr>
<tr>
<td height="30" align="right">地区：</td>
<td height="30"> <IFRAME frameBorder=0 id=FrmRight name=right src="../inc/City.asp?NumberID=<%=Session("My_Search_City")%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"></IFRAME></td>
</tr>
<tr>
<td height="30" align="right">所属员工ID：</td>
<td height="30"> <input name="Employee_ID" type="text" id="Employee_ID" size="30"></td>
</tr>
<tr>
<td height="30" align="right">经营模式：</td>
<td height="30">
<select name="Search_Fashion">
<OPTION VALUE="" >--经营模式--</OPTION>
<OPTION VALUE="生产型" <%IF Manage_Mode = "生产型" Then%>selected<%END if%>>生产型</OPTION>
<OPTION VALUE="贸易型" <%IF Manage_Mode = "贸易型" Then%>selected<%END if%>>贸易型</OPTION>
<OPTION VALUE="服务型" <%IF Manage_Mode = "服务型" Then%>selected<%END if%>>服务型</OPTION>
<OPTION VALUE="政府或其他机构" <%IF Manage_Mode = "政府或其他机构" Then%>selected<%END if%>>政府或其他机构</OPTION>
</select></td>
</tr>
<tr>
<td height="30" align="right">状态：</td>
<td height="30">
<select name="Buyer_Estate">
<option value="">--全部--</option>
<option value="正常" <%IF Buyer_Estate = "正常" Then%>selected<%End IF%>>正常</option>
<option value="更改" <%IF Buyer_Estate = "更改" Then%>selected<%End IF%>>更改</option>
<option value="注销" <%IF Buyer_Estate = "注销" Then%>selected<%End IF%>>注销</option>
</select></td>
</tr>
<tr>
<td height="30" align="right"> </td>
<td height="30"> <input name="imageField" type="image" src="Images/see.gif" width="36" height="21" border="0"></td>
</tr>
</form>
</table> </td>
</tr>
</table>
<%
Case "Search"
Dim Search_key,Search_Body,Search_Fashion,Search_City,Search_Class,Time_1,Time_2,Employee_ID,Search_Type
Dim SQL_Search_key,SQL_Search_City,SQL_Search_Fashion,SQL_Search_Type
Search_key = Trim(Request("Key"))
Search_Type = Trim(Request("Search_Type"))
Search_Fashion= Trim(Request("Search_Fashion"))
Search_Body = Trim(Request("Search_Body"))
Search_City = Trim(Request("City"))
Search_Class = Trim(Request("Class"))
Auditing = Trim(Request("Auditing"))
Employee_ID = Request("Employee_ID")
Buyer_Estate = request("Buyer_Estate")
Order = Trim(Request("Order"))
IF Search_key <> "" Then
SQL_Search_key = " AND "& Search_Body &" like '%"& Search_key &"%' "
End IF
IF Search_Type <> "" Then
SQL_Search_Type = " AND My_Buyer_Type = '"& Search_Type &"' "
End IF
IF Search_Fashion <> "" Then
SQL_Search_Fashion = " AND Manage_Mode = '"& Search_Fashion &"' "
End IF
IF Search_City <> "" Then
SQL_Search_City = " AND City like '"& Search_City &"%' "
End IF
IF Search_Class <> "" Then
SQL_Search_Class = " AND Buyer_Trade like '"& Search_Class &"%' "
End IF
IF Buyer_Estate <> "" Then
SQL_Buyer_Estate = " AND Buyer_Estate = '"& Buyer_Estate &"' "
End IF
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?