rebox.asp

FlashPicViewer电子相册 v2.6 繁体中文版

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#INCLUDE FILE="conn.asp"-->
<newsblock>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
rs.Source = "SELECT * FROM pinglun Where url='"&request.QueryString("ptitle")&"' order by ptime Desc"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()
rs_numRows = 0
if rs.bof or rs.eof then 
response.write("<news date=''>暂无评论..</news>")
end if 

do while not rs.eof 
%>
<news date='<%=rs("ptime")%>'><![CDATA[<b><%=rs("ptitle")%>:</b> &nbsp;<%=rs("ptxt")%>]]></news>
<%
rs.movenext
loop
rs.Close()
set rs=nothing 
%>
</newsblock>