一梦三四年

<%
Option Explicit
Dim Imgfolder,FSO,FD,F,OneFile,filename,file_arr,filename_arr0,iMax,ranNum,DataFolder,DataFileList,i

'On error resume next
Imgfolder="images"

Set FSO=Server.CreateObject("Scripting.FileSystemObject")

IF Err<>0 Then
Err.Clear
Response.Write("服务器关闭FSO，无法查看备份文件列表")
Else
Set DataFolder=FSO.GetFolder(Server.MapPath(Imgfolder))
Set DataFileList=DataFolder.Files

file_arr=file_list(Server.MapPath(Imgfolder))
iMax=ubound(file_arr)
randomize
ranNum=int(iMax*rnd)
Response.Redirect Imgfolder&"/"&file_arr(ranNum,0)
Response.write Imgfolder&"/"&file_arr(ranNum,0)
End IF

Set FSO=Nothing

Function file_list(path)
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set FD=FSO.GetFolder(path)
Set F=FD.Files
For Each OneFile in F
filename=OneFile.Name
If LCase(right(filename,3))="jpg" or LCase(right(filename,3))="gif" or LCase(right(filename,3))="png" Then
filename_arr0=filename_arr0&filename&"|"
End If
Next
filename_arr0=split(filename_arr0,"|")

dim filename_arr()
redim filename_arr(ubound(filename_arr0),2)
for i=0 to ubound(filename_arr0)-1
filename_arr(i,0)=filename_arr0(i)
next
erase filename_arr0
file_list=filename_arr
End Function
%>

<?php
$url='images';
$files=array();
if ($handle=opendir("$url")) {
while(false !== ($file = readdir($handle))) {
if ($file != "." && $file != "..") {
if(substr($file,-3)=='gif' || substr($file,-3)=='jpg') $files[count($files)] = $file;
}
}
}
closedir($handle);
$random=rand(0,count($files)-1);
readfile("$url/$files[$random]");
?>