⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 searchrlt.asp

📁 本程序所有数据库文件都以.sql文件保存在Database文件夹里; 2、首先在SQL查询分析器中运行CreateDatabase.sql文件创建数据库; 3、运行其他所有的.sql文件即可创建好了本
💻 ASP
字号:
<!--#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 background="pic/bg.gif" 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 PostTime Desc"
  ElseIf sltCnd="location" Then
    sql = "Select * From Job Where WorkPlace Like '%"&sKey&"%' Order By 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" bordercolor="5A8FF0">
      <tr>
        <td width="100%" bgcolor="#CEE7FF" 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" bordercolor="5A8FF0">
            <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")%>&nbsp;</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>










































































































⌨️ 快捷键说明

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