<!--#include file="Conn.asp" -->
<!--#include file="Comm/Site_Class.asp" -->
<!--#include file="Comm/Function.asp" -->
<%

Set Qsite = New Site_Class

Qsite.SiteConfig()
Qsite.GotoErrPage()
Dim Rs,Sql,i,CurrentPage,FileName,j
Dim Id,NewsTypeName
Dim tdcss
Id = Qsite.chgStr(Trim(Request.QueryString("Id")))
If id = "" Or IsNull(id) Or Not IsNumeric(id) Then id = 0
NewsTypeName = NewsType_Name(id)
Sql = "select * from NewsTbl where NewsTypeId = "&id&" order by AddDate desc"
FileName = "News_More.asp?id="&id
%>
<TITLE><%=NewsTypeName%> -  <%=Qsite.SiteName%></TITLE>
<meta name="keywords" content="<%=NewsTypeName%>，职场资讯，<%=Qsite.SiteName%>" />
<meta name="description" content="<%=Qsite.SiteName%>为您提供职场资讯，职场礼仪，职场法则，职场故事，求职攻略，求职技巧等方面的资讯信息！" />

<div align="center">
<div style=" width:960px; height:auto; background-color:#FFF;">

<!--#include file="header.asp" -->
<link href="css/News.css" rel="stylesheet" type="text/css" />
<script language="javascript">
	function GotoPage()
	{
		var Fn = ListForm.FileName.value;
		var Cp = ListForm.CurPage.value;
		location.href = Fn + "&page=" + Cp;
	}
</script>
<div class="center_zczx">


<div class="zczx_left">
<div id="zcxx_left">
<div id="weizhi">
&nbsp;&nbsp;当前位置：<a href="/" title="<%=Qsite.SiteName%>"><%=Qsite.SiteName%></a> > <a href="news_Index.asp" title="职场资讯">职场资讯</a> > <a href="News_More.asp?Id=<%=Id%>" title="<%=NewsTypeName%>"><%=NewsTypeName%></a> 
</div>



<form id="ListForm" name="ListForm" method="post" action="" style="margin:0">	
<%
Set Rs = server.createobject("ADODB.Recordset")
Rs.Open Sql , Conn , 1 , 1
If Rs.Eof Then
call infohref("此数据不存在或已被删除", "news_index.asp")
Else
%>
<ul class="nm_list">
<%
	Rs.PageSize = 50
	notPage(Request("page"))
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
	Rs.AbsolutePage = CurrentPage
	i = 0
	tdcss = "td_line_col_FFFFFF"
	Do While Not Rs.Eof
%>
<li>
<span style="float:right;color:#999999">[<%=Qsite.FormatDate(FormatDateTime(Rs("AddDate") , 2))%>]</span>
·<a href="news.asp?Id=<%=Rs("NewsId")%>" target="_blank"><%=left(Rs("NewsTitle"),35)%></a>
</li>
<%
	i = i + 1
	Rs.MoveNext
	If i >= Rs.PageSize Then Exit Do
	If i Mod 2 = 0 Then
		tdcss = "td_line_col_FFFFFF"
	Else
		tdcss = "td_line_col_FBFBFB"
	End If
	Loop
%>
</ul>
  <div id="CurrentPage">
				<%
				Qsite.Page_Cn CurrentPage , Rs.PageCount , Rs.RecordCount , FileName
				%>
              
				 &nbsp;转到
					<input name="CurPage" type="text" class="input_bk_D2D2D2" id="CurPage" value="<%=CurrentPage%>" size="4" />
					页
					<input name="GoPage" type="button" class="input_bk_D2D2D2" value="跳转" onClick="javascript:GotoPage();" />
					<input name="FileName" type="hidden" id="FileName" value="<%=FileName%>" />
             </div>
<%
End If
Rs.Close
set rs = nothing
%>
</form>
</div>
<div style="clear:both"></div>	
</div>

<div class="zczx_right">
        <div class="zczx_right_box">
        <div id ="zczx_right_title">点击排行</div>
        <ul class="zxcx_right_list yanse">
          <%
	Set rs = server.CreateObject("adodb.recordset")
    rs.Open "select NewsId,newsTitle,clicknum from NewsTbl order by clicknum desc", conn, 1, 1
	j = 1
    Do While Not rs.EOF
	j=j+1
%>      
     <li> <span style="color:#999;"><%=rs("clicknum")%></span> <a href="news.asp?id=<%=Rs("NewsId")%>" target="_blank"><%=left(Rs("NewsTitle"),13)%></a> </li>
          <%
    rs.movenext
	if j >8 then exit do
    Loop
    rs.Close
    Set rs = Nothing
%>
</ul>
     <div style="clear:both"></div>
   </div>
        <div class="zczx_right_box">
         <div id ="zczx_right_title">最新资讯</div>
         <ul class="zxcx_right_list yanse">
          <%
Set rs = server.CreateObject("adodb.recordset")
 
    rs.Open "select top 8 * from NewsTbl order by AddDate desc", conn, 1, 1
    Do While Not rs.EOF
%>
          
            <li> <span style="float:right;color=#999999"><%=FormatDateTime(Rs("AddDate") , 2)%></span> <a href="news.asp?id=<%=Rs("NewsId")%>" target="_blank"><%=left(rs("NewsTitle"),13)%></a> </li>
          
          <%
    rs.movenext
    Loop
    rs.Close
    Set rs = Nothing
%>
</ul>
          <div style="clear:both"></div>
        </div>
        <div style="clear:both"></div>
      </div>


<div style="clear:both"></div>
</div>

<!--#include file="foot.asp" -->
<div style="clear:both"></div>
</div>
</div>
