<!--#include file="d_tou.asp" -->
<%
	xuhao=clng(request("bankuai"))
		if xuhao="" then
			xuhao=0
		end if
	set bankuai=lj.execute("select mingzi from bankuai where xuhao="& xuhao &"")
	if not bankuai.eof then
%>
<table width="778" border="0" align="center" cellpadding="0" 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>  → <%=server.HTMLEncode(bankuai("mingzi"))%></td>
  </tr>
</table>
<table width="90" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#EBEBEB" bgcolor="#F0F0F0" border="0" > <div align="center" border="0"><a href="b_fatie.asp?bankuai=<%=xuhao%>" border="0"><img src="Tupian/but_AddArticle_01.gif" border="0"></a></div></td>
</tr></table><table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EBEBEB" bgcolor="#EFEFEF"><td width="30">心情</td>
<td>
<div align="center">標題</div></td><td width="40"><div align="center">瀏覽</div></td>
<td width="30"> <div align="center">回復</div></td>
<td width="100"> <div align="center">作者</div></td></tr></table>
<%
	sql="select xuhao,biaoti,xinqing,mingzi,liulan from tiezi where bankuai="& xuhao &" 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("<table align=center><tr><td>本版沒有帖子</td></tr></table>")
			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="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#F0F0F0" bgcolor="#F5F5F5"><td width="30"><div align="center"><img src="xinqing/<%=tiezi("xinqing")%>.gif"></div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><a href="b_kantie.asp?tiezi=<%=tiezi("xuhao")%>"><%=server.HTMLEncode(tiezi("biaoti"))%></a></td>
<td width="40" bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <div align="center">
<%
	response.Write(tiezi("liulan"))
%>
</div></td><td width="30" bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <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="100" bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <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="0" align="center" cellpadding="0" 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_luntan.asp?ye=1&bankuai="& xuhao &">頭頁</a>　")
			response.Write("<a href=b_luntan.asp?ye="&(ye-1)&"&bankuai="& xuhao &">上頁</a>　")
		end if
		if ye<>zong then
			response.Write("<a href=b_luntan.asp?ye="&(ye+1)&"&bankuai="& xuhao &">下頁</a>　")
			response.Write("<a href=b_luntan.asp?ye="&zong&"&bankuai="& xuhao &">尾頁</a>　")
		end if
		if ye=zong then
			response.Write("下頁　尾頁　")
		end if
			response.Write("　總頁數　"&zong&"")
			response.Write("　當前頁　"&ye&"")
%>
</div></td></tr></table>
<%else%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#EBEBEB">
<tr><td bordercolor="#D6D6D6"><a href="b_bankuai.asp">論壇版塊</a> → 錯誤提示</td></tr></table>
<table width="778" border="0" align="center" cellpadding="20" cellspacing="0" bordercolor="#FFFFFF"><tr> 
<td bordercolor="#D6D6D6" bgcolor="#EBEBEB"> <div align="center">沒有此論壇板塊</div></td></tr></table>
<%end if%>
<!--#include file="d_wei.asp" -->