<% dim ArticleID ArticleID=trim(request("ArticleID")) if ArticleId="" then call CloseConn() response.Redirect("index.asp") else ArticleID=CLng(ArticleID) end if dim rsComment,sqlComment sqlComment="select C.ArticleID,C.ClassID,C.UserType,C.UserName,C.Email,C.Oicq,C.Homepage,C.WriteTime,C.Score,C.Content,C.ReplyContent,C.ReplyName,C.ReplyTime,A.Title,A.UpdateTime,A.ArticleID from ArticleComment C inner join Article A on C.ArticleID=A.ArticleID where C.ArticleID=" & ArticleID & " order by C.CommentID desc" Set rsComment= Server.CreateObject("ADODB.Recordset") rsComment.open sqlComment,conn,1,1 %> 所有评论 <% if rsComment.bof and rsComment.eof then response.write "    没有任何评论" else %>
<%response.write "" & rsComment("Title")& " ["& formatdatetime(rsComment("UpdateTime"),2) &"]"%>
(评论内容只代表网友观点,与本站立场无关!)
<% response.write "" do while not rsComment.eof response.write "" response.write "" rsComment.movenext loop response.write "
" if rsComment("UserType")=1 then response.write "
  • 会员" set rsCommentUser=Conn_User.execute("select " & db_User_ID & "," & db_User_Name & "," & db_User_Email & "," & db_User_QQ & "," & db_User_Homepage & " from " & db_User_Table & " where " & db_User_Name & "='" & rsComment("UserName") & "'") if rsCommentUser.bof and rsCommentUser.eof then response.write rsComment("UserName") else response.write "『" & rsComment("UserName") & "』" end if else response.write "
  • 游客『" & rsComment("UserName") & "』" end if response.write "于" & rsComment("WriteTime") & "发表评论:
  • " response.write "
    评分:"&rsComment("Score")&"分
    " response.write "    " & rsComment("Content") & "
    " if rsComment("ReplyContent")<>"" then response.write "     管理员『" & rsComment("ReplyName") & "』于 " & rsComment("ReplyTime") & " 回复道:    " & rsComment("ReplyContent") & "
    " end if response.write "
    " %>
    返回文章内容页
    <%end if%> <% call CloseConn() %>