📄 search.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
If Request.Form.Count > 0 Then
Dim ObjDB
Dim C
Dim StrWhere
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
StrWhere = C.Search("Is")
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 width="100%" cellpadding=3 cellspacing=1 class=Ltable>
<tr class=LHtr align="middle">
<td colspan="2" align="left">查询面试选拔信息</td>
</tr>
<tr class=Ltr >
<td width="15%" align="left"><input type="checkbox" name=IsName>
主考人</td>
<td width="85%"><input class="Input" name="Name" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsForm type="checkbox" id="IsForm2">
面试形式</td>
<td width="85%">
<input name="Form" type="text" class=Input> </td>
</tr>
<tr class=Ltr >
<td align="left">
<input name=IsCompany type="checkbox" id="IsCompany2">
应聘公司</td>
<td width="85%"><select class="SelectWidth" name="Company">
<%
dim rs
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
set rs=server.CreateObject("ADODB.recordset")
rs.open "select distinct Company,ComName from v_Hrms_PersonSave ",ObjDB,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("Company")%>" selected><%=rs("ComName")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Company")%>"><%=rs("ComName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select> </td>
</tr>
<tr class=Ltr >
<td align="left"><input name=IsDepartment type="checkbox" id="IsDepartment2">
应聘部门</td>
<td><select class="SelectWidth" name="Department">
<%
rs.open "select distinct Department,DepName from v_Hrms_PersonSave ",ObjDB,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("Department")%>" selected><%=rs("DepName")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Department")%>"><%=rs("DepName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select></td>
</tr>
<tr class=Ltr >
<td align="left"> <input name=IsStation type="checkbox" id="IsStation4">
应聘岗位 </td>
<td>
<select class="SelectWidth" name="Station">
<%
rs.open "select distinct Station,StationName from v_Hrms_PersonSave",ObjDB,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("Station")%>" selected><%=rs("StationName")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Station")%>"><%=rs("StationName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select></td>
</tr>
<tr class=Ltr >
<td align="left">
<input name=IsDates type="checkbox" id="IsDates">
面试日期</td>
<td> 从
<input class=Input name="Dates" readonly onClick="InputDate(this)" style="HEIGHT: 22px; WIDTH: 80px" >
至
<input class="Input" name="Dates" style="HEIGHT: 22px; WIDTH: 80px" readonly show="CreateTime" onClick="InputDate(this)"></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 + -