imgsuo.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#INCLUDE FILE="aspjpg.asp"-->
<% 

dpath=request.queryString("dir")
Lnum=int(len(dpath))-1
if right(dpath,1)="/" then 
dpath=left(dpath,Lnum)
end if 


ImageFilePath = dpath&"/"
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))

''CreateDIR(Server.MapPath(ImageFilePath)  &"/s/")''建立"S"

For Each objFile In objFolder.Files
	strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
	If   lcase(strFileExtension) = "jpg" Or  lcase(strFileExtension) = "jpeg"  or  lcase(strFileExtension) = "png"  Then
	
  dir=ImageFilePath
  pic1=objFile.Name
  write="false"
  makeimg  dir, pic1, "",100,100,".jpg",write
  response.write("<img src="&dpath&"/s/"&objFile.Name&">")

End If
Next ' objFile
Set objFolder = Nothing
Set objFSO = Nothing

%>