<!--#include file="../conn/conn.asp"-->
<%
Dim hirecommands,rows
rows = 2
On Error Resume Next
'Dim Database,ConnStr,Conn,Rsh,sql,i,sqlhire,RsHire,cnt
set Conn=server.CreateObject("ADODB.connection")
Conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错，错误编号。</div>"
Response.End
End If
Set Rsh = Server.CreateObject("ADODB.RecordSet")
'查询不重复的记录
'职位必须审核
cid=""
sql = "select top 100 hire_id,hire_comname,hire_level1,hire_place,hire_announcedate,company_id,hire_enddate from job_c_hire where [hire_announcedate] in (select MAX([hire_announcedate]) from job_c_hire group by hire_comname) order by hire_announcedate desc"
Rsh.Open sql,Conn,1,1
'set Rsh2 = Server.CreateObject("ADODB.RecordSet")
html=html&"<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
html=html&"<tr>"
i=0
'j=1
cnt=0
'Response.Write sql&"<br />"
Do While Not Rsh.EOF
'判断企业是否已审核
Set RsCom = Conn.Execute("Select top 1 Member_flag,Member_enddate from JOB_Member WHERE Membe
