<% 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() %>