<!--#include file="Conn.asp" -->
<!--#include file="Comm/Site_Class.asp" -->
<!--#include file="Comm/Function.asp" -->
<%
Dim strMenu,PageTitle
strMenu = "首页"
PagePath = ""

Set Qsite = New Site_Class

Qsite.SiteConfig()
Qsite.GotoErrPage()

PageTitle = Qsite.SiteName & " - 首页"



	Dim strIsLockId,Sql,Rs,i,j,tdcss,strJob,tempJob,EditDate,tempcontent
	Dim arrNewZp,TodayDate
tempcontent=tempcontent&"<table  width=97% align=center  border=0 cellpadding=0 cellspacing=0 style='font-size: 12px;'>"
tempcontent=tempcontent&"<tr><TR bgcolor=#D9E8F4><Td height=26 width=60% align=center>公司名称</td><Td width=40% align=center>招聘职位</td></tr>"
	Set Rs = server.createobject("ADODB.Recordset")
	
	TodayDate = Qsite.FormatDate(Date())

	strIsLockId = IsLockId("Company")
	Sql = "select top 10 * from RecruitTbl where ValidityDate > '"& TodayDate &"' and IsPause = '0' and ComId not in ("& strIsLockId &") order by EditDate desc"
	Rs.Open Sql , Conn , 1 , 1
If rs.eof and rs.bof then
else
i=0
do while not rs.eof

 
	tempcontent=tempcontent&"<TR><TD  height=23>"
	tempcontent=tempcontent&"<a style='font-size: 12px;color:#2D4D83' href=http://www.ksnew.cn/Company_View.asp?ComId="&Rs("ComId")&" target=_blank>"&Company_Name(Rs("ComId"))&"</a>"
	tempcontent=tempcontent&"</td>"
	tempcontent=tempcontent&"<TD >"
	tempcontent=tempcontent&"<a style='font-size: 12px;;color:#2D4D83' href=http://www.ksnew.cn/Company_Job.asp?JobId="&Rs("RecruitId")&" target=_blank>"&Rs("JobName")&"</a>"
	tempcontent=tempcontent&"</td></tR>"
 



rs.movenext
i=i+1
if i=10 then exit do
loop
rs.close 
end if
tempcontent=tempcontent&"</table>"
%>
document.write("<%=tempcontent%>");