<!--#include file="inc/config.asp"-->
<!--#include file="inc/ListPager.asp"-->
<!--#include file="inc/sub.asp"-->
<%
	'''''''本系统无限分类解决方案
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_job"
	.PrimaryKey = "ID" 
	.Fields = "ID,UID,H_title,Rdate,H_sort,H_Recommend" '显示字段
	.PageSize = 26
	.AddWhere "H_sort =1"
	.AddOrder "ID"," desc"
	.Cache = 10	
	.Init()
end with
%>
<!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" />
<title><%=W_title%>,网站首页</title>
<meta name="keywords" content="<%=W_keywords%>" />
<meta name="description" content="<%=W_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" /></head>
<body>
<!--#include file="top.asp"-->
<table width="950" height="10" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="728" valign="top">
	
	
	  <table width="720" border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="#FEDA6A" class="scaview3">
  <tr>
    <td valign="top" bgcolor="#FFFFFF">
      <!--==================-->
      <table width="720" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr bgcolor="#EFEFEF">
          <td width="13%" height=12 align="center" bgcolor="#FEFAF4">分类</td>
          <td height=12 align="left" bgcolor="#FEFAF4">标题</td>
          <td width="18%" height=12 align="left" nowrap bgcolor="#FEFAF4">发布时间</td>
        </tr>
        <tr>
          <td colspan=3 height=1 bgcolor="#E8E8E8"></td>
        </tr>


<%
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					
		%>
   			  <tr >
				  <td height="25" align="center"><font color="#CC6600">[<%call H_job(arrlist(4,i))%>]</font></td>
                  <td align="left"><a href="job_read.asp?id=<%=arrlist(0,i)%>" target="_blank"><%=left(arrlist(2,i),20)%></a> <%if arrlist(5,i)=1 then%><img src="images/m2.gif" alt="推荐信息" /><%end if%></td>
                  <td height="25" align="left"><%=arrlist(3,i)%></td>
   			  </tr>
   			  
        <tr>
          <td colspan=3 bgcolor="#E8E8E8"></td>
        </tr>
  
      <%
					next
				end if
				%>
  
        <tr>
		

<td colspan=4 align=right bgcolor=#efefef height=20>

	<%
					with myListPager
							Response.Write("<script type=""text/javascript"" src=""../inc/styles/ListStyle.js""></script>")
							Response.Write("<script type=""text/javascript"">pageTurn(" & .RecordCount & ", " & .PageSize & ", " & .PageCount & ", " & .CurrentPage & ", """ & .QueryString & """);</script>")
					end with
					%></td>
</tr>
<tr><td colspan=3 height=4></td></tr>
</table>


    </td>
  </tr>
</table>

				
	</td>
    <td width="222" valign="top"><table width="222" height="31" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td background="images/reght.gif" class="lv" style="padding-left:20px; padding-top:2px;">推荐求职</td>
      </tr>
    </table>
      <table width="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#FADCA4">
        <tr>
          <td align="center" bgcolor="#FFFFFF"><%
			sql="select top 11 ID,H_title,H_sort  from H_job where H_Sort=1 and H_Recommend=1 order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有求职</div>"
						else
						do while not rs.eof  
						%>
                      <table width="210" height="20" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td align="left">
                           <a href="job_list.asp?id=<%=rs("H_sort")%>" target="_blank"> 
                           <%call H_job(rs("H_sort"))%></a>
                          | <a href="job_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),12)%></a></td>
                        </tr>
            </table>
                    <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>
