autofeeder.asp

来自「基于actionscript3.0的flashLoading控件」· ASP 代码 · 共 82 行

<%



Response.Expires = 0

dim folderPath, fileTypes, captionDateFormat


folderPath = Request.Form("f_folder")
captionDateFormat = Request.Form("f_dateFormat")
fileTypes = Split(Request.Form("f_fileTypes"), ",")



'''''''''''''''''''''''''''''''''''''''''''''




dim sr



sub ReadFolder(pth)

	dim fso, fldr, itm, typ

	set fso = CreateObject("Scripting.FileSystemObject")
	set fldr = fso.GetFolder(pth)

	for each itm in fldr.Files

		for each typ in fileTypes

			if LCase(Right(itm.Name, Len(itm.Name) - InStr(itm.Name, "."))) = LCase(typ) Then

				sr = sr & "<image src='" & folderPath & itm.Name & "'><caption>"
				
				if not captionDateFormat = "none"  Then

					if captionDateFormat = "d/m/y" Then
						sr = sr & Day(itm.DateCreated) & "/" & Month(itm.DateCreated) & "/" & Year(itm.DateCreated)
					elseif captionDateFormat = "m/d/y" Then
						sr = sr & Month(itm.DateCreated) & "/" & Day(itm.DateCreated) & "/" & Year(itm.DateCreated)
					elseif captionDateFormat = "y/d/m" Then
						sr = sr & Year(itm.DateCreated) & "/" & Day(itm.DateCreated) & "/" & Month(itm.DateCreated)
					elseif captionDateFormat = "y/m/d" Then
						sr = sr & Year(itm.DateCreated) & "/" & Month(itm.DateCreated) & "/" & Day(itm.DateCreated)
					end if

				end if

				sr = sr & "</caption></image>"

				exit for

			end if

		next

	next

end sub



'''''''''''''''''''''''''''''''''''''''''''''



sr = "<?xml version='1.0'?><slideshow>"

ReadFolder(Server.MapPath(folderPath))

sr = sr & "</slideshow>"

Response.Write("xf=" & sr)



%>