📄 commentshow.asp

📁 三鸟个人网站源码。

💻 ASP

字号:

<!--#include file="inc/conn.asp"-->
<%
dim ArticleID
ArticleID=trim(request("ArticleID"))
if ArticleId="" then
	call CloseConn()
	response.Redirect("Default.asp")
else
	ArticleID=CLng(ArticleID)
end if
dim rsComment,sqlComment
sqlComment="select * from Comment where ArticleID=" & ArticleID & " order by CommentID desc"
Set rsComment= Server.CreateObject("ADODB.Recordset")
rsComment.open sqlComment,conn,1,1
%>
<html>
<head>
<title>所有评论</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
      
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" class="border">
  <tr class="title"> 
    <td align="center"><strong>网友评论：</strong>（评论内容只代表网友观点，与本站立场无关！）</td>
  </tr>
  <tr class="tdbg"> 
    <td> <%
if rsComment.bof and rsComment.eof then
	response.write "&nbsp;&nbsp;&nbsp;&nbsp;没有任何评论"
else
	do while not rsComment.eof
		response.write "<li>会员<font color='blue'>" & rsComment("UserName") & "</font>于" & rsComment("WriteTime") & "发表评论说：&nbsp;&nbsp;" & rsComment("Title") & "<br>&nbsp;&nbsp;&nbsp;&nbsp;" & rsComment("Content") & "</li><br>"
		rsComment.movenext
	loop
end if
%> </td>
  </tr>
  <tr class="tdbg">
    <td align="center">【<a href='javascript:onclick=history.go(-1)'>返回文章内容页</a>】</td>
  </tr>
</table>
</body>
</html>
<%
call CloseConn()
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -