<!--#include file="Conn.asp" -->
<!--#include file="Comm/Site_Class.asp" -->
<%
Dim strMenu,PageTitle
strMenu = "职场资讯"

Set Qsite = New Site_Class

Qsite.SiteConfig()
Qsite.GotoErrPage()

PageTitle = Qsite.SiteName & " - 职场资讯"

Dim Rs,iRs,nRs,i,j,tdcss

Set Rs = server.createobject("ADODB.Recordset")
Set iRs = server.createobject("ADODB.Recordset")
Set nRs = server.createobject("ADODB.Recordset")
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>职场资讯 - 胶州人才网</title>
 <meta name="keywords" content="胶州人才网站,胶州招聘网站,胶州人力资源,胶州人才市场,胶州找工作,胶州兼职,胶州培训,胶州职业顾问,胶州职业规划,胶州人事代理">
 <meta name="description" content="胶州人才网是胶州地区内最具影响力的人才网站之一，为企业提供一站式的人才招聘服务，帮助个人求职者与企业搭建最佳互动平台，打造胶州地区权威求职招聘网站!！">
<!--#include file="top.asp" -->


   <table width="974" height="675" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
        <td width="245" height="675" valign="top" style="padding-left:2px;"> 


<!--#include file="news_left.asp" -->


        <td width="729" valign="top"><table width="729" height="179" border="0" cellpadding="0" cellspacing="0">
            <tr> 
        <%
Rs.Open "select * from NewsTypeTbl where NewsTypeKey = 0 order by Px asc" , Conn , 1 , 1
If Rs.Eof Then
	Response.Write("<div align=""center""><br /><br />暂无资讯信息</div>")
Else
%>

<%
	i = 0
	Do While Not Rs.Eof
		iRs.Open "select * from NewsTypeTbl where NewsTypeKey = "& Rs("NewsTypeId") &" order by Px asc" , Conn , 1 , 1
		Do While Not iRs.Eof
%>

              <td width="370" height="179" valign="top"> <table width="359" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td height="30" background="../images/Seek_r12_c5.jpg"><table width="95%" height="30" border="0" cellpadding="0" cellspacing="0">
                        <tr> <Td align=left valign="bottom">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="Images/ico_03.jpg" width="9" height="9" align="absmiddle"/><B> <%=iRs("NewsTypeName")%></td>
                          <td height="28" align="right" valign="bottom"><a href="News_More.asp?NewsTypeId=<%=iRs("NewsTypeId")%>">更多</a>&gt;&gt;</a></td>
                        </tr>
                      </table></td>
                  </tr>
                  <tr> 
                    <td height="130" background="../images/Seek_r15_c5.jpg"> 
<table width="93%" align=center border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
								<tr>
									<td height="5" colspan="2" bgcolor="#FFFFFF"></td>
								</tr>
<%
			nRs.Open "select top 6 * from NewsTbl where NewsTypeId = "& iRs("NewsTypeId") &" order by AddDate desc" , Conn , 1 , 1
			j = 0 
			Do While Not nRs.Eof
%>
								<tr>
								  <td width="72%" height="25" bgcolor="#FFFFFF" style="padding-left:5px; padding-right:5px;">·<a href="News_View.asp?NewsId=<%=nRs("NewsId")%>" target="_blank"><%
									If Len(nRs("NewsTitle")) > 17 Then
										Response.Write(Left(nRs("NewsTitle") , 17) & "…")
									Else
										Response.Write(nRs("NewsTitle"))
									End If
									%></a></td>
									<td width="28%" align="right" bgcolor="#FFFFFF" style="padding-left:5px; padding-right:5px;"><font color="#999999">[<%=Qsite.FormatDate(FormatDateTime(nRs("AddDate") , 2))%>]</font></td>
								</tr>
<%
			j = j + 1
			If j >= 6 Then Exit Do
			nRs.MoveNext
			Loop
			nRs.Close
			If j < 6 Then
				For j = j + 1 To 6
					If j = 1 Then
%>
								<tr>
									<td height="25" colspan="2" align="center" bgcolor="#FFFFFF">暂无资讯信息</td>
								</tr>
<%					
					Else

%>
								<tr>
									<td height="25" colspan="2" bgcolor="#FFFFFF"></td>
								</tr>
<%
					End If
				Next
			End If
%>
								<tr>
									<td height="5" colspan="2" bgcolor="#FFFFFF"></td>
								</tr>
						  </table>


</td>
                  </tr>
                  <tr> 
                    <td height="12" background="../images/Seek_r21_c5.jpg"><img src="space.gif" height="1" /></td>
                  </tr>
                  <tr> 
                    <td height="12" ><img src="space.gif" height="1" /></td>
                  </tr>
                </table>					<%
			i = i + 1
			If i Mod 2 = 0 Then Response.Write("</tr></tr>")
		iRs.MoveNext
		Loop
		iRs.Close

	Rs.MoveNext
	Loop
	If i = 0 Then
		Response.Write("<div align=""center""><br /><br />暂无资讯信息</div>")
	Else
		If i Mod 2 > 0 Then Response.Write("<td width=""400""></td>")
	End If
%>
	

</tD></tr></table>
<%
End If
Rs.Close
%>

</tD></tr></table>

 <!--#include file="foot.asp" -->
