<!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" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>襄樊问吧 &gt;&gt; 襄樊生活网--生活需要信息，信息源于生活，贴近生活，服务生活</title>
<meta name="keywords" content="襄樊生活网">
<LINK href="../css/Menu.css" type=text/css rel=stylesheet>
<LINK href="../css/abA.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/menu.htm"-->
<!--页面顶部结束-->
<!--页面标题开始-->
<DIV id="aTitle"><img src="../images/Icon/001.gif"/> 您的位置：<A href="/">首页</A>&nbsp;&gt;&gt;&nbsp;<A href="/ba">襄樊信息通</A>&nbsp;&gt;&gt;&nbsp;主题列表</DIV>
<!--页面标题结束-->
<!--页面正文开始-->
<div id="layout_news">
<div id="layout_l">
	<div class="textbox">
		<form name="form1" method="post" action="/ba/index.asp"><div id="textbody" class="text_body">
		  信息查询:
		    <input name="keyword" type="text" class="input" id="keyword">
            <input name="imageField" type="image" src="../images/ba/pic_84.gif" alt="查找" width="51" height="21" border="0">		    
          <a href="/ba/index.asp#add"><img src="../images/ba/pic_85.gif" alt="发布新信息" width="102" height="21" border="0"></a> <a href="/ba"><img src="../images/ba/pic_82.gif" alt="所有信息列表" width="59" height="21" border="0"></a>热门信息:
		</div>
		</form>
		<div id="textbody" class="text_body">
		   <div id="maino2">
  <ul>
   <li class="titles1">点击</li>
   <li class="titles2">回复</li>
   <li class="titles3">标题</li>
   <li class="titles4">作者</li>
  </ul>
 </div>
 <div id="maino3"><%keyword=trim(Request("keyword"))
 m_Parameter = "keyword="&keyword&""
    dim m_RecordCount,m_PageNo,m_Page
    m_RecordCount=0 : m_PageNo=0 : m_Page=0
	m_PageSize = 20 
    m_PageNo = Trim(Request.querystring("PageNo"))
	Set rs = Server.createobject("Adodb.RecordSet")
    m_SQL = "SELECT * FROM tb_ba WHERE msgid=0 and id is not null"	
	if keyword<>"" then
	 m_SQL = m_SQL +" and u_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><a href=index.asp?#add>没有找到您所要查看的信息,请发布您的信息以便解答!</a></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
u_content=rs("u_title")
     u_content=replace(u_content,"日","*")
u_content=replace(u_content,"操","*")
u_content=replace(u_content,"党","*")
u_content=replace(u_content,"法轮功","***")
u_content=replace(u_content,"江泽民","***")
u_content=replace(u_content,"胡锦涛","***")
u_content=replace(u_content,"三级片","我该死")
u_content=replace(u_content,"腚","*")
u_content=replace(u_content,"妓","*")
u_content=replace(u_content,"娼","*")
u_content=replace(u_content,"阴蒂","*")
u_content=replace(u_content,"奸","*")
u_content=replace(u_content,"尻","*")
u_content=replace(u_content,"贱","*")
u_content=replace(u_content,"婊","*")
u_content=replace(u_content,"靠","*")
u_content=replace(u_content,"叉","*")
u_content=replace(u_content,"龟头","*")
u_content=replace(u_content,"屄","*")
u_content=replace(u_content,"赑","*")
u_content=replace(u_content,"妣","*")
u_content=replace(u_content,"肏","*")
u_content=replace(u_content,"尻","*")
u_content=replace(u_content,"屌","*")
	  id=rs("id")
	  m_SQLs = "SELECT COUNT(*) FROM tb_ba where msgid="&id&""
     SET rsc = conn.Execute(m_SQLs)
     replys = rsc(0) : rsc.Close
	  m_Count = m_Count +1
	  if m_Count mod 2 then m_BgColor = "f2f2f2" else m_BgColor = "ffffff"
        ShowContent()
      rs.MoveNext
      re = re+1
      rc = rc-1
    Loop
	rs.Close
 End if	
 Sub ShowContent()
