📄 search.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim rs,conn
If Request.Form.Count > 0 Then
Dim C
Dim StrWhere
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(conn)
StrWhere = C.Search("Is")
'Response.Write StrWhere
'Response.End
Response.Redirect "List.asp?W=" & Server.URLEncode(StrWhere)
conn.Close
Set conn = Nothing
End If
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
<!--读取分类字段赋给JS数组-->
dim count
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
set rs=server.createobject("adodb.recordset")
rs.open "select * from T_CRM_Guest_industry",conn,1,1
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Gindustry"))%>","<%= rs("Gtype_ID")%>","<%= rs("ID")%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.Gindustry.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Gindustry.options[document.myform.Gindustry.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
<HTML><HEAD>
<form action="" method="post" name=myform>
</HEAD>
<BODY>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr align="middle">
<td width="15%">客户查询</td>
<td width="85%"> </td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGname>客户名称</td>
<td><input class="Input" name="Gname" Check="1" Show="客户名称" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGtype>行业</td>
<td>
<%
Set rs = conn.Execute("select * from T_CRM_Guest_type")
if rs.eof and rs.bof then
Response.Write "请先添加客户行业信息"
else
%>
<select name="Gtype" onChange="changelocation(document.myform.Gtype.options[document.myform.Gtype.selectedIndex].value)">
<option selected value="<%=rs("ID")%>"><%=trim(rs("Gtype"))%></option>
<%
dim selclass
selclass=rs("ID")
rs.movenext
do while not rs.eof
%>
<option value="<%=rs("ID")%>"><%=trim(rs("Gtype"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
</td>
</td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGindustry>客户类型</td>
<td>
<%
rs.open "select * from T_CRM_Guest_industry where Gtype_ID="&Cint(selclass) ,conn,1,3
if rs.eof and rs.Bof then
response.Write "请先添加客户类型信息"
rs.close
else
%>
<select name="Gindustry">
<option value="<%=rs("ID")%>" selected><%=rs("Gindustry")%></option>
<%
rs.movenext
do while not rs.eof
%>
<option value="<%=rs("ID")%>"><%=rs("Gindustry")%></option>
<%
rs.movenext
loop
end if
%>
</select>
</td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGkind>企业性质</td>
<td><input class="Input" name="Gkind" Check="1" Show="企业性质" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGcorporate>法人代表</td>
<td><input class="Input" name="Gcorporate" Check="1" Show="法人代表" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGtel>联系电话</td>
<td><input class="Input" name="Gtel" Check="1" Show="联系电话" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGaddress>地址</td>
<td><input class="Input" name="Gaddress" Check="1" Show="地址" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGpost>邮编</td>
<td><input class="Input" name="Gpost" Check="1" Show="邮编" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGfox>传真</td>
<td><input class="Input" name="Gfox" Check="1" Show="传真" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGprovince>所在省份</td>
<td><input class="Input" name="Gprovince" Check="1" Show="所在省份" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGcity>所在城市</td>
<td><input class="Input" name="Gcity" Check="1" Show="所在城市" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsCreateTime>创建日期</td>
<td>从<input class=Input name="CreateTime" readonly onclick="InputDate(this)" style="HEIGHT: 22px; WIDTH: 80px" Check="1" Show="创建时间">至<input class="Input" name="CreateTime" style="HEIGHT: 22px; WIDTH: 80px" Check="1" readonly Show="CreateTime" onclick="InputDate(this)"></td>
</tr>
</table>
<table cellspacing=1 cellpadding=3>
<tr>
<td>
<input type="submit" name="Submit" class=Button value="提 交">
<input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
<td></td>
</tr>
</table>
</FORM>
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>
<!-- #include virtual="Templet/Templet.asp" -->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -