<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
intclass =RtnReplaceInt(Request.QueryString("class"),2)
      Select case clng(intclass)
  	Case clng(1)
		strclass="本站公告"
 	Case clng(2)
 	strclass="行业新闻"
	Case clng(3)
	strclass="行业知识"
End Select
     
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=strclass%>-<% =strSiteName%></title>
<meta name="description" content="源码天地源码，站长之家" />
<meta name="description" content="源码天地站长交流中心-精品源码下载  www.vipload.cn">
<link href="imger/css.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
.STYLE11 {font-size: 14px}
-->
</style>
</head>
<body>
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" valign="top"><table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><iframe name="login" width="172" height="110" src="common/inc_login.asp" scrolling="no" align="middle" border="0" frameborder="0" marginwidth="1" marginheight="1" target="_top">
				浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="imger/announce.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
					Dim rdsAffiche
					Dim sqlAffiche
					Dim intAfficheCot
					Dim intAfficheCount
					Dim strAfficheSubject
          
					intAfficheCot = 5
					set rdsAffiche = Server.CreateObject("ADODB.Recordset")
					sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
					rdsAffiche.Open sqlAffiche,Conn,1,1
					if not rdsAffiche.EOF then
					do while not rdsAffiche.EOF 
					%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank"><% = rdsAffiche("Topic")%></a></td></tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr><%intAfficheCount = intAfficheCount + 1
							if intAfficheCount > intAfficheCot then exit do
							rdsAffiche.MoveNext 
					loop
                    else
                    %>
                    <tr>
                      <td width="100%" height="22"><font color="#FF0000">&nbsp;&nbsp;没有站务公告信息</font>...</td>
                    </tr>
                    <%
                    end if
					rdsAffiche.Close
					set rdsAffiche = nothing
                    %>
                  </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="imger/trade.gif" width="172" height="37"></td>
              </tr>
              <tr>
                <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                      <%
                      Dim rdsInfo1
                      Dim sqlInfo1
                      Dim intInfoCount1
                      Dim strInfoClass1
                      Dim strTopic1
                      
                      set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
                      sqlInfo1 = "Select top "&intNewInfoCot&" infokey,tj,state,infoclass,topic,pic,color,CreateTime From Dat_Information Where State = 1 order by infokey desc"
                      rdsInfo1.Open sqlInfo1,Conn,1,1
                      if not rdsInfo1.EOF then
                        do while not rdsInfo1.EOF
		xxlx3=rdsInfo1("InfoClass")
								strTopic1 =leftt(rdsInfo1("Topic"),24)
							pic=rdsInfo1("pic")
							strcolor=rdsInfo1("color")
							strsjnew=rdsInfo1("CreateTime")
							strsj1new=FormatTime(strsjnew,6)
                      %>
                        <tr> 
                          <td height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_Info.asp?Id=<% = rdsInfo1("InfoKey")%>" target="_blank" class="a01"><%if  strcolor<>""  then%><font color="#<%=strcolor%>"><% = strTopic1%></font><%else%><% = strTopic1%><%end  if%></a>
</td></tr>
						<tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
				      <%
					rdsInfo1.MoveNext
						loop
				      else
				      %>
						<tr>
						  <td width="100%" colspan="2" height="22">&nbsp;<font color="#FF0000">对不起!没有相匹配的信息</font>...</td>
						</tr>
				      <%
				      end if
					  rdsInfo1.Close
					  set rdsInfo1 = nothing
				      %>	
                      </table></td>
              </tr>
          </table></td>
        </tr>
      </table></td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td height="24" background="imger/09.gif"><span class="STYLE6">≡</span> <span class="STYLE2"><b>您的位置：</b></span><strong class="STYLE4">网站首页 &gt;&gt; 新闻中心</strong></td>
          </tr>
          <tr>
            <td><table cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="0">
            <tbody>
              <tr>
<table width="100%" height="22" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td height="23" valign="top"> 
                      <table width="100%" height="20" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
                          <td width="70%" height="20"><font color="#3986CE">信息主题</font></td>
                          <td width="21%" align="center"><font color="#3986CE">
							发布时间</font></td>
                          <td width="9%" align="center"><font color="#3986CE">浏览</font></td>
                        </tr>                        <tr>
						  <td width="100%" colspan="3" height="1" background="images/dotline.gif"></td>
						</tr><%
Dim rdsNews
Dim sqlNews
Dim rdsTotalRec
Dim intPage       '/当前页/
Dim intTotalRec	  '/所有记录/
Dim intNewsCount
Dim n,p,ii	      '/定义一些临时变量/

