📄 bbstext.asp
字号:
<!--#Include file="conn.asp"-->
<html>
<head>
<title>详细内容</title>
</head>
<body>
<h2 align=center>详细内容</h2>
<%
Dim bbs_id
bbs_id=Request("bbs_id")
'以下显示当前记录内容
strSql="Select * From bbs Where bbs_id =" & bbs_id
Set rs=conn.Execute(strSql)
%>
<center>
<p><a href="index.asp?page_no=<%=Session("page_no")%>">返回首页</a>
  |  
<a href="reply.asp?bbs_id=<%=bbs_id%>&title=<%=rs("title")%>">回复文章</a>
<table border="0" bgcolor="#EAEAEC" width="90%">
<tr>
<td width=20% bgcolor="#EAEAEC">主题</td>
<td bgcolor="#EAEAEC"><b><big><%=rs("title")%></big></b></td>
</tr>
<tr>
<td bgcolor="#EAEAEC">内容</td>
<td bgcolor="#EAEAEC"><%=rs("text")%></td>
</tr>
<tr>
<td bgcolor="#EAEAEC"></td>
<td align=right bgcolor="#EAEAEC"><small><I><%=rs("username")%> 发表于
<%=rs("subdate")%></small></td>
</tr>
</table>
<%
'以下显示所有回复文章内容
sql="Select title,text,username,subdate From bbs Where"
sql=sql & " text_id=" & bbs_id
sql=sql & " Order By subdate desc"
Set rs=conn.Execute(sql)
'给回复文章编序号
Dim I
I=0
Do While Not rs.Eof
I=I+1
%>
<table border="0" bgcolor="#EAEAEC" width="90%">
<caption align=left><font color=red size=2>回复<%=I%></font></caption>
<tr>
<td width=20% bgcolor="#EDEDED">主题</td>
<td bgcolor="#EAEAEC"><%=rs("title")%></td>
</tr>
<tr>
<td bgcolor="#EAEAEC">内容</td>
<td><%=rs("text")%></td>
</tr>
<tr>
<td></td>
<td align=right><small><i><%=rs("username")%>  回复于
<%=rs("subdate")%></i></small></td>
</tr>
</table>
<%
rs.MoveNext
Loop
%>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -