pllist.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--#include file="user.asp" -->
<%
if ((session("flash_name")<>user_name) or (session("flash_pass")<>user_password)) then 
response.write "FPV by Yellowboy&Chipiano!"
else
%>
<!--#INCLUDE FILE="conn.asp"-->
<%
fenlei=request("fenlei")
f=request("f")
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
if fenlei="all" then
rs.Source = "SELECT * FROM pinglun"
else
rs.Source = "SELECT * FROM pinglun Where fenlei='"&fenlei&"'"
end if
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()
rs_numRows = 0



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