📄 search.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<%
If Request.Form.Count > 0 Then
Dim ObjDB
Dim C
Dim StrWhere
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
StrWhere = C.Search("Is")
'查询绩效
Dim StrSqlC,ObjRSC
Dim PostTime1,PostTime2
PostTime1=trim(request("PostTime1"))
PostTime2=trim(request("PostTime2"))
if request("PostTimeP")<>"" then
StrSqlC="Select PID From t_Hrms_Employees_UserPostChange Where 1=1 and PostTime between '"&PostTime1&"' and '"&PostTime2&"'"
'response.write StrSqlC
'response.End()
set ObjRSC=ObjDB.execute(StrSqlC)
if NOT ObjRSC.EOF then
StrWhere=StrWhere&" and ID in ("
do while NOT ObjRSC.EOF
StrWhere=StrWhere&"'"&ObjRSC("PID")&"'"
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 width="100%" cellpadding=3 cellspacing=1 class=Ltable>
<tr class=LHtr align="middle">
<td width="15%">查询基本员工信息</td>
<td width="85%" colspan="3"> </td>
</tr>
<tr class=Ltr >
<td width="15%" align="left"> <input type="checkbox" name=IsName>
姓名</td>
<td width="35%"> <input class="Input" name="Name"></td>
<td width="15%"><input name=IsPeople type="checkbox">
民族</td>
<td width="35%"><input name="People" class="Input" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="31" align="left"> <input type="checkbox" name=IsSex>
性别</td>
<td width="35%"> <select class="SelectWidth" name="Sex">
<option value="男">男</option>
<option value="女">女</option>
</select></td>
<td width="15%"><input name=IsPoliticalVisage type="checkbox">
政治面貌</td>
<td width="35%"><input name="PoliticalVisage" class="Input" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="29" align="left"> <input name=IsMarried type="checkbox" id="IsMarried">
婚否 </td>
<td width="35%"><select class="SelectWidth" name="Married">
<option value="未婚">未婚</option>
<option value="已婚">已婚</option>
</select> </td>
<td width="15%"><input name=IsBirth type="checkbox">
出生日期</td>
<td width="35%"><input name="Birth" class="Input" id="Birth" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="28" align="left"><input name=IsCompany type="checkbox" id="IsCompany2">
公司 </td>
<td width="35%"><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,CompanyName from v_Hrms_Employees",ObjDB,1,1
if not(rs.eof and rs.bof) then
%>
<option value="<%=rs("Company")%>" selected><%=rs("CompanyName")%></option>
<% rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Company")%>"><%=rs("CompanyName")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select> </td>
<td width="15%"><input name=IsWorkTime type="checkbox" id="IsWorkTime">
工作年限 </td>
<td width="35%"><input name="WorkTime" class="Input" id="WorkTime" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="28" align="left"><input name=IsDepartment type="checkbox" id="IsDepartment2">
部门 </td>
<td width="35%"><select class="SelectWidth" name="Department">
<%
rs.open "select distinct Department,DepName from v_Hrms_Employees",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>
<td width="15%"><input name=IsducationStyle type="checkbox">
教育类型 </td>
<td width="35%"><input name="ducationStyle" class="Input" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="28" align="left"><input name=IsJobName type="checkbox">
岗位 </td>
<td width="35%"><select class="SelectWidth" name="JobName">
<%
rs.open "select distinct Station,JobName from v_Hrms_Employees",ObjDB,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>
<td width="15%"><input name=IsGraduateSchool type="checkbox" id="IsGraduateSchool">
毕业学校 </td>
<td width="35%"><input name="GraduateSchool" class="Input" id="GraduateSchool" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="30" align="left"> <input name=IsTechDegree type="checkbox" id="IsTechDegree">
职称级别 </td>
<td width="35%"><select class="SelectWidth" name="TechDegree">
<option value="0" selected>无职称</option>
<option value="1">高级职称</option>
<option value="2">中级职称</option>
<option value="3">初级职称</option>
</select> </td>
<td width="15%"><input name=IsSpeciality type="checkbox" id="IsSpeciality">
所学专业 </td>
<td width="35%"><input name="Speciality" class="Input" id="Speciality" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="31" align="left"><input name=IsTechDegreeName type="checkbox" id="IsTechDegreeName">
职称名称</td>
<td width="35%"><input name="TechDegreeName" type="text" id="TechDegreeName">
</td>
<td width="15%"><input name=IsDegree type="checkbox" id="IsDegree">
学位 </td>
<td width="35%"><input name="Degree" class="Input" id="Degree" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" height="32" align="left"> <input name=IsForLan type="checkbox" id="IsForLan2">
外语</td>
<td width="35%"> <input name="ForLan" class="Input" id="ForLan2" check="1" show="xing" ></td>
<td width="15%"><input name=IsGraduateDegree type="checkbox" id="IsGraduateDegree">
学历</td>
<td width="35%"><input name="GraduateDegree" class="Input" id="GraduateDegree" Check="1" Show="姓名" ></td>
</tr>
<tr class=Ltr >
<td width="15%" align="left"> <input type="checkbox" name=IsSaveTime>
存库时间</td>
<td width="35%">从
<input class=Input name="SaveTime" readonly onclick="InputDate(this)" style="HEIGHT: 22px; WIDTH: 80px" Check="1" Show="存库时间">
至
<input class="Input" name="SaveTime" style="HEIGHT: 22px; WIDTH: 80px" Check="1" readonly Show="SaveTime" onclick="InputDate(this)"></td>
<td width="15%"><input name=IsGraduateTime type="checkbox" id="IsGraduateTime">
毕业时间 </td>
<td width="35%">从
<input name="GraduateTime" class=Input id="GraduateTime" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" Show="存库时间">
至
<input name="GraduateTime" class="Input" id="GraduateTime" style="HEIGHT: 22px; WIDTH: 80px" onclick="InputDate(this)" readonly Check="1" Show="SaveTime"></td>
</tr>
<tr class=Ltr >
<td align="left"> <input name=PostTimeP type="checkbox" id="PostTimeP">
岗位变动时间 </td>
<td>从
<input name="PostTime1" onclick="InputDate(this)" style="HEIGHT: 22px; WIDTH: 80px" id="PostTime1" Check="1" >
至
<input name="PostTime2" onclick="InputDate(this)" style="HEIGHT: 22px; WIDTH: 80px" id="PostTime2" size="8" Check="1" >
<br>
</td>
<td> </td>
<td> </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 + -