fenleilist.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"-->
<% 
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
rs.Source = "SELECT * FROM picinfo"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()
rs_numRows = 0
response.write "&SendOK=1&tdp="
do while not rs.eof 
response.write "<n><name>"&rs("fname")
response.write "</name><dir>"&rs("ydir")&"</dir></n>"
rs.movenext
loop
rs.close
set rs=nothing
end if
%>