📄 advancesearch.asp
字号:
Dim i
i = 0
Do While Not rs.BOF And Not rs.EOF
i = i + 1
strToPrint = strToPrint & " <tr>" & VBCrlf
strToPrint = strToPrint & " <td width=""60"" align=""center"">" & rs("cId") & "</td>" & VBCrlf
strToPrint = strToPrint & " <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
strToPrint = strToPrint & " <td><a href=""http://" & rs("cHomepage") & """ target=""_blank"">" &rs("cAddress") & "</td>" & VBCrlf
strToPrint = strToPrint & " <td>" & rs("cTel") & "</td>" & VBCrlf
'If Session("CRM_level") > 1 Then
strToPrint = strToPrint & " <td>" & rs("cType") & "</td>" & VBCrlf
strToPrint = strToPrint & " <td>" & rs("cUser") & "</td>" & VBCrlf
'End If
'If Session("CRM_level") = 9 Then
' strToPrint = strToPrint & " <td>" & rs("cLocal") & "</td>" & VBCrlf
'End If
If i >= intPageSize Then Exit Do
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户资料收集系统</title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function showHideHead(strSrc)
{
var strFile = strSrc.substring(strSrc.lastIndexOf("/"),strSrc.length);
if (strFile == "/arrow_up.gif"){
oHead.style.display = "none";
oHeadCtrl.src = "images/arrow_down.gif";
oHeadCtrl.alt = "显示头部";
oHeadBar.title = "显示头部";
}
else {
oHead.style.display = "block";
oHeadCtrl.src = "images/arrow_up.gif";
oHeadCtrl.alt = "隐藏头部";
oHeadBar.title = "隐藏头部";
}
}
if (this.location.href == top.location.href){
top.location.href = "";
}
-->
</script>
</head>
<body style="background-color: menu;" >
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr id="oHead" style="display: block;">
<td height="1" valign="top">
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><img src="images/null.gif" width="1" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="menu">
<tr>
<td align="left" background='images/tab_top_background_runner.gif'> <table width="5" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/null.gif" width="1" height="1"></td>
</tr>
</table>
<table onClick="window.location.replace('listAll.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr >
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">查看所有数据</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('addData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">添加数据</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('advanceSearch.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_on_left.gif" width="16" height="24"></td>
<td background="images/tab_on_middle.gif">高级搜索</td>
<td><img src="images/tab_on_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('dataForm.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">数据报表</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('exportData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">数据导出</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('question.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">问题集</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('plan.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">计划与总结</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<% If Session("CRM_level") = 9 Then %>
<table onClick="window.location.replace('transData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">数据转移</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('manageUser.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">用户管理</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('system_level.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">系统设置</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<% End If %>
<table onClick="window.location.replace('logout.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">注销</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.reload();" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">刷新</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="5"><img src="images/null.gif" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#999999"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="40" align="right"> </td>
<td>请填写搜索项目<br>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
dim ps,sq
'从小类表中取出数据
set ps=server.CreateObject("adodb.recordset")
sq="select * from baidu_square "
ps.open sq,conn,1,1
%>
<script language="JavaScript">
var num;
//定义数组
var calArray=new Array();
<%
dim j
j=0
do while not ps.eof
%>
//将小类表中的所有相关记录存到数组calArray的对应元素中。
calArray[<%=j%>]=new Array("<%=ps("squareid")%>","<%=ps("squareName")%>","<%=ps("areaid")%>");
<%
j=j+1
ps.movenext
loop
ps.close
set ps=nothing
%>
//给num赋值为记录总数
num=<%=j%>
function givevalue(myvalue){
/*当选择大类列表的值不为空时首先清空小类下拉列表的所有项目。不然小类列表中的项目会叠加的。
同时也是初始化 options 的值为0 */
document.searchForm.square.length = 0;
//循环写出请求的大类所对应的小类。
for (i=0;i < num; i++)
{
if (calArray[i][2] == myvalue)
{
document.searchForm.square.options[document.searchForm.square.length] = new Option(calArray[i][1], calArray[i][0],"","");
/*定义新的Option对象并赋值。options的索引值从0开始。new Option对象有4个属性，对应分别是：文本串、value、defaultSelect、selected。在这里只用了第一个和第二个。*/
}
}
}
</script>
<form name="searchForm" action="?subAction=searchItem" method="post">
<tr>
<td width="100" align="right">公司名称：</td>
<td><input name="company" type="text" id="company" size="24" maxlength="36"></td>
<td width="100" align="right">联系电话：</td>
<td><input name="tel" type="text" id="tel2" size="24" maxlength="36"></td>
</tr>
<tr>
<td align="right">交易状态：</td>
<td><p>
<label>
<input type="radio" name="cStatus" value="true">
已有交易记录</label>
<br>
<label>
<input type="radio" name="cStatus" value="false" >
没有交易记录</label>
<br>
</p>
</td>
<td align="right">交易金额：</td>
<td><input name="total" type="text" id="total" size="24" maxlength="36"></td>
</tr>
<tr>
<td align="right">地区：</td>
<td><select name="area" onChange="givevalue(document.searchForm.area.options[document.searchForm.area.selectedIndex].value)">
<%
dim firstid,noclass
set ps=server.CreateObject("adodb.recordset")
sq="select * from baidu_area order by areaid asc"
ps.open sq,conn,1,1
if ps.eof or ps.bof then
noclass=1
%>
<option selected>还没有添加大类</option>
<%
else
ps.movefirst
firstid=ps("areaid")
'在没有选择大类（页面刚载入）时要载入的大类。
%>
<option value="<%=ps("areaid")%>" selected><%=trim(ps("areaName"))%></option>
<%
ps.movenext
do while not ps.eof
%>
<option value="<%=ps("areaid")%>"><%=trim(ps("areaName"))%></option>
<%
ps.movenext
loop
end if
ps.close
set ps=nothing
%>
</select></td>
<td align="right">所属小区：</td>
<td><select name="square">
<%if noclass=1 then%>
<option value="" selected>没有小类</option>
<%
else
'在没有选择大类（页面刚载入）时要载入的小类，要跟默认的大类对应。
set ps=server.CreateObject("adodb.recordset")
sq="select * from baidu_square where areaid="&firstid
ps.open sq,conn,1,1
if ps.eof or ps.bof then
%>
<option value="" selected>没有小类</option>
<%
else
do while not ps.eof
%>
<option value="<%=ps("squareid")%>"><%=trim(ps("squareName"))%></option>
<%
ps.movenext
loop
end if
ps.close
set ps=nothing
end if
%>
</select></td>
</tr>
<tr>
<td align="right">业务种类：</td>
<td> <% = getList(1,"baidu_clientsType","","clientsType","type","客户类型") %> </td>
<td align="right">行业类型：</td>
<td> <% = getList(1,"baidu_clientsTrade","","clientsTrade","trade","行业类型") %> </td>
</tr>
<tr>
<td align="right">业务员：</td>
<td> <input name="user" type="text" id="user" size="12" maxlength="16"></td>
<td align="right">业务组：</td>
<td> <% = getList(2,"baidu_group","gId","gName","group","业务组") %> </td>
</tr>
<tr align="center">
<td colspan="4"><input type="submit" name="Submit" value=" 搜 索 ">
<input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
</tr>
</form>
</table></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="16" align="center" bgcolor="#999999" id="oHeadBar" style="cursor: hand;" title="隐藏头部" onClick="return showHideHead(document.all.oHeadCtrl.src);">
<img src="images/arrow_up.gif" alt="隐藏头部" width="16" height="16" align="absmiddle" id="oHeadCtrl"> </td>
</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF" style="padding: 10px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><% = strCounter %></td>
<td align="right">[<a href="?action=killSession">返回全部列表</a>]</td>
</tr>
</table>
<table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF"><% = strToPrint %>
</table></td>
</tr>
<tr>
<td height="16" align="right" bgcolor="#999999"><% Response.Write(Session("CRM_sql")) %><a href="#top"><img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a> </td>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -