gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/Ping.asp
<!--#include file="Inc/conn.asp"--> <% Dim CurPage CurPage=LaoYRequest(Request("page")) id=LaoYRequest(Trim(request("id"))) If CurPage = empty or CurPage<1 Then CurPage = 1 End If Response.ContentType="application/xml" Response.Charset="gb2312" Response.Expires=0 Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>") Set rs=Server.CreateObject("ADODB.Recordset") Sql="SELECT * from "&tbname&"_Pl where yn = 1 and ArticleID = "&ID&" order by id asc" rs.Open Sql,Conn,1,3 IF rs.Eof And rs.Bof Then Response.Write("<data page=""0"" P_Nums=""0"">") Response.Write("<Content>没有评论</Content>") Response.Write("</data>") Response.End Else Dim PerPage,P_Nums,PageCountN,D_Nums PerPage=6 Rs.PageSize=PerPage Rs.AbsolutePage=CurPage P_Nums=Rs.PageCount D_Nums=Rs.RecordCount NoI=0 Response.Write("<data page="""&CurPage&""" P_Nums="""&P_Nums&""" D_Nums="""&D_Nums&""" ID="""&ID&""">") Do Until rs.EOF or PageCountN=PerPage NoI=NoI+1 Response.Write("<NoI>"&NoI+CurPage*PerPage-PerPage&"</NoI>") Response.Write("<IP>"&iparray(rs("IP"))&"</IP>") Response.Write("<Author PostTime="""&rs("PostTime")&"""><![CDATA["&(LoseHtml(rs("memAuthor")))&"]]></Author>") Response.Write("<Content><![CDATA["&showFace(ChkBadWords(LoseHtml(rs("memContent"))))&"]]></Content>") Response.Write("<reContent><![CDATA["&rs("reContent")&"]]></reContent>") rs.MoveNext PageCountN=PageCountN+1 Loop End If rs.close set rs=nothing Response.Write("</data>") %>