<%@ Language=VBScript %>
<!--#INCLUDE FILE="inc_Conn.asp" -->
<%
Dim strSql,strClassID,strPageNum,strTotalPages
Dim strRecordNum,strRecordPerPage

strClassID=trim(Request.QueryString("ClassID"))

If strClassID="" Then strClassID=0

strSql="Select * from Class order by Class_Desc"
set rs=MyCon.execute(strSql)


strPageNum=trim(Request.QueryString("PageNum"))
If strPageNum="" or strPageNum="0" Then strPageNum="1"
strPageNum=CInt(strPageNum)
RecordPerPage=50

set rs1=Server.CreateObject("ADODB.Recordset")
strSql="Select * from News where News_Class="
strSql=strSql & strClassID
strSql=strSql & " order by NewsID Desc"
rs1.CursorType = adOpenStatic     
rs1.CacheSize = RecordPerPage  
rs1.Open strSql,MyCon,1,1

rs1.PageSize = RecordPerPage

strTotalPages = rs1.PageCount

If Not(rs1.EOF) Then
	rs1.AbsolutePage = strPageNum
End If





strSql="Select * from Class where ClassID=" & strClassID
set rs2=MyCon.execute(strSql)

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>
<% If not rs2.eof Then %>
<%=rs2("Class_Name")%>
<% Else %>
错误!!!
<% End If %>
</title>
<link rel="stylesheet" href="../css.css" type="text/css">
</head>

<body >
  
<table width="100%" border="0" align="center" bgcolor="#cccccc">
  <tr>
      
    <td width="100%" align="left"> &nbsp;<a href="Default.asp" Class="title1">首页</a><font color="#FFFFFF"> 
      <b> |</b> </font> 
      <% Do while not rs.eof %>
      <a href="ListNews.asp?ClassID=<%=rs("ClassID")%>" Class=title1><%=rs("Class_Name")%></a> 
      <b><font color="#FFFFFF"> |</font></b> 
      <% rs.movenext %>
      <% Loop %>
    </td>
    </tr>
  </table>
  
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
      
    <td width="216" valign="top" align="left" bgcolor="#cccccc"> 
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <tr>
            <td width="100%">
              <form method="POST" action="Search.asp?active=DoIt">
              <table border="1" cellpadding="0" cellspacing="0" width="98%" bordercolorlight="#6699FF" bordercolordark="#6699FF">
                <tr>
                  <td width="100%" bordercolor="#cccccc" bgcolor="#cccccc">标题: 
                    <input type="text" name="title" size="20"></td>
                </tr>
                <tr>
                  <td width="100%" bordercolor="#cccccc" bgcolor="#cccccc">范围: 
                    <select size="1" name="Class">
                      <option value="0">所有类别</option>
                      <% rs.movefirst %>
                      <% Do while not rs.eof %>                
                      <option value="<%=rs("ClassID")%>"><%=rs("Class_Name")%></option>
                      <% rs.movenext %>
                      <% Loop %>                
                    </select></td>                
                </tr>
                <tr>
                  <td width="100%" align="center" bordercolor="#cccccc" bgcolor="#cccccc"> 
                    <input type="submit" value=" 查 找 " name="search"></td>
                </tr>
              </table>
              </form>
            </td>
          </tr>
          <tr>
            <td width="100%"></td>
          </tr>
          <tr>
            
          <td width="100%" bgcolor="#cccccc"><div align="left"><br>
              ·　本国度总站发展至今不仅有强大的技术队伍作支撑，还有一支级富经验的管理队伍。本国度的全体工作人员，会以认真的工作态度和严谨的工作作风，给您以最优秀的服务！ 
              <br>
              ·　我们的宗旨是： 用真诚打动玩家，让玩家从内心感到我们的友好和尊敬.让我们一起建设这个充满人情、友情的家吧！！ </div>
            <div align="right"><br>
              <br>
              --非凡国度 </div></td>
          </tr>
        
        </table>
      </td>
      <td width="80%" valign="top" align="center">
          <table border="0" cellpadding="0" cellspacing="0" width="96%">
            <tr>
              <td width="100%" valign="top" align="left">
              <%
              For strRecordNum = 1 to rs1.PageSize
              
              If not rs1.eof Then
              %>

              
              <a href="ReadNews.asp?NewsID=<%=rs1("NewsID")%>" title="<%=rs1("News_Post_Time")%>"><%=rs1("News_Title")%></a>
              (<%=rs1("News_Click")%>)
              <br>
              <% 
              Else
              Call My_Back()
	        Exit For
	      End If
              rs1.movenext	         
              Next 
              %>

              <% Sub My_Back() %>          
              <% If rs1.bof and rs1.eof Then %>                         
              <div align="center" class="err">
              这个类别不存在!!!
              <br>
              或者该类的帮助为空!
              <br><br>
              如果你认为这是一个错误的"错误信息",
              <br>
              请与           
              <a href="Administrator.asp?ClassID=<%=strClassID%>">管理员</a>
              联系.           
              </div>              
              <% End If %>
              <% End Sub %>
              </td>
            </tr>
            <tr>
              <td width="100%" valign="top" align="left">
              </td>
            </tr>
          </table>
      </td>
 
    </tr>
  </table>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#cccccc">
  <tr>
    <td width="749" valign="top" align="left"> 
      <div align="center" class="page"> 共<%=strTotalPages%>页&nbsp; 第<%=strPageNum%>页 
        <% For i=1 to strTotalPages %>
        <a href="ListNews.asp?ClassID=<%=strClassID%>&PageNum=<%=i%>"><%=i%></a>&nbsp; 
        <% Next %>
      </div>
    </td>
  </tr>
</table>
</body>

</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>
