move1.asp

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

<!-- #include file="config.asp" -->
<% 
Newareana=request("Newareana")
man=Split(request("choice"), ", " )
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("aspupload.mdb")
For i=0 To UBound(man)
   Set rs=Server.CreateObject("ADODB.Recordset")
   sqlstr="select * from list where Recordid=" &man(i)
   rs.open sqlstr,conn,3,2
   IF rs.recordcount<>0 Then
      Application.Lock
         areana=rs("areana")
         description=rs("description")
         strFolder=areana&"/"&description
         TestFolder=Server.Mappath(strFolder)
         NewstrFolder=Newareana&"/"&description
         NewTestFolder=Server.Mappath(NewstrFolder)
         fs.MoveFolder TestFolder, NewTestFolder
      Application.Unlock
      rs("areana")=Newareana
      rs.update
   End IF
   rs.close

   Set rs=Server.CreateObject("ADODB.Recordset")
   sqlstr="select * from myimages where areana='"&areana&"' and description='"&description&"'"
   rs.open sqlstr,conn,3,2
   IF rs.recordcount<>0 Then
      rs("areana")=Newareana
      rs.update
   End IF
   rs.close
   
   OriFolder=Newareana&"/"&description&"/640"
   OriTestFolder = Server.Mappath(OriFolder)
   Set objFolder = FS.GetFolder(OriTestFolder)
   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='../"&Newareana&"/"&description&"/640/"&File.Name&"' linkurl='../"&Newareana&"/"&description&"/"&File.Name&"'>"&vbCrlf
         Body=Body&"    <title>Image "&I&"</title>"&vbCrlf
         Body=Body&"    <description>"&File.Name&"</description>"&vbCrlf
         Body=Body&"    </photo>"&vbCrlf
      End IF 
   Next
   Body=Body&"  </photos>"&vbCrlf
   Body=Body&"</tiltviewergallery>"&vbCrlf
   filepath="view/xml/"&man(i)&".xml"
   SaveToFile Body,filepath,"utf-8"
      
   OriFolder=Newareana&"/"&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='../"&Newareana&"/"&description&"/"&File.Name&"' ssrc='../"&Newareana&"/"&description&"/144/"&File.Name&"' />"&vbCrlf
      End IF 
   Next
   Body=Body&"</Photos>"&vbCrlf
   filepath="fpv4/fpv_xmls/"&man(i)&".xml"
   SaveToFile Body,filepath,"utf-8"
Next

Body="<?xml version='1.0' encoding='utf-8'?>"&vbCrlf
Body=Body&"<FPV_config>"&vbCrlf
Body=Body&"<menu>"&vbCrlf
set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from area Order By area Desc"
rs.open sqlstr,conn,3,2
do until rs.EOF
   areana=rs("areana")
   Body=Body&"<node label='"&areana&"'>" 
   set rs1=Server.CreateObject("ADODB.Recordset")
   sqlstr1="select * from list where areana='"&areana&"' Order By picno Desc"
   rs1.open sqlstr1,conn,3,2
   do until rs1.EOF
      description=rs1("description")
      Body=Body&"<node label='"&description&"' />"    
      rs1.MoveNext
   Loop
   Body=Body&"</node>"&vbCrlf
   rs.MoveNext
Loop
rs1.close
rs.close
Body=Body&"</menu>"&vbCrlf
Body=Body&"<config name='