intPage = Trim(Request("Page"))
if intPage = "" then
	intPage = 1
else
	intPage = Clng(intPage)
end if
                      
set rdsNews = Server.CreateObject("ADODB.Recordset")
set rdsTotalRec = Conn.Execute("Select Count(NewsKey) From Dat_News Where State = 1")
intTotalRec = rdsTotalRec(0)
sqlNews = "Select * From Dat_News Where State = 1 Order By NewsKey Desc"
rdsNews.Open sqlNews,Conn,1,1
if not rdsNews.EOF then
	if intTotalRec mod intNewsCot = 0 then
		n = intTotalRec \ intNewsCot
	else
		n = intTotalRec \ intNewsCot + 1
	end if
	rdsNews.MoveFirst
	if intPage > n then intPage = n
	if intPage < 1 then intPage = 1
	rdsNews.Move (intPage - 1) * intNewsCot
	do while not rdsNews.EOF and intNewsCount < Clng(intNewsCot)
		intNewsCount = intNewsCount + 1
%>
                       <tr> 
                          <td width="70%" height="20" class="F16">&nbsp;<img border="0" src="images/arrow_01.gif">&nbsp;<a href="View_News.asp?Id=<% = rdsNews("NewsKey")%>" target="_blank" class="a01"><% = rdsNews("Topic")%></a></td>
                          <td width="21%" align="center"><% = FormatTime(rdsNews("CreateTime"),5)%></td>
                          <td width="9%" align="center"><% = rdsNews("Hits")%></td>
                        </tr>
                        <tr>
						  <td width="100%" colspan="3" height="1" background="images/dotline.gif"></td>
						</tr>
<%
  		rdsNews.MoveNext
	loop
else
%>
						<tr>
						  <td width="100%" colspan="3" height="22">&nbsp;<font color="#FF0000">没有行业新闻信息</font>...</td>
						</tr>
<%
end if
rdsNews.Close
set rdsNews = nothing

if intPage - 1 mod 10 = 0 then
	p = (intPage - 1) \ 10
else
	p = (intPage - 1) \ 10
end if
%>
                      </table>
				    </td>
                  </tr>
                </table>
<table border="0" width="98%" cellspacing="0" cellpadding="0" align="center">
	    <form method="post" action="News.asp?class=<%=intclass%>" name="Form2">
	    <input type="hidden" name="KeyWord" value="<% = strKeyWord%>">
	    <tr>
		  <td width="10%" height="30" valign="middle">共<b><%= intTotalRec %></b>条</td>
		  <td width="80%" height="30" valign="middle"><div align="center">
			<%
				if intPage = 1 then
					Response.Write "<font face=webdings>9</font>   "
				else
					Response.Write "<a href='?Page=1&KeyWord="& strKeyWord &"&class="&intclass&"' title=首页><font face=webdings>9</font></a>   "
				end if
				if p * 10 > 0 then Response.Write "<a href='?Page="&Cstr(p*10)&"&KeyWord="& strKeyWord &"&class="&intclass&"' title=上十页><font face=webdings>7</font></a>   "
				Response.Write "<b>"
				for ii = p * 10 + 1 to P * 10 + 10
					   if ii = intPage then
				          Response.Write "<font color=""#FF0000"">"+Cstr(ii)+"</font> "
					   else
					      Response.Write "<a href='?Page="&Cstr(ii)&"&KeyWord="& strKeyWord &"&class="&intclass&"'>"+Cstr(ii)+"</a>   "
					   end if
					if ii = n then exit for
				next
				Response.Write "</b>"
				if ii < n then Response.Write "<a href='?Page="&Cstr(ii)&"&KeyWord="& strKeyWord &"&class="&intclass&"' title=下十页><font face=webdings>8</font></a>   "
				if intPage=n then
					Response.Write "<font face=webdings>:</font>   "
				else
					Response.Write "<a href='?Page="&Cstr(n)&"&KeyWord="& strKeyWord &"&class="&intclass&"' title=尾页><font face=webdings>:</font></a>   "
				end if
			%></div></td><td width="10%" height="30" valign="middle">
			<input type="text" name="Page" size="2" maxlength="10" value="<%= intPage %>" class="face"> <input type="submit" value="Go" name="submit" class="button">
			</td>
		</tr>
		</form>
	  </table>
               </td>
              </tr>
            </tbody>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table>      </td>
  </tr>
</table>
<!--#include file="boot.asp"-->
</body>
</html>
