📄 search.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
If Request.Form.Count > 0 Then
Dim ObjDBH
Dim C
Dim StrWhere
Set ObjDBH = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDBH
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDBH)
StrWhere = C.Search("Is")
Response.Redirect "List.asp?W=" & Server.URLEncode(StrWhere)
ObjDBH.Close
Set ObjDBH = 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 colspan="2" align="left">查询部门需求信息 </td>
</tr>
<tr class=Ltr >
<td width="15%" align="left"><input name=IsComName type="checkbox" id="IsCompany">
公司 </td>
<td width="85%"> <select class="SelectWidth" name="ComName">
<%
dim rs
Set ObjDBH = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDBH
set rs=server.CreateObject("ADODB.recordset")
rs.open "select distinct ComName from v_Hrms_DepRequirement",ObjDBH,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("ComName")%>" selected><%=rs("ComName")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Comname")%>"><%=rs("ComName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select></td>
</tr>
<tr class=Ltr >
<td align="left"> <input name=IsDepName type="checkbox">
部门 </td>
<td> <select class="SelectWidth" name="DepName">
<%
rs.open "select distinct DepName from v_Hrms_DepRequirement",ObjDBH,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("DepName")%>" selected><%=rs("DepName")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("DepName")%>"><%=rs("DepName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select> </td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsJobName type="checkbox">
岗位</td>
<td> <select class="SelectWidth" name="JobName">
<%
rs.open "select distinct JobName from v_Hrms_DepRequirement",ObjDBH,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("JobName")%>" selected><%=rs("JobName")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("JobName")%>"><%=rs("JobName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select> </td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsReason type="checkbox">
申请理由</td>
<td> <select class="SelectWidth" name="Reason">
<%
rs.open "select distinct Reason from v_Hrms_DepRequirement",ObjDBH,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("Reason")%>" selected><%=rs("Reason")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Reason")%>"><%=rs("Reason")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsState type="checkbox">
招聘状态 </td>
<td> <select class="SelectWidth" name="State">
<option value="1" selected>提供需求</option>
<option value="2">重新提供需求</option>
<option value="3">正在招聘</option>
<option value="4">人员到岗</option>
<option value="5">计划调整</option>
<option value="6">有意见</option>
<option value="7">撤消请求</option>
</select></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsAppTime type="checkbox">
申请日期 </td>
<td>从
<input name="AppTime" class=Input style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" Show="申请时间">
至
<input name="AppTime" class="Input" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" Show="AppTime"></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsInTime type="checkbox" id="IsInTime">
到岗日期</td>
<td>从
<input name="InTime" class=Input style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" Show="到岗时间">
至
<input name="InTime" class="Input" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" Show="InTime"></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 + -