b_retie.asp

是个论坛,使用过还可以.

<!--#include file="d_tou.asp" -->
<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"> <a href="b_bankuai.asp">论坛版块</a> → 最热帖子</td>
  </tr>
</table>
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EBEBEB" bgcolor="#F0F0F0"><td width="30">心情</td>
<td>
<div align="center">标题</div></td><td width="100"><div align="center">所属板块</div>
</td><td width="30"><div align="center">回复</div></td><td width="40"> 
<div align="center">浏览</div></td><td width="100"><div align="center">作者</div></td></tr></table>
<%
	set zuixinshu=lj.execute("select zuixinshu from luntan")
	set zuixin=lj.execute("select top "& zuixinshu("zuixinshu") &" xuhao,biaoti,xinqing,mingzi,bankuai,liulan from tiezi where tiezi='tiezi' order by liulan desc")
	if zuixin.bof and zuixin.eof then
%>
<table width="95%" border="1" align="center" cellpadding="20" cellspacing="0" bordercolor="#FFFFFF"><tr> 
<td bordercolor="#D6D6D6" bgcolor="#EBEBEB"> <div align="center">还没有帖子</div></td></tr></table>
<%
	else
		do while not zuixin.eof
%>
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#F0F0F0" bgcolor="#F5F5F5"><td width="30"><div align="center"><img src="xinqing/<%=zuixin("xinqing")%>.gif"></div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><a href="b_kantie.asp?tiezi=<%=zuixin("xuhao")%>"><%=server.HTMLEncode(zuixin("biaoti"))%></a> </td>
<td width="100" bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <div align="center"><a href="b_luntan.asp?bankuai=<%=zuixin("bankuai")%>"> 
<%
	set shubankuai=lj.execute("select mingzi from bankuai where xuhao="& zuixin("bankuai") &"")
	response.Write(shubankuai("mingzi"))
%>
</a></div></td><td width="30" bordercolor="#F5F5F5" bgcolor="#FAFAFA"><div align="center">
<%
	shuyu=zuixin("xuhao")
	set huifu=lj.execute("select count(*) as huifu from tiezi where tiezi='"& shuyu &"'")
	response.Write(huifu("huifu"))
%>
</div></td><td width="40" bordercolor="#F5F5F5" bgcolor="#FAFAFA"><div align="center">
<%
	response.Write(zuixin("liulan"))
%> 
</div></td><td width="100" bordercolor="#F5F5F5" bgcolor="#FAFAFA">
<div align="center"> <a href="b_kanren.asp?mingzi=<%=zuixin("mingzi")%>" target="_blank"> 
<%=server.HTMLEncode(zuixin("mingzi"))%></a> </div></td></tr></table>
<%
		zuixin.movenext
		loop
	end if
%>
<!--#include file="d_wei.asp" -->