make.asp

来自「使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+」· ASP 代码 · 共 28 行

<%
RecordID=request("RecordID")
areana=request("areana")
description=request("description")
Set fs = CreateObject("Scripting.FileSystemObject")
OriFolder="../"&areana&"/"&description&"/640"
OriTestFolder = Server.Mappath(OriFolder)
Set objFolder = FS.GetFolder(OriTestFolder)
Body="<tiltviewergallery>"&vbCrlf
Body=Body&"  <photos>"&vbCrlf
I=1
For Each File in objFolder.Files
   If Lcase(Right(File.Name,3)) = "jpg" Then
      Body=Body&"    <photo imageurl='../"&areana&"/"&description&"/640/"&File.Name&"' linkurl='../"&areana&"/"&description&"/"&File.Name&"'>"&vbCrlf
      Body=Body&"    <title>Image "&I&"</title>"&vbCrlf
      Body=Body&"    <description>"&File.Name&"</description>"&vbCrlf
      Body=Body&"    </photo>"&vbCrlf
      I=I+1     
   End IF 
Next
Body=Body&"  </photos>"&vbCrlf
Body=Body&"</tiltviewergallery>"&vbCrlf
filepath="xml/"&RecordID&".xml"
SaveToFile Body,filepath,"utf-8"
'newfilepath=Server.Mappath(filepath)
'Set fout=fs.CreateTextFile(newfilepath)
'fout.WriteLine Body
Response.write "糶