<% dim SoftID SoftID=trim(request("SoftID")) if SoftId="" then call CloseConn() response.Redirect("index.asp") else SoftID=CLng(SoftID) end if dim rsComment,sqlComment sqlComment="select C.SoftID,C.ClassID,C.UserType,C.UserName,C.Email,C.Oicq,C.Homepage,C.WriteTime,C.Score,C.Content,C.ReplyContent,C.ReplyName,C.ReplyTime,S.SoftName,S.UpdateTime,S.SoftID from SoftComment C inner join Soft S on C.SoftID=S.SoftID where C.SoftID=" & SoftID & " 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("SoftName")& " ["& 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() %>