?? d_highsearch.asp
字號:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<%''***********開發(fā)者:周國義*****************%>
<%'' 發(fā)時(shí)間：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>
<%'###########################得到銷售區(qū)域#############################
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%>
<%'###########################得到行業(yè)#############################
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%>
<%'###########################得到資產(chǎn)規(guī)模#############################
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選擇業(yè)務(wù)員
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=0 celsapcing=0 width="100%" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<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>
<%end if%>
<td width="123" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<p align="right">客戶類型</p>
</td>
<td width="117" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" size=18 name="m_type" readonly value=<%=trim(request("par_type"))%>></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="122">
<p align="right">
所屬部門</p>
</td>
<td width="120" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_BelongDepart" style="width: 120" onclick="changelocation()">
<option value="">請選擇: <%set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select * from A_DepartInfo",pubconn,1,3
if rs.recordcount>0 then%> <%rs.movefirst
while not rs.eof%> <%if session("HightSearch")=True and session("m_BelongDepart")=rs.fields("DepartCode") then%>
<option value=<%=rs.fields("DepartCode")%> selected><%=rs.fields("Name")%> <%else%>
<option value=<%=rs.fields("DepartCode")%>><%=rs.fields("Name")%> <%end if%> <%rs.movenext
wend%> <%end if%>
</select></td>
</tr>
<tr>
<td width="12%" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">業(yè) 務(wù) 員</td>
<td width="123" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_Careeror" style="width: 120; height: 23" >
<option value="">請選擇: <%if session("HightSearch")=True and session("m_Careeror")<>"" then%>
<option value="<%=session("m_Careeror")%>" selected><%=getYGName(session("m_Careeror"))%> <%end if%>
</select></td>
<td width="118" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">客戶級別</td>
<td width="123" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_level" style="width:120">
<option value="">請選擇：
<%if session("HightSearch")=True and session("m_level")="戰(zhàn)略客戶" then%>
<option value="戰(zhàn)略客戶" selected>戰(zhàn)略客戶
<%else%>
<option value="戰(zhàn)略客戶">戰(zhàn)略客戶
<%end if%>
<%if session("HightSearch")=True and session("m_level")="價(jià)值客戶" then%>
<option value="價(jià)值客戶" selected>價(jià)值客戶
<%else%>
<option value="價(jià)值客戶">價(jià)值客戶
<%end if%>
<%if session("HightSearch")=True and session("m_level")="一般客戶" then%>
<option value="一般客戶" selected>一般客戶
<%else%>
<option value="一般客戶">一般客戶
<%end if%>
</select></td>
<td width="117" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<p align="right">
區(qū) 域</p>
</td>
<td width="122" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_Area" style="width: 120; height: 23">
<option value="">請選擇: <% for i=0 to UBound(SaleArea) %> <%if session("HightSearch")=True and session("m_Area")=SaleArea(i) then%>
<option value="<%=SaleArea(i)%>" selected><%=SaleArea(i)%></option>
<%else%>
<option value="<%=SaleArea(i)%>" ><%=SaleArea(i)%></option>
<%end if%>
<% next %>
</select></td>
</tr>
<tr>
<td width="12%" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">行 業(yè)</td>
<td width="123" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_Occupation" style="width:120">
<option value="">請選擇: <% for i=0 to UBound(HY) %> <%if session("HightSearch")=True and session("m_Occupation")=HY(i) then%>
<option value="<%=HY(i)%>" selected><%=HY(i)%></option>
<%else%>
<option value="<%=HY(i)%>" ><%=HY(i)%></option>
<%end if%>
<%next %>
</select></td>
<td width="118" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">資產(chǎn)規(guī)模</td>
<td width="123" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_AssetScale" style="width:120">
<option value="">請選擇: <% for i=0 to UBound(state) %> <%if session("HightSearch")=True and session("m_AssetScale")=state(i) then%>
<option value="<%=state(i)%>" selected><%=state(i)%></option>
<%else%>
<option value="<%=state(i)%>" ><%=state(i)%></option>
<%end if%>
<% next %>
</select></td>
<td width="117" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">效益狀況
</td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="122"><select name="m_BenefitStatus" style="width:120">
<option value="">請選擇: <%for i=0 to UBound(benefit) %> <%if session("HightSearch")=True and session("m_BenefitStatus")=benefit(i) then%>
<option value="<%=benefit(i)%>" selected><%=benefit(i)%></option>
<%else%>
<option value="<%=benefit(i)%>" ><%=benefit(i)%></option>
<%end if%>
<% next %>
</select></td>
</tr>
<tr>
<td width="12%" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">信息來源</td>
<td width="123" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_InformationSource" style="width:120">
<option value="">請選擇: <%for i=0 to UBound(info) %> <%if session("HightSearch")=True and session("m_InformationSource")=info(i) then%>
<option value="<%=info(i)%>" selected><%=info(i)%></option>
<%else%>
<option value="<%=info(i)%>" ><%=info(i)%></option>
<%end if%>
<%next %>
</select></td>
<td colspan=4 bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="490">
<p align="right"> </p>
</table>
<table border="1" width="100%" style="border-width:0; border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" style="border-style: none; border-width: medium">
</td>
</tr>
<tr>
<td width="100%" style="border-style: none; border-width: medium">
<p align="center">
<input type="button" value="查詢" onclick="ok1()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"> <input type="button" value="關(guān)閉" onclick="exit1()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"></td>
</tr>
<input type="hidden" name="tag">
</table>
</form>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -