<!--#include file="d_tou.asp" -->
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
    <td bordercolor="#F6F6F6" bgcolor="#FBFBFB"><img src="tupian/weizhi.gif" width="9" height="9"> <a href="b_bankuai.asp">論壇版塊</a> → 搜索結(jié)果</td>
  </tr>
</table>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EBEBEB" bgcolor="#EFEFEF"><td width="30">心情</td>
<td> <div align="center">標題</div></td><td width="100">
<div align="center">所屬板塊</div></td><td width="30"><div align="center">回復(fù)</div></td>
<td width="30"><div align="center">瀏覽</div></td><td width="100"> 
<div align="center">作者</div></td></tr></table>
<%
	sousuo=Trim(Request("sousuo"))
		if sousuo="" then
			response.Redirect("b_sousuo.asp?fanhui=kong")
		end if
	sql="select xuhao,biaoti,xinqing,mingzi,bankuai from tiezi where biaoti like '%"& sousuo &"%' and tiezi='tiezi' order by shijian desc"
	set tiezi=server.CreateObject("adodb.recordset")
	tiezi.open sql,lj,1,2
			if tiezi.bof and tiezi.eof then
				Response.Write("<br><table align=center><tr><td>找不到合適的帖子</td></tr></table><br>")
			else
				if request("ye")="" then
					ye=1
				else
					ye=cint(request("ye"))
				end if
				set luntan=lj.execute("select meiyetiezi from luntan")
				tiezi.pagesize=luntan("meiyetiezi")
				tiezi.absolutepage=ye
				zong=tiezi.pagecount
				tou=luntan("meiyetiezi")
				do while not tiezi.eof and tou>0
				tou=tou-1
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EFEFEF" bgcolor="#F4F4F4"><td width="30"><div align="center"><img src="xinqing/<%=tiezi("xinqing")%>.gif"></div></td>
<td><a href="b_kantie.asp?tiezi=<%=tiezi("xuhao")%>"><%=server.HTMLEncode(tiezi("biaoti"))%></a> </td>
<td width="100"><div align="center"><a href="b_luntan.asp?bankuai=<%=tiezi("bankuai")%>"> 
<%
	set shubankuai=lj.execute("select mingzi from bankuai where xuhao="& tiezi("bankuai") &"")
	response.Write(shubankuai("mingzi"))
%>
</a></div></td><td width="30"> <div align="center">
<%
	shuyu=tiezi("xuhao")
	set huifu=lj.execute("select count(*) as huifu from tiezi where tiezi='"& shuyu &"'")
	response.Write(huifu("huifu"))
%>
</div></td><td width="30"><div align="center">
<%
	set liulan=lj.execute("select liulan from tiezi where xuhao="& tiezi("xuhao") &"")
	response.Write(liulan("liulan"))
%>
</div></td><td width="100"><div align="center">
<a href="b_kanren.asp?mingzi=<%=tiezi("mingzi")%>" target="_blank"> 
<%=server.HTMLEncode(tiezi("mingzi"))%></a> </div></td></tr></table>
<%
				tiezi.movenext
				loop
			end if
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#EBEBEB" bgcolor="#EFEFEF"> <div align="center"> 
<%
	if ye=1 then
		response.Write("頭頁　上頁　")
	end if
	if ye<>1 then
		response.Write("<a href=b_jieguo.asp?ye=1&sousuo="& sousuo &">頭頁</a>　")
		response.Write("<a href=b_jieguo.asp?ye="&(ye-1)&"&sousuo="& sousuo &">上頁</a>　")
	end if
	if ye<>zong then
		response.Write("<a href=b_jieguo.asp?ye="&(ye+1)&"&sousuo="& sousuo &">下頁</a>　")
		response.Write("<a href=b_jieguo.asp?ye="&zong&"&sousuo="& sousuo &">尾頁</a>　")
	end if
	if ye=zong then
		response.Write("下頁　尾頁　")
	end if
		response.Write("　總頁數(shù)　"&zong&"")
		response.Write("　當前頁　"&ye&"")
%>
</div></td></tr></table>
<!--#include file="d_wei.asp" -->