operation_manage.asp

来自「适用于网络/信息企业」· ASP 代码 · 共 370 行 · 第 1/2 页

ASP
370
字号
<!--#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">管理中心 &gt;&gt;&gt; 业务管理</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="Operation_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" id="Search_Type">
                <option value="">全部类型</option>
                <option value="ECMS建站" <%IF Session("My_Search_Type") = "ECMS建站" Then%>selected<%End IF%>>ECMS建站</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="EIP建设" <%IF Session("My_Search_Type") = "EIP建设" Then%>selected<%End IF%>>EIP建设</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="Pact_ID" <%IF Session("My_Search_Body")="Pact_ID" Then%>selected<%End IF%>>合同编号</option>
                <option value="Pact_Name" <%IF Session("My_Search_Body")="Pact_Name" Then%>selected<%End IF%>>合同名称</option>
                <option value="Buyer_Name" <%IF Session("My_Search_Body")="Buyer_Name" Then%>selected<%End IF%>>客户名称</option>
                <option value="Pact_Money" <%IF Session("My_Search_Body")="Pact_Money" Then%>selected<%End IF%>>合同金额</option>
                <option value="Affix_To_Time" <%IF Session("My_Search_Body")="Affix_To_Time" Then%>selected<%End IF%>>签署时间</option>
                <option value="End_Time" <%IF Session("My_Search_Body")="End_Time" Then%>selected<%End IF%>>截止日期</option>
                <option value="Operation_Content" <%IF Session("My_Search_Body")="Operation_Content" 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="0">记录创建时间</option>
                <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="等待" <%IF Session("My_Search_State") = "等待" Then%>selected<%End IF%>>等待</option>
                <option value="制作" <%IF Session("My_Search_State") = "制作" Then%>selected<%End IF%>>制作</option>
                <option value="完成" <%IF Session("My_Search_State") = "完成" Then%>selected<%End IF%>>完成</option>
              </select> </td>
          </tr>
          <tr> 
            <td height="30" align="right">&nbsp;</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_Type,Search_City,Search_Class,Time_1,Time_2,Employee_ID
Dim SQL_Search_key,SQL_Search_City,SQL_Search_Type

Search_key    = Trim(Request("Key"))
Search_Type   = Trim(Request("Search_Type"))
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 = "End_Time"
IF Time_Type = "1" Then  TimeArr = "Affix_To_Time"
IF Time_Type = "0" Then  TimeArr = "Operation.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_Type <> "" Then

	SQL_Search_Type = " AND Operation_Type = '"& Search_Type &"' "

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 Operation_State = '"& Search_State &"' "

End IF

IF Employee_ID <> "" Then

	SQL_Employee_ID = " AND Operation.Employee_ID = '"& Employee_ID &"' "

End IF

IF Time_1 <> "" AND Time_2 <> "" Then

	SQL_Time = " AND ("& TimeArr &" >= '"& Time_1 &"' AND "& TimeArr &" <= '"& Time_2 &"') "

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?