fpv_make.asp

使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl

<%
RecordID=request("RecordID")
areana=request("areana")
description=request("description")
Set fs = CreateObject("Scripting.FileSystemObject")
OriFolder="../"&areana&"/"&description&"/144"
OriTestFolder = Server.Mappath(OriFolder)
Set objFolder = FS.GetFolder(OriTestFolder)
Body="<?xml version='1.0' encoding='utf-8'?>"&vbCrlf
Body=Body&"<Photos>"&vbCrlf
For Each File in objFolder.Files
   If Lcase(Right(File.Name,3)) = "jpg" Then
      Body=Body&"<img src='../"&areana&"/"&description&"/"&File.Name&"' ssrc='../"&areana&"/"&description&"/144/"&File.Name&"' />"&vbCrlf
   End IF 
Next
Body=Body&"</Photos>"&vbCrlf

filepath="../fpv4/fpv_xmls/"&RecordID&".xml"
'newfilepath=Server.Mappath(filepath)
SaveToFile Body,filepath,"utf-8"
'Set fout=fs.CreateTextFile(newfilepath)
'fout.WriteLine Body
Response.write "糶