📄 commentshow1.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>
<STYLE>
BODY
{scrollbar-face-color:#cccccc; scrollbar-shadow-color:ffffff; 
scrollbar-highlight-color:ffffff; scrollbar-3dlight-color:ffffff; 
scrollbar-darkshadow-color:ffffff; scrollbar-track-color:ffffff; 
scrollbar-arrow-color:ffffff;}
</STYLE>
<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="2" marginwidth="0" marginheight="0" style="overflow-x:hidden;overflow-y:scroll">
<div align="left"></div>
<table width="259" border="0" align="left" cellpadding="5" cellspacing="0" Article="border">
  <!--DWLayoutTable-->
  <tr Article="title"> 
    <td width="154" height="20" align="center" valign="top" bgcolor="#66CCFF"><div align="left"><font color="#FFFFFF">网页评论:</font></div></td>
    <td width="85" align="center" valign="top" bgcolor="#66CCFF"><font color="#FF0000"><a href="Comment.asp?ArticleID=9" target="_blank">&lt;发表评论&gt;</a></font></td>
  </tr>
  <tr Article="tdbg"> 
    <td colspan="2" bgcolor="#F3F3F3"><table width="100" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <%
if rsComment.bof and rsComment.eof then
	response.write "&nbsp;&nbsp;&nbsp;&nbsp;没有任何评论"
else
	do while not rsComment.eof
		response.write "<font size='3' color='blue'>" & rsComment("UserName") & "发表评论说：&nbsp;&nbsp;</font><br>" & rsComment("Content") & "</li><br><br>"
		rsComment.movenext
	loop
end if
%> </td>
  </tr>
</table>
</body>
</html>
<%
call CloseConn()
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -