📄 search.asp
字号:
<% option explicit%>
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="Include/SelectValue.asp" -->
<%
Dim ObjDB
Dim C
Dim StrWhere
Dim StrSqlC,ObjRSC
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
If Request.Form.Count > 0 Then
StrWhere = C.Search("Is")
'判断合同变更时间
if request("ChangTime")<>"" then
StrSqlC="Select ConCode From T_Hrms_Employees_ConChange Where 1=1 and ChangTime between '"&request("ChangTime1")&"' and '"&request("ChangTime2")&"'"
set ObjRSC=ObjDB.execute(StrSqlC)
if NOT ObjRSC.EOF then
StrWhere=StrWhere&" and ID in ("
do while NOT ObjRSC.EOF
StrWhere=StrWhere&"'"&ObjRSC("ConCode")&"'"
ObjRSC.movenext
if NOT ObjRSC.EOF then
StrWhere=StrWhere&","
end if
loop
StrWhere=StrWhere&")"
end if
end if
'response.write StrWhere
'response.End()
Response.Redirect "List.asp?W=" & Server.URLEncode(StrWhere)
ObjDB.Close
Set ObjDB = 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 name=IsConCode type="checkbox" id="IsConCode">
合同代号</td>
<td><input name="ConCode" class="Input" id="ConCode" Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsName type="checkbox" id="IsName">
姓名</td>
<td><input name="Name" class="Input" id="Name" Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsFirBegDate type="checkbox" id="IsAddBegDate">
首次合同签订日期</td>
<td>从
<input name="FirBegDate" class=Input id="FirBegDate" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" >
至
<input name="FirBegDate" class="Input" id="FirBegDate" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsFirEndDate type="checkbox" id="IsAddEndDate">
首次合同结束日期</td>
<td>从
<input name="FirEndDate" class=Input id="FirEndDate" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" >
至
<input name="FirEndDate" class="Input" id="FirEndDate" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsConType type="checkbox" id="IsConType">
合同类型</td>
<td><select type="text" class=Input Check=0 name="ConType" style="width: 150;" >
<%=SelectValue(ObjDB,"Select ID,ConName from T_Hrms_Sys_Contract")
%> </SELECT></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsFirTerm type="checkbox" id="IsFirTerm">
首次合同期限</td>
<td> <input name="FirTerm" class=Input id="FirTerm" Check="1" >
年 </td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsLastTerm type="checkbox" id="IsLastTerm">
最后合同到期日期</td>
<td>从
<input name="LastTerm" class=Input id="LastTerm" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" >
至
<input name="LastTerm" class="Input" id="LastTerm" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsConDesc type="checkbox" id="IsConDesc">
合同备注</td>
<td><input name="ConDesc" class="Input" id="ConDesc" Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsConContent type="checkbox" id="IsConContent">
合同内容</td>
<td><input name="ConContent" class="Input" id="ConContent" Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsAddNum type="checkbox" id="IsAddNum">
续签次数</td>
<td><input name="AddNum" class="Input" id="AddNum" Check="1" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=ChangTime type="checkbox" id="ChangTime">
合同变更时间</td>
<td> 从
<input name="ChangTime1" class=Input id="ChangTime1" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" >
至
<input name="ChangTime2" class="Input" id="ChangTime2" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" ></td>
</tr></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 + -