<!--#include file="Conn.asp" -->
<!--#include file="Comm/Site_Class.asp" -->
<%
Dim strMenu,PageTitle
strMenu = "职场资讯"
Set Qsite = New Site_Class
Qsite.SiteConfig()
Qsite.GotoErrPage()
Dim Rs,nRs
Dim NewsId,NewsTitle,NewsContent,AddDate,NewsTypeId
Set Rs = server.createobject("ADODB.Recordset")
Set nRs = server.createobject("ADODB.Recordset")
NewsId = Qsite.chgStr(Trim(Request.QueryString("NewsId")))
If NewsId = "" Or IsNull(NewsId) Or Not IsNumeric(NewsId) Then NewsId = 0
Rs.Open "select * from NewsTbl where NewsId = "& NewsId , Conn , 1 , 1
If Rs.Eof Then
	NewsTitle = ""
	NewsContent = ""
	AddDate = ""
	NewsTypeId = ""
Else
	NewsTitle = Rs("NewsTitle")
	NewsTypeId = Rs("NewsTypeId")
	NewsContent = Rs("NewsContent")
	AddDate = Qsite.FormatDate(FormatDateTime(Rs("AddDate") , 2))
End If
Rs.Close
PageTitle = NewsTitle & " -- " & Qsite.SiteName
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=NewsTitle%> - 胶州人才网</title>
 <meta name="keywords" content="<%=NewsTitle%>,胶州人才网站">
 <meta name="description" content="<%=NewsTitle%>，胶州人才网站！">
<!--#include file="top.asp" -->
<table width="974" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr height="5"> 
    <td height="5"></td>
  </tr>
</table>
<table width="974" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="840" height="616" valign="top"> 
      <table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
        <tr height="4"> 
          <td height="4"></td>
        </tr>
      </table>
      <table width="100%" height="68" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="100%" height="37" align="center"><span style="font-size:18px;color:#333333"><strong><%=NewsTitle%></strong></td>
        </tr>
        <tr>
          <td height="31" align="center"><font color="#666666">信息来源：<a href=http://www.521jz.net target="_blank"><font color="#FF3300">胶州人才网</font> </a>
            发布日期：<font color="#FF3300"><%=AddDate%></font>
            【<a href="javascript:window.print();" class="font1">打印</a>】【<a href="javascript:window.close();" class="font1">关闭</a>】</td>
        </tr>
      </table> 
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><hr size="1" noshade style="color:#cccccc"></td>
        </tr>
      </table>
      <table width="794" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="795" height="249" valign="top" style="font-size:14px;line-height:24px;"> 
            &nbsp;&nbsp;&nbsp; <%=NewsContent%>
			</td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="98%" height="22" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f1f1f1">
        <tr> 
          <td align="right">信息来源：<a href=http://www.521jz.net target="_blank"><font color="#FF3300">胶州人才网</font> </a>&nbsp;</td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="823" height="144" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="411" align="center" valign="top"><table width="97%" height="24" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FED69E" style="border-bottom:1px #FF7A09 solid;">
              <tr> 
                <td width="100%" height="24">&nbsp;<font color="#FF7A09"><strong>【最新文章】</strong></font></td>
              </tr>
            </table>
            <table width="94%" height="38" border="0" cellpadding="0" cellspacing="0">
<%
dim j
Set Rs = server.createobject("ADODB.Recordset")
Rs.Open "select top 6 * from NewsTbl  order by AddDate desc" , Conn , 1 , 1
j = 1
Do While Not Rs.Eof
	Response.Write("<tr>" & vbCrLf)
	Response.Write("<td style=""padding-top:4px;padding-bottom:4px;""><img src=images/ico_7.gif width=4 height=6 hspace=5 align=absmiddle><a title='"&Rs("NewsTitle")&"' href=""News_View.asp?NewsId="& Rs("NewsId") &""" target=""_blank"" >")
	If Len(Rs("NewsTitle")) > 33 Then
	Response.Write(Left(Rs("NewsTitle") , 33) & "...")
	Else
	Response.Write(Rs("NewsTitle"))
	End If
	Response.Write("</a></td>" & vbCrLf)
	Response.Write("</tr>" & vbCrLf)
Rs.MoveNext
j = j + 1
If j > 6 Then Exit Do
Loop
Rs.Close
%>
            </table></td>
          <td width="412" align="center" valign="top"><table width="97%" height="24" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FED69E" style="border-bottom:1px #FF7A09 solid;">
              <tr> 
                <td width="100%" height="24">&nbsp;<font color="#FF7A09"><strong>【相关信息】</strong></font></td>
              </tr>
            </table>
            <table width="94%" height="38" border="0" cellpadding="0" cellspacing="0">
<%
j=0
Set Rs = server.createobject("ADODB.Recordset")
Rs.Open "select top 6 * from NewsTbl where NewsTypeId = "&NewsTypeId&"  order by AddDate desc" , Conn , 1 , 1
j = 1
Do While Not Rs.Eof
	Response.Write("<tr>" & vbCrLf)
	Response.Write("<td style=""padding-top:4px;padding-bottom:4px;""><img src=images/ico_7.gif width=4 height=6 hspace=5 align=absmiddle><a title='"&Rs("NewsTitle")&"' href=""News_View.asp?NewsId="& Rs("NewsId") &""" target=""_blank"" >")
	If Len(Rs("NewsTitle")) > 33 Then
	Response.Write(Left(Rs("NewsTitle") , 33) & "...")
	Else
	Response.Write(Rs("NewsTitle"))
	End If
	Response.Write("</a></td>" & vbCrLf)
	Response.Write("</tr>" & vbCrLf)
Rs.MoveNext
j = j + 1
If j > 6 Then Exit Do
Loop
Rs.Close
%>
             </table></td>
        </tr>
      </table></td>
    <td width="150" align="right" valign="top"><img src="/AdvFile/newDetails_right.gif" width="140" height="600" border="0"></a> 
    </td>
  </tr>
</table>
 <!--#include file="foot.asp" -->
