<% 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] desc" 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("

"); document.write("

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

"); document.write("

<%=Replace(Replace(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 %>