📄 search.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
If Request.Form.Count > 0 Then
Dim C,conn
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%>
<script language=javascript>
function SelectRoleIDs(IDs)
{
window.open("SelectGuest.asp?IDs="+IDs,"RoleWin","width=600,height=420,scrollbars=yes")
}
function ChangeRole(IDs,Names)
{
document.forms[0].Guest_id.value = IDs
document.forms[0].Guest_Name.value = Names
window.focus()
}
</script>
<%'------------------------------------------------------------------%>
<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=IsLname>姓名</td>
<td><input class="Input" name="Lname" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr>
<td align="left"><input type="checkbox" name=IsGuest_id>所属客户</td>
<td><input type="text" class=Input readonly Check=0 Show="所属客户" onchange="SelectRoleIDs(Guest_id.value)" onkeydown="SelectRoleIDs(Guest_id.value)" onclick="SelectRoleIDs(Guest_id.value)" name="Guest_Name" value=""><input type=button class=Button value="选择客户" onclick="SelectRoleIDs(Guest_id.value)" id=button1 name=button1>
<input name=Guest_id value="" type=hidden></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLposition>职务</td>
<td><input class="Input" name="Lposition" Check="1" Show="职务" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLmobile>移动电话</td>
<td><input class="Input" name="Lmobile" Check="1" Show="移动电话" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLphone>家里电话</td>
<td><input class="Input" name="Lphone" Check="1" Show="家里电话" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLoffice>办公室电话</td>
<td><input class="Input" name="Loffice" Check="1" Show="办公室电话" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLaddress>地址</td>
<td><input class="Input" name="Laddress" Check="1" Show="地址" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLpost>邮编</td>
<td><input class="Input" name="Lpost" Check="1" Show="邮编" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLfox>传真</td>
<td><input class="Input" name="Lfox" Check="1" Show="传真" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input type="checkbox" name=IsLcity>所在城市</td>
<td><input class="Input" name="Lcity" 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 + -