<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/Conn.asp" -->
<!--#Include File="Func.asp"-->
<%Call WebSiteLoad(1)%>
<!DOCTYPE html>
<!--HTML5 doctype-->
<html>
<head>
<meta http-equiv="Content-type" content="text/html; charset=gb2312">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, minimum-scale=1.0, user-scalable=0">
<meta name="apple-mobile-web-app-capable" content="yes" />
<title><%=SiteTitle2%></title>
<link rel="stylesheet" type="text/css" href="css/icons.css" />
<link rel="stylesheet" type="text/css" href="css/af.ui.base.css" />
<link rel="stylesheet" type="text/css" href="css/style.css" />
<!--jqMobi主JS-->
<script type="text/javascript" charset="gb2312" src="js/jquery-1.10.2.min.js"></script>
<script type="text/javascript" charset="gb2312" src="js/jq.appframework.js"></script>
<script type="text/javascript" charset="gb2312" src="js/appframework.ui.js"></script>
<!--jqMobi插件-->
<script type="text/javascript" charset="gb2312" src="js/jq.slidemenu.js"></script>
<script type="text/javascript" charset="gb2312" src="js/base.js"></script>
<script type="text/javascript">
	$(document).ready(function(e) {
        $(".page-list a").attr("data-ignore",true); //分页链接不使用AJAX请求
    });
</script>
</head>

<body>
<div id="afui">
  <div id="content">

	<div id="mainPanel" class="panel" data-header="main_header" data-footer="main_footer">
      <!--筛选按钮-->
      <div class="select-bar">
        <div class="col" style="width:100%">
		<a href="javascript:;" class="icon-back" onclick="history.back(-1)">返回上一页</a>
        </div>
		<!--
        <div class="col">
          <a href="#categoryPanel" class="icon-carat-r"></a>
        </div>
		-->
      </div>
      <!--/筛选按钮-->
      
      <!--新闻列表-->
      <div>
        <ul class="list listview listline">
<%
dim rs,sql,idCount,Listid
Listid=request("Listid")
if not IsNumeric(Listid) then 
response.Write("&#x8BF7;&#x4E0D;&#x8981;&#x8F93;&#x5165;&#x975E;&#x6CD5;&#x5B57;&#x7B26;")
response.end
end If
dim pages,sqlid
      pages=10
  dim pagec
  dim page
      page=clng(request("Page"))
  dim pagenc
      pagenc=5
  dim pagenmax
  dim pagenmin
  dim pageprevious
  dim pagenext
  dim Myself,PATH_INFO,QUERY_STRING
      PATH_INFO = request.servervariables("PATH_INFO")
	  QUERY_STRING = request.ServerVariables("QUERY_STRING")'
      if QUERY_STRING = "" then
	    Myself = PATH_INFO & "?"
	  elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
	    Myself= PATH_INFO & "?" & QUERY_STRING & "&"
	  else
	    Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
	  end if
  dim taxis
      taxis="order by id desc "
  dim i
  if Listid="" then
  sql="select count(ID) as idCount from Angel_Article"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  idCount=rs("idCount")
  if(idcount>0) then
    if(idcount mod pages=0)then
	  pagec=int(idcount/pages)
   	else
      pagec=int(idcount/pages)+1
    end if
	sql="select id from Angel_Article where ViewFlag"&" order by ID"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    rs.pagesize = pages
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page
    for i=1 to rs.pagesize
	  if rs.eof then exit for
	  if(i=1)then
	    sqlid=rs("id")
	  else
	    sqlid=sqlid &","&rs("id")
	  end if
	  rs.movenext
    next
  end if




