| 评论用户 | 简单内容(共 "&RsReview1.recordcount&" 个评论) 查看全部内容 | 发表日期 |
"
while Not RsReview.Eof
if len(RsReview("Content"))>30 then
Content1=""& RsReview("Content") &".."
else
Content1=""& RsReview("Content") &""
end if
if confimsn("ReviewShow") = 1 then
if RsReview("Audit") = 1 then
ReviewList=ReviewList & "| "& RsReview("UserID") &" | "& Content1 &" | "&month(RsReview("AddTime"))&"-"&day(RsReview("AddTime"))&" "&Hour(RsReview("AddTime"))&":"&minute(RsReview("AddTime"))&" |
"
else
ReviewList=ReviewList & "| "& RsReview("UserID") &" | 管理员还没有审核 | "&month(RsReview("AddTime"))&"-"&day(RsReview("AddTime"))&" "&Hour(RsReview("AddTime"))&":"&minute(RsReview("AddTime"))&" |
"
end if
else
ReviewList=ReviewList & "| "& RsReview("UserID") &" | "& Content1 &" | "&month(RsReview("AddTime"))&"-"&day(RsReview("AddTime"))&" "&Hour(RsReview("AddTime"))&":"&minute(RsReview("AddTime"))&" |
"
end if
RsReview.movenext
Wend
ReviewList=ReviewList & "
"
elseif Downloadid<>"" Then
Set TempRsNewsObj1 = Conn.Execute("Select ShowReviewTF,ReviewTF from FS_download where Downloadid='" & Downloadid & "'")
if cint(TempRsNewsObj1("ShowReviewTF")) = 0 then
response.Write("")
response.end
end if
set RsReview1 = server.CreateObject (G_FS_RS)
Sql1 = "select * from FS_Review where Types = 2 and Newsid='" & Downloadid &"' and isv=1 order by ID desc"
RsReview1.Open Sql1,Conn,1,1
set RsReview = server.CreateObject (G_FS_RS)
Sql = "select top 10 * from FS_Review where Types = 2 and Newsid='"& Downloadid &"' and isv=1 order by ID desc"
RsReview.Open Sql,Conn,1,3
ReviewList="