%><ul>
   <li class="titles1"><%=rs("u_chick")%></li>
   <li class="titles2"><%=replys%></li>
   <li class="titles3"><a class=t href="/ba/show.asp?Id=<%=id%>" target=_blank ><%=gotTopic(deleteHtmlTag(u_content),42)%></a></li>
   <li class="titles4"><%=left(rs("username"),5)%></li>
  </ul><% End Sub %>
 </div><div id="maino2"><% Call ShowPage(m_Parameter)%></div>
		
		</div>
	    <div class="revbox">
			<div class="new_rev">
				<div class="cle_fl"></div>
		  </div>
			<div class="review">
        	<h5>发表新主题</h5>
			<div class="form">
			  <form action="feedback.asp?action=send" method="post" name="feedback">
<input type="hidden" name="arcID" value="<%=ArticleID%>">
<input name="CurUserID" type="hidden" id="CurUserID" value="<%=Session("CurUserID")%>">				
<div class="br">用户名：
				  <input name="username" type="text" class="input" id="username" value="<%if Session("CurUsername")<>"" then Response.write Session("CurUsername") else Response.Write "guest"%>" size="20" maxlength="40"> 
				  验证码：<!--#include file="../Images/index/login.gif"--><input name="txtCheckCode" size="13" maxlength="4" style="BORDER-RIGHT: rgb(182,182,182) 1px solid; BORDER-TOP: rgb(182,182,182) 1px solid; FONT-WEIGHT: lighter; FONT-SIZE: 12px; BORDER-LEFT: rgb(182,182,182) 1px solid; BORDER-BOTTOM: rgb(182,182,182) 1px solid; FONT-FAMILY: 奔覆"> 
                          <img src="../include/checkcode.asp">（<a href="/Member/Register.asp" target="_blank"><u>新注册会员</u></a>）	<a name="add"></a> </div>
				<div class="br">
				  标  题：<input name="title" type="text" id="title" value="" size="55" maxlength="50">
				</div>
				<div class="br">
				  内  容：<textarea name="content" cols="65" rows="5" id="content"></textarea>
				</div>
				<div class="br">
				  图  片：<input name="pic" type="text" id="pic" onFocus="f_focus()" value="http://" size="55">
				  <input type='button' value='发表新主题' name='sb' onClick='javascript:if(document.feedback.title.value!="") document.feedback.title.value!=""; else alert("信息标题不能为空！");if(document.feedback.content.value!="") document.feedback.submit(); else alert("信息内容不能为空！");' class="rev_but">
				</div>
			  </form>
			</div>
			<div class="rev_rules">·用户发表意见仅代表其个人意见，并且承担一切因发表内容引起的纠纷和责任 <br>
			  ·本站管理人员有权在不通知用户的情况下删除不符合规定的评论信息或留做证据 <br>
			  ·请客观的评价您所看到的资讯，提倡就事论事，杜绝漫骂和人身攻击等不文明行为</div>
     	</div>
    </div>
	</div>
</div>
<!--页面左边结束-->