set rs = server.createobject("adodb.recordset")
sql="select * from Angel_Article where id in("& sqlid &") order by ID"
rs.open sql,conn,1,3
dim nn
nn=1
do while not rs.eof
response.Write("<li>"&vbcrlf)
response.Write("<a href=""newsview.asp?Id="&rs("ID")&""" data-ignore=""true"">"&vbcrlf)
response.Write("<i class=""number"">"&nn&"</i><span class=""text"">"&unicode(rs("ArticleName"))&"</span>"&vbcrlf)
response.Write("<p><i class=""hot"">"&unicode(rs("ClickNumber"))&"次</i><i class=""date"">时间:"&unicode(FormatDate(rs("AddTime"), 14))&"</i></p>"&vbcrlf)
response.Write("</a>"&vbcrlf)
response.Write("</li>"&vbcrlf)
nn=nn+1
rs.movenext 
loop
rs.close


Response.Write(" </ul>"&vbcrlf)
Response.Write("</div>"&vbcrlf)
Response.Write("<!--/新闻列表-->"&vbcrlf)


'Response.Write("<h2>&#x65B0;&#x95FB;&#x54A8;&#x8BAF;</h2><ul><li>&#x603B;&#x6570;:"&idcount&";"&page&"/"&pagec&" ")

Response.Write("<!--分页页码-->"&vbcrlf)
Response.Write(" <div class=""page-lists""><span>共"&idcount&"记录</span><span>"&page&"/"&pagec&"</span>")


pagenmin=page-pagenc
  pagenmax=page+pagenc
  if(pagenmin<1) then pagenmin=1
  if(page>1) then response.write ("<a href="""& myself &"Page=1"" title=""&#x56DE;&#x5230;&#x7B2C;&#x4E00;&#x9875;""  data-ignore=""true""><font face=""webdings"" color=""#000000"">9</font></a> ")
  if page-(pagenc*2+1)<=0 then
	pageprevious=1
  else
	pageprevious=page-(pagenc*2+1)
  end If
  if(pagenmin>1) then response.write ("<a href="""& myself &"Page="& pageprevious &"""  data-ignore=""true"" title=""&#x7B2C;"& pageprevious &"&#x9875;""><font face=""webdings"" color=""#000000"">3</font></a> ")
  if(pagenmax>pagec) then pagenmax=pagec
  for i = pagenmin to pagenmax
	if(i=page) then
	  response.write ("&nbsp;<strong style=""color:red""  data-ignore=""true"">"& i &"</strong>&nbsp;")
	Else
		response.write ("[<a href="""& myself &"Page="&i&"""  data-ignore=""true"">"& i &"</a>]")
	end if
  next
  if page+(pagenc*2+1)>=pagec then
    pagenext=pagec
  else
    pagenext=page+(pagenc*2+1)
  end If

  response.Write("</div><!--放置页码列表-->"&vbcrlf)
'response.Write("<br/></li></ul><div id=""n"" align=""left""></div><img src=""WapImg/checkarticle.gif"" alt="""" /><a title=""&#x8D44;&#x8BAF;&#x641C;&#x7D22;"" href=""NewsFindText.asp"">&#x8D44;&#x8BAF;&#x641C;&#x7D22;</a><br/><img src=""WapImg/back.gif"" alt="""" /><a title=""&#x8FD4;&#x56DE;&#x4E0A;&#x7EA7;"" href=""index.asp"">&#x8FD4;&#x56DE;&#x4E0A;&#x7EA7;</a><br/><img src=""WapImg/home.gif"" alt="""" /><a title=""&#x7F51;&#x7AD9;&#x9996;&#x9875;"" href=""Index.asp"">&#x7F51;&#x7AD9;&#x9996;&#x9875;</a>")

else

 sql="select count(ID) as idCount from Angel_Article where ViewFlag"&" and id="&Listid&""
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  idCount=rs("idCount")
  if(idcount>0) then
    if(idcount mod pages=0)then
	  pagec=int(idcount/pages)
   	else
      pagec=int(idcount/pages)+1
    end if
	sql="select id from Angel_Article where ViewFlag"&" and id="&Listid&" order by ID"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    rs.pagesize = pages
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page
    for i=1 to rs.pagesize
	  if rs.eof then exit for
	  if(i=1)then
	    sqlid=rs("id")
	  else
	    sqlid=sqlid &","&rs("id")
	  end if
	  rs.movenext
    next
  end If


set rs = server.createobject("adodb.recordset")
sql="select * from Angel_Article where ViewFlag and id="&Listid&" and id order by ID"
rs.open sql,conn,1,3
dim nna
nna=1
do while not rs.eof

