fpv_make_config.asp

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

<!-- #include file="../config.asp" -->
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Body="<?xml version='1.0' encoding='utf-8'?>"&vbCrlf
Body=Body&"<FPV_config>"&vbCrlf
Body=Body&"<menu>"&vbCrlf
set conn=Server.CreateObject("ADODB.Connection") 
Provider="Provider=MicroSoft.Jet.OLEDB.4.0;"
DBPath="Data Source=" & Server.MapPath("../aspupload.mdb")
conn.open Provider & DBPath
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='"&photoname&"' skin='black_full' up='100' down='undefined' left='undefined' right='undefined' wbetween='10' hbetween='10' menux='5' menuy='3' donghua='true' opentype='2' fullview='true' bigview='true' wmfile='none' wmxy='4' wmx='5' wmy='5' vlogoall='undefined' firstopen='undefined' tipview='true'/>"&vbCrlf
Body=Body&"<classes>"&vbCrlf
Lno=0
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")
   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
      rs1("Lno")=Lno
      rs1.Update     
      RecordID=rs1("RecordID") 
      description=rs1("description")
      Body=Body&"<class id='"&RecordID&"' mode='1' name='"&description&"' xml='"&RecordID&".xml' passtip='' dir='' logo='"
      I=1
      set rs2=Server.CreateObject("ADODB.Recordset")      
      sqlstr2="select Top 4 * from myimages where areana='"&areana&"' and description='"&description&"' Order By id"
      rs2.open sqlstr2,conn,3,2
      do until rs2.EOF
         if I<4 then 
            Body=Body&"../"&areana&"/"&description&"/144/"&rs2("filename")&"|" 
         else
            Body=Body&"../"&areana&"/"&description&"/144/"&rs2("filename")
         end if 
         I=I+1
         rs2.MoveNext
      Loop
      Body=Body&"' password='' downenable='false' comment='false' titleview='false' picount='true' dircount='true' xiazai='false' d='"&rs1("cname")&"' ext2='false' ext3='false' ext4='false' ext5='false' tiptxt='' urltxt='' />"&vbCrlf
      rs1.MoveNext
      Lno=Lno+1
   Loop
   rs.MoveNext
Loop
rs2.close
rs1.close
rs.close
Body=Body&"</classes>"&vbCrlf
Body=Body&"<Plugins>"&vbCrlf
Body=Body&"	<plug id='PictrueExtend [official]' mcname='PictrueExtend' mcdepth='50003' mode='3' />"&vbCrlf
Body=Body&"</Plugins>"&vbCrlf
Body=Body&"</FPV_config>"&vbCrlf

filepath="../fpv4/fpv_config/config.xml"
SaveToFile Body,filepath,"utf-8"
Response.write "糶