<%
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top "&reviewnum&" * from "& db_EC_Review_Table &" where NewsID=" & NewsID & " and passed=1 order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then NoReview=1
Response.Write "
"
Response.Write "
相关评论:(评论内容只代表网友观点,与本站立场无关!)
"
%>
<%
if not NoReview then
while not rs1.EOF
author=server.HTMLEncode(trim(rs1("author")))
email=server.HTMLEncode(trim(rs1("email")))
reviewip=rs1("reviewip")
content=trim(rs1("content"))
content=replace(content,"table","table")
content=replace(content,"TABLE","table")
ContentLen=len(Content)
%>
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
%>