<%
Dim bbs_id
bbs_id=Request("bbs_id")
Dim sql,rs
sql="Select * From bbs Where bbs_id =" & bbs_id
Set rs=db.Execute(sql)
%>
<table width="80%" height="258" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ccffff">
<tr>
<td width="55%" height="54"><div align="right"><font size="+3" face="华文彩云"><strong>详细信息</strong></font></div></td>
<td width="45%"><div align="right">
<p><a href="BBS.asp">[返回]</a> <a href="huifu.asp?bbs_id=<%=bbs_id%>&title=<%=rs("title")%>"> [回复]</a></p>
</div></td>
</tr>
<tr>
<td colspan="2" valign="top"><table width="100%" height="81" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="12%"><div align="right">原文主题:</div></td>
<td width="88%"><%=rs("title")%></td>
</tr>
<tr>
<td><div align="right">原文内容:</div></td>
<td><%=rs("body")%></td>
</tr>
<tr>
<td> </td>
<td><div align="right"><%=rs("wm")%>发表于<%=rs("submit_date")%></div></td>
</tr>
<%
sql="Select title,body,wm,submit_date From bbs Where"
sql=sql & " parent_id=" & bbs_id
sql=sql + " Order By submit_date desc"
Set rs=db.Execute(sql)
Dim I
I=0
Do While Not rs.Eof
I=I+1
%>
</table>
<font color="#FF000