<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><!--#include file="../Include/Conno.asp" --><!--#include file="../Include/function.asp" --><!--#include file="../Include/ShowPage.asp" --><!--#include file="../sql/Neeao_SqlIn.Asp" -->
<%dim id,rs
id = trim(request("newsSort"))
if not isNumeric(id) or id="" then
n_name="信息列表"
else
set rsm=conn.execute("select n_name from tb_news_menu where id="&id&"")
if not rsm.eof then
n_name=rsm("n_name")
rsm.close
end if
end if
keyword=trim(request("keyword"))
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=n_name%>,明星写真,网友自拍,另类搞笑,风景如画,动漫游戏,环球影视,综合图库,襄樊生活网</title>
<meta name="keywords" content="明星写真,<%=n_name%>,网友自拍,动漫游戏,环球影视,综合图库,另类搞笑,风景如画">
<meta name="description"content="这是一个精彩的图片海洋。襄樊生活网图海每天索引几十万中文论坛，每天和您一起分享中文论坛最热门的图片。">
<LINK href="../css/Menu.css" type=text/css rel=stylesheet>
<LINK href="../css/apic.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3059" name=GENERATOR>
<SCRIPT src="../js/029bxw.js" type=text/javascript></SCRIPT>
</head>
<body>
<!--页面开始-->
<!--页面顶部开始-->
<!--#include file="../include/picmenu.htm"-->
<!--页面顶部结束-->
<!--页面标题开始-->
<DIV id="aTitle"><img src="../images/Icon/001.gif"/> 您的位置：<A href="/">首页</A>&nbsp;&gt;&gt;&nbsp;<a href="/Pic/index.asp">精彩图库</A>&nbsp;&gt;&gt;&nbsp;<%=n_name%></DIV>
<!--页面标题结束-->
<!--页面正文开始-->
<TABLE width=100% border=0 cellPadding=0 cellSpacing=0 bgcolor="#0175be">
    <TR>
      <TD height="26" class="aTexe142">&nbsp;&nbsp;<%=n_name%> <IMG height=13 src="../images/card/014.gif" align=absMiddle></TD>
      <TD width=60></TD>
    </TR>
</TABLE>
<div id="aPic">
<ul id="aPicUl"><%  m_Parameter = "NewsSort="&id&"&keyword="&keyword&""
    dim m_RecordCount,m_PageNo,m_Page
    m_RecordCount=0 : m_PageNo=0 : m_Page=0
	m_PageSize = 30 
    m_PageNo = Trim(Request.querystring("PageNo"))
	Set rs = Server.createobject("Adodb.RecordSet")
    m_SQL = "SELECT id,title,titlepic FROM tb_news WHERE lm='13' and id is not null"	
	if id<>"" then
	 m_SQL = m_SQL +" and lm2 = '"&id&"'"
    end if
	if keyword<>"" then
	 m_SQL = m_SQL +" and title like '%"&keyword&"%'"
    end if
	m_SQL = m_SQL +" order by id desc"
	rs.open m_SQL,conn,1,1
	if rs.Eof then
	   response.write "<br><p align='center'><font color=666666><B>站内暂时没有您所查看的信息</B></font></p><br>"
    else
      m_RecordCount = rs.RecordCount
      rs.PageSize = m_PageSize
      m_Page = rs.PageCount
      if m_PageNo = ""  then m_PageNo =1
      if cint(m_PageNo) < 1 or cint(m_PageNo) > m_Page then m_PageNo = 1
      rs.AbsolutePage = m_PageNo
      rc = m_PageSize
      re = 1
	  m_Count = 1
      Do while not rs.eof and rc>0
	  ptitle=rs("title")
	  m_Count = m_Count +1
	  if m_Count mod 2 then m_BgColor = "ffffff" else m_BgColor = "f2f2f2"
        ShowContent()
      rs.MoveNext
      re = re+1
      rc = rc-1
    Loop
	rs.Close
 End if	
 Sub ShowContent()%>
	 <li>
	 <div class="aPic02"><a href="/Pic/Show.asp?ArticleID=<%=rs("id")%>"><img src="<%=rs("titlepic")%>" alt="<%=ptitle%>" width="130" height="98" border="0" /></a> </div>
	 <div class="aPic01"><a href="/Pic/Show.asp?ArticleID=<%=rs("id")%>" title=<%=ptitle%>><%=gotTopic(ptitle,16)%></a></div>
	 </li><%End Sub%>
</ul>
</div>
<div class="list_news_url"><% Call ShowPage(m_Parameter)%></div>
<!--页面正文结束-->
<div class="news_jgx"> </div>
<!--版权开始-->
<!--#include file="../include/CopyRight.htm"-->
<!--版权结束-->
<!--页面结束-->
</body>
</html>
