|
|
<%
if SpecialID<>0 then
Response.Write "
| | "
Response.Write "| [相关信息] | | "
rs.Source="select top 10 NewsID,Title,BigClassName,SmallClassName,SpecialID,updatetime,click from News where (NewsID<>" & NewsID & " and SpecialID=" & SpecialID & ") order by NewsID DESC"
rs.Open,conn,1,1
if rs.EOF then
Response.Write "| 没有相关信息 | "
else
while not rs.EOF
Response.Write "  " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")[" & trim(rs("click")) & "] | "
rs.MoveNext
wend
Response.Write "| [更多... ] | "
end if
rs.Close
set rs=nothing
end if
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")))
content=trim(rs1("content"))
content=replace(content,"<","<")
content=replace(content,">",">")
content=replace(content,chr(13),"
")
TrString="发表人：" & author & "
发表人邮件：" & email & " | "
TrString=TrString & "| " & content & " | "
Response.Write TrString
Response.Write "
| | "
rs1.MoveNext
wend
end if
rs1.Close
conn.close
set conn=nothing
%>
|
|
|
.gif)
