<!--#include file="conn.asp"-->
<!--#include file="noangelql.asp"-->
<!--#include file="angel_function.asp"-->
<!--#include file="page.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=site("site_name")%>-<%=site("site_keywords")%></title>
<meta name="keywords" content="<%=site("site_keywords")%>" />
<meta name="description" content="<%=site("site_description")%>" />
<LINK href="favicon.ico" rel="Shortcut Icon">
<LINK href="favicon.ico" rel="Bookmark">
<link href="css/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="header.asp"-->
    <div id="Central" class="layoutt"> 
      <!--#include file="news_left.asp"-->
      <div id="right">
        <div class="right_title">
          <h2>新闻中心</h2>
        </div>
        <div class="right_body">
          <ul class="news">
            <%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Angel_news where 1=1 and Angel_languageid=1 and Angel_category="&request.QueryString("id")&" order by Angel_id desc"
rs.Open sql, conn, 1, 1
If rs.EOF Then
    response.Write "&nbsp;暂无新闻！"
Else
    rs.PageSize = 20 
    iCount = rs.RecordCount 
    iPageSize = rs.PageSize
    maxpage = rs.PageCount
    page = request("page")
    If Not IsNumeric(page) Or page = "" Then
        page = 1
    Else
        page = CInt(page)
    End If
    If page<1 Then
        page = 1
    ElseIf page>maxpage Then
        page = maxpage
    End If
    rs.AbsolutePage = Page
    If page = maxpage Then
        x = iCount - (maxpage -1) * iPageSize
    Else
        x = iPageSize
    End If
    For i = 1 To x
%>
        <li><a href="news_view.asp?id=<%=rs("Angel_id")%>" title="<%=rs("Angel_title")%>"><%=left(rs("Angel_title"),35)%></a> <span class="data"><%=rs("Angel_data")%></span></li>
            <%
rs.movenext
Next
end if
%>
          </ul>
          <%'以下显示分页
Call PageControl(iCount, maxpage, page, "border=0 align=center", "<p align=center>")
%>
        </div>
      </div>
      <div class="clear"></div>
      <div id="link_text">
        <ul>
          <%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 10 * from Angel_link_text where 1=1 and Angel_languageid=1"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
%>
          <li><a href="<%=rs("Angel_url")%>" title="<%=rs("Angel_title")%>"><%=rs("Angel_title")%></a></li>
          <%
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
        </ul>
      </div>
    </div>
  </div>
  <!--#include file="footer.asp"--> 
</div>

