link_task_manage.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 404 行 · 第 1/2 页
ASP
404 行
<!--#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="Link_Task_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_Fashion">
<option value="">全部方式</option>
<option value="电话联系" <%IF Session("My_Search_Fashion")="电话联系" Then%>selected<%End IF%>>电话联系</option>
<option value="拜访客户" <%IF Session("My_Search_Fashion")="拜访客户" Then%>selected<%End IF%>>拜访客户</option>
<option value="传真资料" <%IF Session("My_Search_Fashion")="传真资料" Then%>selected<%End IF%>>传真资料</option>
<option value="邮件发送" <%IF Session("My_Search_Fashion")="邮件发送" Then%>selected<%End IF%>>邮件发送</option>
<option value="其它方式" <%IF Session("My_Search_Fashion")="其它方式" Then%>selected<%End IF%>>其它方式</option>
</select></td>
</tr>
<tr>
<td height="30" align="right">搜索内容：</td>
<td height="30"> <select name="Search_Body">
<option value="Link_Task_Name" <%IF Session("My_Search_Body")="Link_Task_Name" Then%>selected<%End IF%>>任务名称</option>
<option value="Link_Task_Time" <%IF Session("My_Search_Body")="Link_Task_Time" Then%>selected<%End IF%>>时间安排</option>
<option value="Buyer_Name" <%IF Session("My_Search_Body")="Buyer_Name" Then%>selected<%End IF%>>所在企业</option>
<option value="Link_Task_Name" <%IF Session("My_Search_Body")="Link_Task_Name" Then%>selected<%End IF%>>联系人</option>
<option value="Link_Info" <%IF Session("My_Search_Body")="Link_Info" Then%>selected<%End IF%>>联系信息</option>
<option value="Link_Task_Causation" <%IF Session("My_Search_Body")="Link_Task_Causation" 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="Time_Type">
<option value="1">任务创建时间</option>
<option value="2">任务执行时间</option>
</select></td>
</tr>
<tr>
<td height="30" align="right">开始时间：</td>
<td> <input name="Time_1" type="text" onclick="JSCalendar(this)" value="<%=Time_1%>" size="12" readonly>
</td>
</tr>
<tr>
<td height="30" align="right">结束时间：</td>
<td> <input name="Time_2" type="text" onClick="JSCalendar(this)" value="<%=Time_2%>" size="12" readonly></td>
</tr>
<tr>
<td height="30" align="right">任务状态：</td>
<td height="30"> <select name="Search_State">
<option value="">全部</option>
<option value="等待">等待</option>
<option value="完成">完成</option>
<option value="取消">取消</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
Dim SQL_Search_key,SQL_Search_City,SQL_Search_Fashion
Search_key = Trim(Request("Key"))
Search_Fashion= Trim(Request("Search_Fashion"))
Search_Body = Trim(Request("Search_Body"))
Search_City = Trim(Request("City"))
Search_Class = Trim(Request("Class"))
Search_State = Trim(Request("Search_State"))
Time_Type = Trim(Request("Time_Type"))
IF Time_Type = "" Then Time_Type = "2"
IF Time_Type = "2" Then TimeArr = "Link_Task_Time"
IF Time_Type = "1" Then TimeArr = "Link_Task.DateTime"
Time_1 = Request("Time_1")
Time_2 = Request("Time_2")
Employee_ID = Request("Employee_ID")
IF Search_key <> "" Then
SQL_Search_key = " AND "& Search_Body &" like '%"& Search_key &"%' "
End IF
IF Search_Fashion <> "" Then
SQL_Search_Fashion = " AND Link_Fashion = '"& 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 Search_State <> "" Then
SQL_Search_State = " AND Link_Task_State = '"& Search_State &"' "
End IF
IF Employee_ID <> "" Then
SQL_Employee_ID = " AND Link_Task.Employee_ID = '"& Employee_ID &"' "
End IF
IF Time_1 <> "" AND Time_2 <> "" Then
SQL_Time = " AND ("& TimeArr &" >= '"& Time_1 &"' AND "& TimeArr &" <= '"& Time_2 &"') "
End IF
'-------------------------------------------排序
Order = Trim(Request("Order"))
IF Request.QueryString("Page") = "" OR Request.QueryString("Page")<=1 Then
IF Order = Session("Order") Then Order = "-"& Order
End IF
Select Case Order
Case ""
SQL_Order = "Order by "& TimeArr &""
Case "1"
SQL_Order = "Order By Link_Task_Name"
Case "-1"
SQL_Order = "Order By Link_Task_Name Desc"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?