<%
Dim HireRS,HireSql
Set HireRS = Server.CreateObject(FR_HR_RS)
html=""
HireSql = "Select top 10 * from JOB_C_hire where company_id="&Cid&" and datediff("&FR_HR_d&",hire_enddate,"&FR_HR_Now&")<=0 and hire_status=1 order by hire_id desc"
HireRS.open HireSql,conn,1,1
IF Not HireRS.EOF Then
Do While Not HireRS.EOF
html=html&"<a href="&FormatLink(HireRS("hire_announcedate"),2,1,HireRS("hire_id"),0)&" target="&target&">"&HireRS("hire_place")&"("&Hirenumber(HireRS("hire_number"))&"人)</a><br>"
HireRS.MoveNext
Loop
Else
html=html&"尚未发布职位信息!"
End If
HireRS.Close:Set HireRS=Nothing
GetHireTitList=html
End Function
%>
