searchrlt.asp

来自「一个不错的人才管理系统」· ASP 代码 · 共 204 行

ASP
204 行
字号 
<!--#include file="conndb.asp"-->
<html>
<head>
<link href=style.css rel=STYLESHEET type=text/css>
</head>
<script language="javascript">
function newswin(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=600,height=500";
  var newswin=window.open(url,"newswin",oth);
  newswin.focus();
  return false;
}
</script>
<body topmargin=0>
<center>
<table border="0" width="700" cellspacing="0" cellpadding="0">
 <tr><td colspan="3" height="116"><!--#include file="head.htm"--></td></tr>
 <tr>
    <td width="100%" valign="top" align="center">
<%
  Dim sltCnd,sql,sKey
  sltCnd = Request("slt")
  sKey = Request("key")
  'sltCnd=title:职位名称 type:职位类别 location:工作地点 company:公司名称 main:主要技能
  If sltCnd="title" Then
    sql = "Select * From Job Where Title like '%"&sKey&"%' Order By PostTime Desc"
  ElseIf sltCnd="type" Then
    sql = "Select * From Job Where Type Like '%&sKey&%' Order By PostDate Desc"
  ElseIf sltCnd="location" Then
    sql = "Select * From Job Where WorkPlace Like '%"&sKey&"%' Order By p.PostTime Desc"
  ElseIf sltCnd="company" Then
    sql = "Select j.*,c.* From Job j,Company c Where j.UserName=c.CName And c.Company Like '%"&sKey&"%' Order By j.PostTime Desc"
  ElseIf sltCnd="main" Then
    sql = "Select * From Job Where Comment like '%"&sKey&"%' Order By PostTime Desc"
  End If
%>    
    <table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#A4A4FF" bordercolordark="#FFFFFF">
      <tr>
        <td width="100%" bgcolor="#A4A4FF" height="18" align=center><font size=3><b>查询结果</b></font></td>
      </tr>
      <tr>
         <td width="100%" valign="top" align="left" height="1">
<%
  Set rs = Server.CreateObject("ADODB.RECORDSET")
  rs.Open sql,Conn,1,3
  If Not rs.EOF Then
    rs.PageSize=20
    rs.AbsolutePage =1
    If Request("page")<>"" Then rs.AbsolutePage =Request("page") 
    RowCount =rs.PageSize
%>  
         <table border="1" width="100%" cellspacing="1" bordercolorlight="#A4A4FF" bordercolordark="#FFFFFF">
            <tr>
             <td>职位名称</td><td>职位类别</td><td>要求</td>
            </tr>
<%
    Do While Not rs.EOF And RowCount>0
%>  
			<tr>
			  <td><a href='JobView.asp?jid=<%=rs("JobId")%>' onClick='return newswin(this.href)'><%=rs("Title")%></a></td>
			  <td><%=rs("Type")%></td>
			  <td>学历:<%=rs("Education")%>&nbsp;性别:<%=rs("Sex")%>&nbsp;年龄:<%=rs("Age")%>&nbsp;工作年限:<%=rs("WorkTime")%></td>
			</tr>
<%
      rs.MoveNext
      RowCount = RowCount-1
    Loop
%>
        </td>
      </tr> 
    </table>
    </td>
  </tr>
</table>
<%
		If rs.PageCount>1 Then

			Response.Write "<table border='0'>"
			Response.Write "<tr>"
			Response.Write "<td><b>分页：</b></td>"
			For i=1 To rs.PageCount
			Response.Write "<td><a href='Information.asp?m="&flg&"&page=" & i & "'>"
			Response.Write "[<b>" & i & "</b>]</a>"
			Response.Write "</td>"
			Next

			Response.Write "</tr></table>"
		End If

  Else
    Response.Write "没有符合条件的职位信息"
  End If
%>
<p align=center><a href="javascript:history.go(-1);">[ 返 回 ]</a>
</body>
</html>

searchrlt.asp - 源码说明

本页面展示了「一个不错的人才管理系统」中的 searchrlt.asp 源码文件，采用 ASP 编程语言编写，共 204 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?