📄 search.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjRS,StrSQL,ObjRSTypeSelect,conn,rs
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( 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.Redirect "List.asp?W=" & Server.URLEncode(StrWhere)
conn.Close
Set conn = Nothing
End If
%>
<%Sub Main%>
<HTML><HEAD>
<form action="" method="post">
</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=IsGtype_ID>行业名称</td>
<td>
<%
Set ObjRSTypeSelect = conn.Execute("select * from T_CRM_Guest_type")
If ObjRSTypeSelect.EOF and ObjRSTypeSelect.Bof Then
response.write "请先添加客户行业"
Response.End
else
%>
<select name="Gtype_ID">
<option value="<%=ObjRSTypeSelect("ID")%>" selected><%=ObjRSTypeSelect("Gtype")%></option>
<%
ObjRSTypeSelect.movenext
do while not ObjRSTypeSelect.eof
%>
<option value="<%=ObjRSTypeSelect("ID")%>"><%=ObjRSTypeSelect("Gtype")%></option>
<%
ObjRSTypeSelect.movenext
loop
ObjRSTypeSelect.close
%>
</select>
<%End if%>
</td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsGindustry>客户类型</td>
<td><input class="Input" name="Gindustry" 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>
<%conn.close
Set conn=Nothing%>
<%End Sub%>
<%'==================================================================%>
<!-- #include virtual="Templet/Templet.asp" -->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -