📄 d_highsearch.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../include/Pubconn.asp"-->

<!--#include file="../include/PubConnCode.asp"-->
<%''***********开发者:周国义*****************%>
<%''           发时间：2001/8/18             %>
<%''           功能:高级查询的主界面          %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>

<body>
<%'###########################得到销售区域#############################
 set AdoRs1=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='salearea'"
 AdoRS1.Open lcSql,PubConn,1,1
 Areavalue=Adors1("NumValue")
 if not isNull(Areavalue) then
 	SaleArea=Split(AreaValue,",") 					
 end if
 Set Adors1=Nothing%>

<%'###########################得到行业#############################
 set AdoRs2=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='carreer'"
 AdoRS2.Open lcSql,PubConn,1,1
 HYvalue=Adors2("NumValue")
 if not isNull(HYvalue) then
 	HY=Split(HYValue,",") 					
 end if
 Set Adors2=Nothing%>
<%'###########################得到信息来源#############################
 set AdoRs3=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='infosource'"
 AdoRS3.Open lcSql,PubConn,1,1
 infovalue=Adors3("NumValue")
 if not isNull(infovalue) then
 	info=Split(infoValue,",") 					
 end if
 Set Adors3=Nothing%>
 <%'###########################得到资产规模#############################
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='statescale'"
 AdoRS4.Open lcSql,PubConn,1,1
 statevalue=Adors4("NumValue")
 if not isNull(statevalue) then
 	state=Split(stateValue,",") 					
 end if
 Set Adors4=Nothing%>
<%'###########################得到效益状况#############################
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='benefitstatus'"
 AdoRS4.Open lcSql,PubConn,1,1
 statevalue=Adors4("NumValue")
 if not isNull(statevalue) then
 	benefit=Split(stateValue,",") 					
 end if
 Set Adors4=Nothing%>
 
 <%function getYGName(aa) ''取员工姓名
  set rs1=server.CreateObject("adodb.recordset") 
  if rs1.State=1 then rs1.Close
  rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
  if rs1.RecordCount<=0 then 
     getYGName=""
  else
     getYGName=rs1.Fields("name")
  end if
  end function%>

   <script language="vbscript">
     sub ok1()
        document.form1.tag.value="HightSearch"
         document.form1.submit
      '   window.close
     end sub
   </script>
   <script language="vbscript">
     sub exit1()
        window.close
     end sub
   </script>

   <script language = "JavaScript">
var count1;                                //*********************88选择业务员
var count2;
count2=0;
Stuffarray = new Array();

<%count1=0
set rs=server.CreateObject("adodb.recordset")
  rs.open "SELECT * FROM A_StuffInfo where SaleFlag='1' and delflag='0'",pubconn,1,3
  if rs.recordcount> 0 then
     do while not rs.eof %>
        Stuffarray [<%=count1%>] = new Array("<%= trim(rs("DepartCode"))%>","<%= trim(rs("StuffNum"))%>","<%= trim(rs("Name"))%>");
       <%count1 = count1 + 1
        rs.movenext
     loop
  end if
  rs.close
  set rs=nothing%>
  count2=<%=count1%>;
 function changelocation()
  {
    document.form1.m_Careeror.length = 0;
    var locationid=locationid;
    var i;
    document.form1.m_Careeror.options[0] = new Option('请选择','');
    for (i=0;i < count2; i++)
     {
       if (Stuffarray [i][0] == document.form1.m_BelongDepart.value)
         {
            document.form1.m_Careeror.options[document.form1.m_Careeror.length] = new Option(Stuffarray [i][2], Stuffarray [i][1]);

         }
     }
    }
</script>

  <form name="form1" method="post" action="D_khMainFrm.asp" target="main">  
       <table border=1 celsapcing=0  width="100%" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" bordercolorlight="#F1E8DA"> 
       
       <tr> 
          <td width="12%" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">客户名称</td>
               <%if session("HightSearch")=True and session("m_clientname")<>"" then%>
                    <td width="123" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" name="m_clientname" size=12 value=<%=session("m_clientname")%>></td> 
               <%else%>
                    <td width="118" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" name="m_clientname" size=18></td>
12 下一页
⌨️ 快捷键说明

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