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

📄 jobquery.asp

📁 ASP创思招聘求职系统源代码
💻 ASP
字号:
<!--#include file="dbconn.asp"-->
<html>
<head>
<script language="javascript">
function popwin2(id,path)
{		window.open("job/comview.asp?userid="+id+"&ppath="+path,"","height=450,width=580,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<script language="javascript">
function popwin4(id,path)
{		window.open("getjob.asp?jobid="+id+"&ppath="+path,"","height=450,width=580,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<link rel="stylesheet" type="text/css" href="css/cdol.css">
<title>查询结果</title>
</head>
<body bgcolor="#e6e5b8" text="#090171">
<p align="left">现在位置:<a href="index.asp">首页</a>—记录查询结果                                                           
<%                                                                                                                       
jclass = TRIM(Request("job_class"))                                                                                             
area = TRIM(Request("job_area"))                                                                  
money =cint(Request("job_money"))                                                                                             
name = TRIM(Request("company_name"))                                                                                            
keywords = TRIM(Request("keywords"))                                                                                             
dim rootRs                                                                                             
Set rootRs=Server.CreateObject("ADODB.RecordSet")                                                                                             
mySQL = "SELECT * FROM job where date<getdate()"                                                                                             
if jclass <> ""  then                                                                                           
  mySQL = mySQL & "AND job_class='"& jclass & "'"                                                                                           
end if                                                                                           
if area <> "" then                                                                                           
  mySQL = mySQL & "AND job_area='"& area & "'"                                                                                           
end if                                                                                           
if money <> "" then                                                                                           
  mySQL = mySQL & "AND job_money>='"& money & "'"                                                                                           
end if                                                                                           
if name <> ""  then                                                                                           
  mySQL = mySQL & "AND company_name='" & name & "'"                                                                                           
end if                                                                                           
if keywords <> ""  then                                                                                           
  mySQL = mySQL & "AND freetext(job_des_req, '" & keywords & "')"                                                                                           
end if                                                                                           
mySQL = mySQL & "ORDER BY date DESC"                                                                                             
rootRs.Open mySQL,conn,1,1                                                                                             
If  rootRs.Eof Then                                                                                          
Response.Write "<center>没有符合要求的记录。</center>"                                                                                          
else                                                                                          
Response.Write "<center><font color=green>共找到 "                                                                                          
response.write rootrs.recordcount                                                                                           
Response.Write " 条记录</font></center>"                                                                                                       
rootRs.pagesize=10                                                                                             
rootRs.AbsolutePage =1                                                                                             
if Request("page")<>"" then rootRs.AbsolutePage =Request("page")                                                                                            
RowCount =rootRs.pagesize                                                                                            
%>                                                                                             
<%Do While Not rootRs.Eof AND RowCount>0%>                                                                                                      
<table border="1" width="100%" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="5" bgcolor="#A4D1FF" height="1">                                                                                             
  <tr>                                                                   
    <td width="19%" align="center" height="1"><a href="javascript:popwin2(<%=rootrs("userid")%>)"><%=rootrs("company_name")%></a></td>                                                                                                                        
    <td width="16%" align="center" height="1"><%=rootrs("job_name")%> <%=rootrs("job_num")%>人</td>                                                                                                                      
    <td width="11%" align="center" height="1"><%=rootrs("job_money")%>元/月</td>                                                                                         
    <td width="48%" align="center" height="1"><%=rootrs("job_des_req")%></td>                                                                                         
    <td width="6%" align="center" height="1"><a href="javascript:popwin4(<%=rootrs("jobid")%>)">应聘</a></td>                                                                                        
  </tr>                                                                                              
</table>                                                                                      
<%rootRs.MoveNext                                                                                       
RowCount=RowCount-1                                                                                       
Loop                                                 
end if                                                                
%>                                                                                       
<%                                                                                          
If rootRs.pagecount>1 then                                                                                        
j=rootRs.pagecount                                                                                        
Response.Write "<center><table border='0'>"                                                                                        
Response.Write "<tr>"                                                                                        
Response.Write "<td>共" & j & "页:</td>"                                                                                        
For i=1 to rootRs.pagecount                                                                                        
Response.Write "<td><a href='jobquery.asp?page=" & i & "'>"                                                                                        
Response.Write "[第"& i &"页]</a>"                                                                                       
Response.Write "</td>"                                                                                        
Next                                                                                        
Response.Write "</tr></table></center>"                                                                                        
End if                                                                                                                                                                               
conn.close                                                                                        
set conn=nothing                                                                                        
%>                                                                                              
</body>                                                                                                  
</html>                                                                                             
                                                                 
                                                                 
                                                                 
                                                                 

⌨️ 快捷键说明

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