make_titleview_xml.asp

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

<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("aspupload.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * From list where use=0 order by RecordID"
rs.open sqlstr,conn,3,2
Do until rs.EOF
   areana=rs("areana")
   description=rs("description")
   RecordID=rs("RecordID")
   OriFolder=areana&"/"&description&"/640"
   OriTestFolder = Server.Mappath(OriFolder)
   Set objFolder = FS.GetFolder(OriTestFolder)
   I=1
   Body="<tiltviewergallery>"&vbCrlf
   Body=Body&"  <photos>"&vbCrlf
   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="view/xml/"&RecordID&".xml"
   SaveToFile Body,filepath,"utf-8"
   Response.write "糶