<%
dim sooopuid
UserName=Request.Cookies("sooopucom")("username")
sooopuid=request("id")
Set rsp = Server.CreateObject("ADODB.Recordset")
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
If CurrentPage=0 then CurrentPage=1
num=CurrentPage*10
sql="SELECT * FROM ( SELECT TOP 10 * FROM ( SELECT TOP "&num&" id,UserName,writetime,Content FROM SP_Comment where type_ID="&sooopuid&" ORDER BY id DESC ) t1 ORDER BY id ) t2 ORDER BY id DESC"
rsp.open sql, conn, 1, 1
Do While Not rsp.Eof
if UserName<>"" then
set rs=conn.execute("select ClassVIP from SP_member where Username='"&username&"'")
ClassVIP=rs(0)
rs.close : set rs=nothing
end if
%>
document.write ("");
document.write ("<%=rsp("UserName")%> 说：<%=replace(replace(cheack(ubbcode(rsp("content"))) , vbCr,""),vbLf,"")%>
");
document.write ("");
<%if ClassVIP>3 then%>
document.write ("
");
<%end if%>
document.write ("<%=formatdatetime(rsp("writetime"),2)%>
");
document.write ("");
<%
rsp.MoveNext
Loop
rsp.close
set rsp=nothing
sql="SELECT count(*) FROM SP_Comment where type_ID="&sooopuid
Set rs= Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
recordcounts=rs(0)
rs.close
set rs=nothing
if recordcounts>10 then
%>
document.write ("共<%=recordcounts%>条评论 ");
<%
for i=1 to int(recordcounts/10)+1
if i=CurrentPage then
ysd=""&i&""
else
ysd=i
end if
%>
document.write (",<%=i%>) class=plnum><%=ysd%> ");
<%
next
%>
document.write ("");
<%
end if
call CloseConn
%>