<!--页面右边开始-->
 <div id="layout_r">
      <div class="news_side">
      <div class="ad270"><img src="../Ad_Web/Images/Ad02.gif" width="280" height="137"></div>
      <div class="title"><h4 style="padding:0;margin:0;">内容搜索</h4></div>
      <div class="content">
        <div class="search">
          <form action="/ba/index.asp" method="post" name="bxwsearch" target="_blank">
            关键字：<INPUT name="keyword" class="news_search_input" id="keyword" onFocus="this.value=''">
            <input name="imagefield" type="image" class="seabut" src="/images/news/search_icon.gif">
            <span><strong>热门关键字：</strong><a href="/ba/index.asp?keyword=食谱" class="f_blue">食谱</a> <a href="/ba/index.asp?keyword=瘦身" class="f_red">瘦身</a> <a href="/ba/index.asp?keyword=流量" target="_blank" class="f_brown">流量</a> <a href="/ba/index.asp?keyword=推广" class="f_blue">推广</a> <a href="/ba/index.asp?keyword=运营" target="_blank" class="f_green">运营</a> <a href="/ba/index.asp?keyword=域名" target="_blank" class="f_green">域名</a> <a href="/ba/index.asp?keyword=Alexa" class="f_blue">Alexa排名</a> <a href="/ba/index.asp?keyword=搜索" target="_blank" class="f_red">搜索优化</a> <a href="/ba/index.asp?keyword=标准" target="_blank" class="f_brown">web标准</a> <a href="/ba/index.asp?keyword=访谈" class="f_blue">访谈</a> <a href="/ba/index.asp?keyword=免费" target="_blank">免费</a> <a href="/ba/index.asp?keyword=建站" target="_blank" class="f_green">建站</a></span>
          </form>
        </div>
      </div>
      <div class="title"><h4 style="padding:0;margin:0;"><a href="/news">推荐文章</a></h4>
      </div>
      <div class="content">
<%m_SQL = "SELECT TOP 10 title,id FROM tb_news where lm='8' and tj = '推荐' ORDER BY id DESC"
Set rst = conn.Execute(m_SQL)
Do While Not rst.Eof
response.write "<li>·<a href=/News/Show.asp?ArticleID="&rst("id")&" title="&rst("title")&">"&rst("title")&"</a></li>"
rst.MoveNext
Loop
rst.Close%>
      </div>
      <div class="foot"></div>
    </div>
    <div class="news_side">
      <div class="top10">
        <div class="title"><h6 style="padding:0;margin:0;"><a href="/Info/Class_index.asp">信息广场</a></h6>
        </div>
        <div class="content">
<%m_SQL = "Select top 10 F_id,F_title,F_adclassid From info_ad order by F_ID desc"
			Set rs = conn.Execute(m_SQL)
				   Do While Not rs.Eof
	classsql="select f_value from info_adclass where f_id="&rs("F_adclassid")
	  Set rsclass=Conn.Execute(classSql)
	  if not rsclass.eof then
	  F_values=rsclass("f_value")
	  end if
	  rsclass.close
	  set rsclass=nothing%>
<li>【<a href="/Info/adinfolist.asp?classid=<%=rs("F_adclassid")%>" title="<%=F_values%>"><font color="#ff0000"><%=F_values%></font></a>】<a href="/Info/ShowInfo.asp?ID=<%=rs("F_id")%>" title="<%=F_values%>:<%=rs("F_title")%>">·<%=gotTopic(rs("F_title"),26)%></a></li>
<%rs.movenext
	  loop
	  rs.close%>

        </div>
        <div class="foot"></div>
      </div>
    </div>
 </div>
</div>

<!--页面正文结束-->
<TABLE width=100% border=0 cellPadding=0 cellSpacing=0 bgcolor="#0175be">
    <TR>
      <TD height="26" class="aTexe142">&nbsp;&nbsp;精彩图片 <a href="/pic"><IMG src="../images/card/014.gif" height=13 border="0" align=absMiddle></a></TD>
      <TD width=60><A class=aTexeMore href="/pic" >更多&gt;&gt;</A></TD>
    </TR>
</TABLE>
<div id="aPic">
<ul id="aPicUl"><%m_SQL = "SELECT TOP 12 id,title,titlepic FROM tb_news where lm='13' order by id desc"
			Set rs = conn.Execute(m_SQL)
			Do While Not rs.Eof
			ptitle=rs("title")%>
	 <li>
	 <div class="aPic01"><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,18)%></a></div>
	 </li><%rs.movenext
	 loop
	 rs.close%>
</ul>
</div>
<div class="news_jgx"> </div>
<!--版权开始-->
<!--#include file="../include/CopyRight.htm"-->
<!--版权结束-->
<!--页面结束-->
</body>
</html>
