document.write("

"); <% Dim Plus Set Plus = New Cls_Plus Plus.Open("comment") ' 打开配置文件 Dim Aid,Rs,SQL aid = Request("id") If Len(aid)=0 Or Not IsNumeric(aid) Or Len(aid)>8 Then Response.Write "document.write('" & Plus.Lang("iderr") & "')'" : Set Plus = Nothing : Response.End SQL = "select top " & Plus.Config("topn") & " [User],[IP],[Time],[Content],[ReComment] From [{pre}Comment] Where [Aid]=" & aid & " And [State]=1 Order by [ID] asc" Set Rs = DB(SQL,1) Dim Poster,Repost,UserIP Poster = Plus.Lang("js-poster") Repost = Plus.Lang("js-repost") Do While Not Rs.Eof UserIP = Split(Rs(1),".") %> document.write("

1. "); document.write("

   <%=Rs(0)%> <%=Poster%><%=Server.htmlencode(Rs(2))%>

   "); document.write("

   <%=Replace(Replace(Server.htmlencode(Rs(3)),Vbcrlf,""),"""","\""")%>
   "); <%If Len(Rs(4))>0 Then%>document.write("<%=Repost%><%=Replace(Replace(Rs(4),Vbcrlf,""),"""","\""")%>");<%End If%> document.write("

   "); document.write("

"); <% Rs.moveNext Loop Rs.Close Conn.Close Set Plus = Nothing Set Rs = Nothing Set Conn = Nothing %> document.write("

");