response.Write("<li>"&vbcrlf)
response.Write("<a href=""newsview.asp?Id="&rs("ID")&""" data-ignore=""true"">"&vbcrlf)
response.Write("<i class=""number"">"&nna&"</i><span class=""text"">"&unicode(rs("ArticleName"))&"</span>"&vbcrlf)
response.Write("<p><i class=""hot"">"&unicode(rs("ClickNumber"))&"次</i><i class=""date"">时间:"&unicode(FormatDate(rs("AddTime"), 14))&"</i></p>"&vbcrlf)
response.Write("</a>"&vbcrlf)
response.Write("</li>"&vbcrlf)

nna=nna+1
rs.movenext 
loop
rs.close

Response.Write(" </ul>"&vbcrlf)
Response.Write("</div>"&vbcrlf)
Response.Write("<!--/新闻列表-->"&vbcrlf)
Response.Write("<!--分页页码-->"&vbcrlf)
Response.Write("<div class=""page-lists""><span>共"&idcount&"记录</span><span>"&page&"/"&pagec&"</span>")
pagenmin=page-pagenc
  pagenmax=page+pagenc
  if(pagenmin<1) then pagenmin=1
  if(page>1) then response.write ("<a href="""& myself &"Page=1"" title=""&#x56DE;&#x5230;&#x7B2C;&#x4E00;&#x9875;""><font face=""webdings"" color=""#000000"">首页</font></a> ")
  if page-(pagenc*2+1)<=0 then
	pageprevious=1
  else
	pageprevious=page-(pagenc*2+1)
  end If
  if(pagenmin>1) then response.write ("<a href="""& myself &"Page="& pageprevious &""" title=""&#x7B2C;"& pageprevious &"&#x9875;""><font face=""webdings"" color=""#000000"">3</font></a> ")
  if(pagenmax>pagec) then pagenmax=pagec
  for i = pagenmin to pagenmax
	if(i=page) then
	  response.write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
	Else
		response.write ("[<a href="""& myself &"Page="&i&""">"& i &"</a>]")
	end if
  next
  if page+(pagenc*2+1)>=pagec then
    pagenext=pagec
  else
    pagenext=page+(pagenc*2+1)
  end If
  response.Write("</div><!--放置页码列表-->"&vbcrlf)



end if
%>

      
      <!--版权信息-->
            <div class="copyright">
        <p><a href="http://<%=SiteUrl%>/m/" data-ignore="true">触屏版</a> | <a href="http://<%=SiteUrl%>/" data-ignore="true">电脑版</a> | <a href="javascript:;" onclick="$.ui.scrollToTop('mainPanel')">返回顶部</a></p>
        <address>版权所有 <%=SiteTitle2%> 版本号 V1.3</address></p>
      </div>
      <!--/版权信息-->
    
	</div>
    
    <!--页面头部-->
        <header id="main_header">
      <h2 class="logo"><img src="<%=AngelSysRootDir%>images/logo.png" /></h2>
      <a onclick="af.ui.toggleSideMenu()" class="menuButton"></a>
    </header>
    <!--/页面头部-->
    
    <!--底部导航-->
     <footer id="main_footer">
      <a href="index.asp" class="icon home" data-ignore="true">首页</a>
      <a href="login.asp" class="icon user" data-ignore="true">会员</a>
      <a href="productList.asp" class="icon basket" data-ignore="true">公司产品</a>
      <a href="search.asp" class="icon magnifier" data-ignore="true">搜索</a>
      <a href="about.asp?Id=10" class="icon phone" data-ignore="true">电话</a>
    </footer>
    <!--/底部导航-->
	
    <!--左侧导航-->
        <nav>
      <ul class="list">
        <li class="divider">网站导航</li>
        <li><a href="index.asp" class="icon home" data-ignore="true">网站首页</a></li>
        <li><a href="newslist.asp" class="icon tv" data-ignore="true">新闻资讯</a></li>
        <li><a href="productList.asp" class="icon basket" data-ignore="true">公司产品</a></li>
        <li><a href="downlist.asp" class="icon download" data-ignore="true">资料下载</a></li>
        <li><a href="login.asp" class="icon user" data-ignore="true">会员中心</a></li>
        <li><a href="about.asp" class="icon phone" data-ignore="true">关于我们</a></li>
        <li><a href="messagewrite.asp" class="icon message" data-ignore="true">在线留言</a></li>
        <li><a href="about.asp?Id=10" class="icon phone" data-ignore="true">联系我们</a></li>
      </ul>
    </nav>
    <!--/左侧导航-->
    
    <!--分类筛选-->
    <div id="categoryPanel" class="panel" data-footer="none">
	<header><a onclick="$.ui.goBack();" class="backButton">返回</a>
	  <h1>资讯类别</h1>
	  <a onclick="$.ui.toggleSideMenu()" class="menuButton"></a>
	  </header>

      <ul class="category-bar">
        <!--大类-->
        <li>
          <h2><a href="/news/1.html" data-ignore="true">IT资讯</a></h2>
          <p>
            <!--小类-->
            
            <a href="/news/5.html" data-ignore="true">科技要闻</a>
            
            <a href="/news/3.html" data-ignore="true">IT业界</a>
            
            <a href="/news/4.html" data-ignore="true">软媒动态</a>
            
            <!--/小类-->
          </p>
        </li>
        
        <li>
          <h2><a href="/news/6.html" data-ignore="true">数码产品</a></h2>
          <p>
            <!--小类-->
            
            <a href="/news/7.html" data-ignore="true">笔记本电脑</a>
            
            <a href="/news/8.html" data-ignore="true">平板电脑</a>
            
            <a href="/news/9.html" data-ignore="true">智能手机</a>
            
            <a href="/news/10.html" data-ignore="true">超极本</a>
            
            <!--/小类-->
          </p>
        </li>
        
        <!--/大类-->
      </ul>
    </div>
    <!--/分类筛选-->
      
  </div>
</div>
</body>
</html>
