<!--#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 & " - 首页"


tempcontent=tempcontent&"<table  width=100% align=center  border=0 cellpadding=1 cellspacing=1 bgcolor=#cccccc style='font-size: 12px;'>"
tempcontent=tempcontent&"<TR bgcolor=#ffffff><TD colspan=2>&nbsp; <img src=http://www.ksnew.cn/images/jt1.gif  align=absmiddle> <font color=#000000>太仓人才网最新招聘信息</td></tr>"
	Dim strIsLockId,Sql,Rs,i,j,tdcss,strJob,tempJob,EditDate,tempcontent
	Dim arrNewZp,TodayDate
	Set Rs = server.createobject("ADODB.Recordset")
	
	TodayDate = Qsite.FormatDate(Date())

	strIsLockId = IsLockId("Company")
	Sql = "select top 5 * 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 bgcolor=#ffffff><TD  height=23>"
	tempcontent=tempcontent&"&nbsp; <img src=http://www.ksnew.cn/images/ico_7.gif  align=absmiddle> <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> <font style='font-size: 10px;'>"&year(Rs("AddDate"))&"-"&month(Rs("AddDate"))&"-"&day(Rs("AddDate"))&"</font>"
	tempcontent=tempcontent&"</td>"
	tempcontent=tempcontent&"<TD >"
	tempcontent=tempcontent&"&nbsp; <img src=http://www.ksnew.cn/images/ico_7.gif  align=absmiddle> <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%>");