b_bankuai.asp

BBS电子公告系统

<!--#include file="d_tou.asp" -->
<%lj.execute("update luntan set fangwenliang=fangwenliang+1")%>
<table width="95%" 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"> 论坛版块</td>
</tr></table>
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr>
  <td width="150" bordercolor="#EBEBEB" bgcolor="#EFEFEF"><div align="center">版块</div></td>
  <td bordercolor="#EBEBEB" bgcolor="#EFEFEF"><div align="center">简介</div></td>
  <td width="70" bordercolor="#EBEBEB" bgcolor="#EFEFEF"><div align="center">主题</div></td>
  <td width="70" bordercolor="#EBEBEB" bgcolor="#EFEFEF"><div align="center">回复</div></td>
</tr></table>
<%
	set bankuai=lj.execute("select * from bankuai")
		if bankuai.bof and bankuai.eof then
%>
<table width="95%" border="1" align="center" cellpadding="20" cellspacing="0" bordercolor="#FFFFFF"><tr>
<td bordercolor="#EFEFEF" bgcolor="#F4F4F4"><div align="center">还没有论坛板块</div></td></tr></table>
<%
		else
			do while not bankuai.eof
%>
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
  <tr bordercolor="#EFEFEF" bgcolor="#F4F4F4">
    <td width="150" bordercolor="#F4F4F4" bgcolor="#F9F9F9"><div align="center"><a href="b_luntan.asp?bankuai=<%=bankuai("xuhao")%>">『 <%=server.HTMLEncode(bankuai("mingzi"))%> 』</a></div></td>
    <td bordercolor="#F9F9F9" bgcolor="#FDFDFD"><%=bankuai("jianjie")%></td>
    <td width="70" bordercolor="#F9F9F9" bgcolor="#FDFDFD"><div align="center">
      <%
	set tiezi=lj.execute("select count(*) as tiezi from tiezi where bankuai="& bankuai("xuhao") &" and tiezi='tiezi'")
	response.Write(tiezi("tiezi"))
%>
    </div></td>
    <td width="70" bordercolor="#F9F9F9" bgcolor="#FDFDFD"><div align="center">
      <%
	set huifu=lj.execute("select count(*) as huifu from tiezi where bankuai="& bankuai("xuhao") &" and tiezi<>'tiezi' and tiezi<>'gonggao'")
	response.Write(huifu("huifu"))
%>
    </div></td>
  </tr>
</table>
<%
			bankuai.movenext
			loop
		end if
%>
<!--#include file="d_wei.asp" -->