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

Set Qsite = New Site_Class

Qsite.SiteConfig()
Qsite.GotoErrPage()

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

Dim Rs,iRs,nRs,Sql,i,CurrentPage,FileName
Dim NewsTypeId,NewsTypeName
Dim tdcss

Set Rs = server.createobject("ADODB.Recordset")
Set nRs = server.createobject("ADODB.Recordset")

NewsTypeId = Qsite.chgStr(Trim(Request.QueryString("NewsTypeId")))

If NewsTypeId = "" Or IsNull(NewsTypeId) Or Not IsNumeric(NewsTypeId) Then NewsTypeId = 0

NewsTypeName = NewsType_Name(NewsTypeId)

Sql = "select * from NewsTbl where NewsTypeId = "& NewsTypeId &" order by AddDate desc"

FileName = "News_More.asp?NewsTypeId="& NewsTypeId
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=NewsTypeName%> - 胶州人才网</title>
 <meta name="keywords" content="<%=NewsTypeName%>,胶州人才网站,胶州招聘网站,胶州人力资源,胶州人才市场">
 <meta name="description" content="<%=NewsTypeName%>，胶州人才网站, 胶州新人才网！">
<!--#include file="top.asp" -->
<script language="javascript">
	function GotoPage()
	{
		var Fn = ListForm.FileName.value;
		var Cp = ListForm.CurPage.value;
		location.href = Fn + "&page=" + Cp;
	}
</script>
<table width="974" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td width="200" valign="top"><!--#include file="news_left.asp" --></td>
		<td  align="center" valign="top">
		



<table width="94%" height="32" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td background="../images/Seek_r49_c15.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="41">&nbsp;</td>
                    <td width="658"><font color="#FFFFFF">您当前位置：首页 -> 
                      <%=NewsTypeName%>
                      -> 详细列表</font></td>
                  </tr>
                </table></td>
            </tr>
          </table> 

		<form id="ListForm" name="ListForm" method="post" action="" style="margin:0">
		<table width="94%" border="0" cellpadding="5" cellspacing="0" >
 
<%
Rs.Open Sql , Conn , 1 , 1
If Rs.Eof Then
%>
			<tr>
				<td height="30" colspan="2">暂无资讯信息！</td>
		  </tr>
<%
Else
	Rs.PageSize = 22
	CurrentPage = Clng(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
%>
			<tr>
				<td height="30" class="<%=tdcss%>">·<a href="News_View.asp?NewsId=<%=Rs("NewsId")%>" target="_blank"><%=Rs("NewsTitle")%></a></td>
				<td height="30" align="right" class="<%=tdcss%>">[<%=Qsite.FormatDate(FormatDateTime(Rs("AddDate") , 2))%>]</td>
			</tr>
<%
	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
%>
			<tr>
				<td height="10" colspan="2"></td>
		  </tr>
			<tr>
				<td height="25" colspan="2" align="right">
				<%
				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%>" />				</td>
			</tr>
<%
End If
Rs.Close
%>
		 
	  </form>		 
</table> 
</td>
      </tr>
     </table>
 <!--#include file="foot.asp" -->
