readdir.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"-->
<%
uurl=request("dir")
response.write "&SendOK=1&tdp="

ImageFilePath = "..\"&uurl

Dim objFSO
Dim objFolder
Dim objFile

Dim strFileName
Dim strFileExtension
Dim blnShowImages

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))

For Each objFile In objFolder.Files
	strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
	If   strFileExtension = "jpg" Or strFileExtension = "jpeg"    Then

	response.write "<Y>"&objFile.Name&"</Y>"
End If
Next ' objFile

Set objFolder = Nothing
Set objFSO = Nothing
end if
%>