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