📄 d_indexhighsearch.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<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>
<%
str4 = "select * from a_stuffinfo where delflag='0' and saleflag='1'"
set myrs4=pubconn.execute(str4)
%>
<script language="javascript">
var onecount4;
onecount4=0;
subbm=new Array();
<%
count3 = 0
do while not myrs4.eof
%>
subbm[<%=count3%>]=new Array("<%=trim(myrs4("departcode"))%>","<%=trim(myrs4("name"))%>","<%=trim(myrs4("stuffnum"))%>");
<%
count3 = count3 + 1
myrs4.movenext
loop
%>
onecount4=<%=count3%>;
function cbm(bmid)
{
document.myform.ywy.length = 0;
var bmid=bmid;
var j;
var l;
var f;
document.myform.ywy.options[0] = new Option('业务员','');
for (l=0;l<onecount4;l++)
{
if (subbm[l][0]==bmid)
{
document.myform.ywy.options[document.myform.ywy.length] = new Option(subbm[l][1], subbm[l][2]);
}
}
}
</script>
<script language="vbscript">
sub exit1()
window.close
end sub
</script>
<form name="myform" method="post" action="D_khindexMainFrm.asp" target="main">
<table border=1 celsapcing=0 width="100%" cellspacing="0" height="80" style="border-collapse: collapse" cellpadding="0" bgcolor="#F1E8DA">
<tr>
<td align="right" width="74" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" height="25">客户名称</td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="128" height="25">
<p align="left">
<input type="text" name="khmc" size=18></p>
</td>
<input type="hidden" name=bz value="1">
<td width="127" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" height="25">
<p align="right">所属部门</p>
</td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="144" height="25">
<select size="1" name="xsbm" onChange="cbm(document.myform.xsbm.options[document.myform.xsbm.selectedIndex].value)">
<option selected value="">所属部门</option>
<%
sql1="select departcode,name from a_departinfo "
set rs1 = pubconn.Execute (sql1)
do while not rs1.eof
%>
<option value="<%=trim(rs1("departcode"))%>"><%=trim(rs1("name"))%></option>
<%
rs1.movenext
loop %>
</select> </td>
</tr>
<tr>
<td align="right" width="74" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" height="25">业 务 员</td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="133" height="25">
<select size="1" name="ywy">
<option selected value="">业务员</option>
</select> </td>
<td align="right" width="128" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" height="25">区
域</td>
<td width="127" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" height="25">
<select name="qy" style="width: 120; height: 23">
<%qysql="select NumValue from A_ConfigInfo Where Subject='salearea'"
set qyrs=pubconn.execute(qysql)
Areavalue=qyrs("NumValue")
SaleArea=Split(AreaValue,",")
%> <option value="">请选择: </option>
<% for i=0 to UBound(SaleArea) %>
<option value="<%=SaleArea(i)%>" ><%=SaleArea(i)%></option>
<% next %>
</select></td>
<td bordercolor="#F1E8DA" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" width="144" height="25"> </td>
</tr>
<tr>
<td align="right" width="74" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" height="25">行 业</td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="133" height="25">
<select name="hy" style="width:120">
<%
hysql="select NumValue from A_ConfigInfo Where Subject='carreer'"
set hyrs=pubconn.execute(hysql)
HYvalue=hyrs("NumValue")
hyz=Split(HYValue,",") %>
<option value="">请选择: <% for i=0 to UBound(HYz) %> </option>
<option value="<%=HYz(i)%>" ><%=HYz(i)%></option>
<%next %>
</select></td>
<td align="right" width="128" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" height="25">信息来源</td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="127" height="25">
<select name="xxly" style="width:120">
<%xxsql="select NumValue from A_ConfigInfo Where Subject='infosource'"
set xxrs=pubconn.execute(xxsql)
infovalue=xxrs("NumValue")
info=Split(infoValue,",") %>
<option value="">请选择: <%for i=0 to UBound(info) %></option>
<option value="<%=info(i)%>" ><%=info(i)%></option>
<%next %>
</select></td>
</table>
<p align="center">
<input type="submit" value="查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"> <input type="button" value="关闭" onclick="exit1()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"></p>
<p align="center">
</p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -