Random Picture Display ASP code

Random | show <% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<%
'----------------------------------------------------------------------------------------
' When forwarding, please keep this declaration information, this statement does not affect your display speed!
' ************************* random picture display ****************************
' Code design: Wild Man
' Use instance: img.asp?list= Picture Storage Directory
' Website: http://yjj.con.cn
' Disclaimer: Copyright No, use it at will! ^_^ But if you don't mind giving me a little connection, I would be grateful!
'----------------------------------------------------------------------------------------
Function Allpath ()
Dim Domain,gfilepath
Domain = Request.ServerVariables ("SERVER_NAME")
Gfilepath = Request.ServerVariables ("Path_info")
Gfilepath = LCase (Left (Gfilepath,instrrev (Gfilepath, "/"))
Allpath = "http://" &domain&gfilepath
End Function

Function showfilelist (FOLDERSPEC)
Dim path,objfso,objfolder,count,objfile,nume,s
Path = Server.MapPath (Folderspec)
Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
If objfso.folderexists (Path) Then
Set objfolder = Objfso.getfolder (Path)
Count = 0
For each objfile in Objfolder.files
Count = count+1
Next
Randomize
Nume = Int ((count*rnd) +1)
S = 0
Showfilelist = ""
For each objfile in Objfolder.files
s = s + 1
If S = Nume Then
Showfilelist = Objfile.name
Exit for
End If
Next
Set objfolder = Nothing
Else
Showfilelist = "NO"
End If
Set objFSO = Nothing
End Function

Dim List,filename,address,str

List = Trim (Request.QueryString ("list")
If list = "" Then
Response.Write "This page needs the correct parameter introduction, you are missing the related parameter!" The correct format is as follows: "&AllPath& img.asp?list= picture Storage Directory"
Response.End ()
End If

filename = Showfilelist ("./" &list& "/")
if filename = "NO" Then
Response.Write "The directory you specified <b>" &list& "</b> does not exist, please specify it again! "
Response.End ()
End If

if filename = "" Then
Response.Write "Your specified directory <b>" &list& "</b> no related picture files exist, please reassign! "
Response.End ()
End If

str = right (filename,3)
If str<> "JPG" and str<> "GIF" then
filename = "Erro.gif"
End If

Address = allpath&list& "/"
Address = Address&filename
%>
<%response.redirect (address)%>