plread.asp

来自「FlashPicViewer电子相册 v2.6 繁体中文版」· ASP 代码 · 共 27 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#INCLUDE FILE="conn.asp"-->
<%
url=request("url")
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
rs.Source = "SELECT * FROM pinglun Where url='"&url&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()

response.write "&SendOK=1&tdp="
if not rs.eof then
do while not rs.eof
response.write "<n><id>"&rs("pid")&"</id>"
response.write "<l>"&rs("ptitle")&"</l>"
response.write "<l>"&rs("ptxt")&"</l>"
response.write "<l>"&rs("ptime")&"</l></n>"
rs.movenext
loop
else
response.write "iloveyuki/yellowboy"
end if
rs.close
set rs=nothing
%>