📄 search.asp

📁 功能齐全的oa系统
💻 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%>
<%'------------------------------------------------------------------%>

	<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=IsProName>项目名称</td>
		<td><input class="Input" name="ProName" Check="1" Show="项目名称" ></td>
	</tr>
    <tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_hao>合同号</td>
		<td><input class="Input" name="B_hao" Check="1" Show="合同号" ></td>
	</tr>
    <tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_number>编号</td>
		<td><input class="Input" name="B_number" Check="1" Show="编号" ></td>
	</tr>
    <tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_text>合同简述</td>
		<td><input class="Input" name="B_text" Check="1" Show="合同简述" ></td>
	</tr>
	<tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_jia>合同甲方</td>
		<td><input class="Input" name="B_jia" Check="1" Show="合同甲方" ></td>
	</tr>
	<tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_yi>合同乙方</td>
		<td><input class="Input" name="B_yi" Check="1" Show="合同乙方" ></td>
	</tr>
	<tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_time>合同期限</td>
		<td><input class="Input" name="B_time" Check="1" Show="合同期限" ></td>
	</tr>
	<tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_address>签署地点</td>
		<td><input class="Input" name="B_address" Check="1" Show="签署地点" ></td>
	</tr>
	<tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_jia_commissary>甲方代表</td>
		<td><input class="Input" name="B_jia_commissary" Check="1" Show="甲方代表" ></td>
	</tr>
	<tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_yi_commissary>乙方代表</td>
		<td><input class="Input" name="B_yi_commissary" Check="1" Show="乙方代表" ></td>
	</tr>
	<tr class=Ltr >
		<td align="left"><input type="checkbox" name=IsB_state>执行状态</td>
		<td><input class="Input" name="B_state" 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 + -