<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%
Dim Action
Dim page,si
Dim totalPut
MaxPerpage=40
strFileName="VipCom.asp"
page=Trim(Request("page"))
If page<>"" And IsNumeric(page) Then
	If page<1 Or Len(page)>10 Then
		page=1
	Else
    	page=CLng(page)
	End If
Else
	page=1
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<meta content="all" name="robots" />
<meta name="author" content="web@yjys.net,嘉挚科技" />
<meta name="Copyright" content="www.yjys.net,版权所有,请勿转载" />
<title>推荐VIP企业-<%=SiteTitle%></title>
<link href="../css/<%=MainWebCss%>" rel="stylesheet" type="text/css">
<link rel="icon" href="/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
</head>
<body>
<%call head()%>
<div class="container">
	<div class="navdh"> 您现在的位置：<a href="<%=Siteurl%>"><%=Sitename%></a> &gt;&gt; 推荐VIP企业</div>
</div>
<div class="container">
<div class="maintaba">
<div class="main_tit">推荐VIP企业 | <a href="NewHire.asp">最新企业招聘</a> | <a href="CommondHire.asp">最新推荐职位</a></div>
<div class="main_con">
<%
Set ComRS= Server.CreateObject(FR_HR_RS)
sql="Select top 1000 * from JOB_Member where Member_Auditing=1 and Member_name is not null and Member_typeid=2 and Member_logo<>'nologo.gif' and datediff("&FR_HR_d&",Member_startdate,"&FR_HR_Now&")>=0 and datediff("&FR_HR_d&",Member_enddate,"&FR_HR_Now&")<=0 order by Member_id desc"
ComRS.open sql,conn,1,1
if ComRS.eof and ComRS.bof then
Response.Write"<br><li>对不起，没有相关的数据！</li>"
else
	totalPut=ComRS.recordcount
	if (page-1)*MaxPerpage>totalput then
		if (totalPut mod MaxPerpage)=0 then
			page= totalPut \ MaxPerpage
		else
			page= totalPut \ MaxPerpage + 1
		end if
	end if
	if page=1 then
		Call MainInfo()
	else
		if (page-1)*MaxPerpage<totalPut then
			rs.move  (page-1)*MaxPerpage
			dim bookmark
			bookmark=rs.bookmark
			Call MainInfo()
		else
			page=1
			Call MainInfo()
		end if
	end if
end if
ComRS.close
set ComRS=nothing
%>
<%Sub MainInfo()%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0 >
<tr>
<%
si=1
do while not ComRS.eof
%>
<td width="20%">
<%
	Response.Write("<li style='width:100%;'><a href="&FormatLink(ComRS("Member_regdate"),2,1,ComRS("Member_id"),0)&" target=_blank><img src='"&InstallDir&FR_UPFILES_DIR&"/Company/"&ComRS("Member_logo")&"' border=0 style='padding:1px; border:1px #F0F0F0 solid;' height=56 width=164 title='<b>"&ComRS("Member_name")&"</b><br>"&left(ComRS("Member_introduce"),50)&"...' /></a></li>")
	Set HireRS = Server.CreateObject(FR_HR_RS)
	HireSqls=""
	HireSqls=HireSqls&" and datediff("&FR_HR_d&",hire_enddate,"&FR_HR_Now&")<=0 and hire_status=1"
	HireSqls=HireSqls&" order by hire_id desc"
	HireSql = "Select top 2 * from JOB_C_hire where company_id="&ComRS("Member_id")&""&HireSqls&""
	HireRS.open HireSql,conn,1,1
	IF Not HireRS.EOF Then
	Response.Write("<li style='width:100%;display:block;'>")
	Response.Write"<font color=#FF0000>招聘:</font>"
	For j=1 to HireRs.recordcount
		'Response.Write "fs"
	Response.Write"<a href="&FormatLink(HireRS("hire_announcedate"),2,3,HireRS("hire_id"),0)&" target=_blank title='<font color=#FF0000><b>"&HireRS("hire_place")&"("&Hirenumber(HireRS("hire_number"))&"人)</b></font><br>职位类型："&Hiretype(HireRS("hire_type"))&"<br>截止日期："&HireRS("hire_enddate")&"<br>工作地："&Hireworkadds(HireRS("hire_workadd"))&"<br>学历要求："&Hireedu(HireRS("hire_edu"))&"<br>薪金待遇："&Hirepay(HireRS("hire_pay"))&"'>"&left(HireRS("hire_place"),8)&"</a>"
	Response.Write("</li>")
	HireRS.MoveNext
	next
	Else
		Response.Write"<li style='width:100%;display:block;'>尚未发布职位信息!</li>"
	End If
	HireRS.Close
	Set HireRS=Nothing
%>
</td>
<%
if si mod 5=0 then
Response.Write("</tr><tr>")
end if
%>
<%
si=si+1
if si>=MaxPerPage then exit do
ComRS.movenext
loop
%></table>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="0">
  <tr>
    <td width="7%">&nbsp;</td>
    <td width="93%" align="right"><%If totalput>0 Then
	Call Showpage(strFileName,totalput,MaxPerPage,false,true,"条")
End If%></td>
  </tr>
  <tr>
    <td style="background:url(../skin/System/tit_bg.gif) bottom repeat-x"><input type="checkbox" name="checkbox" value="checkbox" onClick="javascript: checkAll(this)" /> 
        全选 </td>
    <td align="right" style="background:url(../skin/System/tit_bg.gif) bottom repeat-x"><!--<input name="Input" type="button" value="显示选中的职位" class="inputs" onClick="confirmX(1);" />--> 
        <input name="Input2" type="button" value="申请选中的职位" class="inputs" onClick="confirmX(2);" /> 
        <input name="Input3" type="button" value="放入收藏夹" class="inputs" onClick="confirmX(3);" /> 
        </td>
  </tr>
</table>
</form>
<%End Sub%>
</div>
</div>
</div>
<div class="container">
	<div class="copyright"><center><%call bottom()%></center></div>	
</div>
</body>
</html>