📄 detail.asp
字号:
<%@ Language=VBScript %>
<!--#include file="opendb.asp"-->
<html>
<head>
<title>帖子内容</title>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
<link href="images/style.css" rel="stylesheet">
<script language=vbscript src="images/function.vbs" ></script>
<style type="text/css">
<!--
.style1 {color: #000000}
.style2 {color: #000099}
-->
</style>
</head>
<body>
<table cellspacing="0" cellpadding="0" width="99%" align="center" border="0">
<tr><td valign="top" align="left" rowspan="2"><img src="images/logo.gif" border="0"></td></tr>
</table>
<p align=left><a href="index.asp">[返回首页]</a></p>
<table cellspacing=0 cellpadding=0 width="100%" align=center border=0>
<tr>
<td>
<table cellspacing=1 cellpadding=4 width="100%" border=0 ID="Table2">
<%
ID=request.QueryString("index")
strSQL = "Select * from Forum Where ID=" & ID
rst.CursorType=3
rst.open strSQL
if rst.RecordCount>0 then
%>
<tr class=header>
<td width="46%" align=left class="header"><span class="style1">标题：</span><%=rst("Title")%><span class="style1">
作者：</span><%=rst("Username")%>
<span class="style1">发贴时间：</span><%=rst("CreateTime")%></td>
</tr>
<tr>
<td colspan=3 bgcolor="#f8f8f8"><span class="style2">内容：</span><%=Replace(rst("Content"),Chr(13),"<br>")%></td>
</tr>
<%
count1=rst("HitCount")+1
strSQL="Update Forum set HitCount="& "'"&count1&"'" &"where ID="& ID
my_conn.Execute strSQL
%>
<%end if%>
<%
rst.close
strSQL = "Select * from Forum Where AnswerID=" & ID
rst.CursorType=3
rst.open strSQL
if rst.RecordCount>0 then
for i=1 to rst.RecordCount
if rst.eof then
exit for
else
%>
<tr>
<td align=left width="46%" bgcolor="#f8f8f8">
<span class="style2">回复标题：</span><%=rst("Title")%>
<span class="style2">回复者：</span><%=rst("Username")%>
<%=rst("LastAnswerTime")%><br>
<span class="style2">回复内容：</span><%=Replace(rst("Content"),Chr(13),"<br>")%> </td>
</tr>
<%
end if
rst.MoveNext
next
%>
<%end if%>
<tr>
<td colspan=3 bgcolor="#f8f8f8" align=center>
<input type=button class="buttonface" value="回复帖子" onclick=answerart(<%=ID%>)>
<input type=button class="buttonface" value="删除帖子" onclick=deleteart(<%=ID%>)>
<input type=button class="buttonface" value="编辑帖子" onclick=editart(<%=ID%>)>
</td>
</tr>
</table>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -