创建XML文件

 

<!--#include virtual="/inc/conn.asp"-->
<%
page_id=request("page_id")
sql="select * from zine_pages where p_id="&page_id
set rs=conn.execute(sql)
if not rs.eof then
 z_id=rs("z_id")
 mb_id=rs("mb_id")
 xml=rs("xml")
 
  HtmCode="<data>"&vbCrLf
 sql_mb="select * from zine_mobar_Parameter where mb_id="&mb_id&" order by mb_order asc"
 set rs_mb=conn.execute(sql_mb)
 do while not rs_mb.eof
  HtmCode=xml_write(HtmCode,rs_mb("type"),rs_mb("mb_order"),rs_mb("name"))
  rs_mb.movenext
 loop
 set rs_mb=nothing
  HtmCode=HtmCode&"</data>"
  HtmFileName = Server.MapPath("/zine/"&z_id&"/xml/"&xml)
  set objStream = Server.CreateObject("ADODB.Stream")
  With objStream
    .Open
    .Type = 2
    .Charset = "utf-8"
    .WriteText HtmCode
    .SaveToFile HtmFileName, 2
    .Close
  End With
  Set objStream = Nothing
  
end if

Function xml_write(HtmCode,data_type,mb_order,mb_name)
select case data_type
 case 1
  sql_w="select * from zine_mags where z_id="&z_id&" and page_id="&page_id&" and mb_order="&mb_order
  set rs_w=conn.execute(sql_w)
  HtmCode=HtmCode&"<"&mb_name&" mag='"&rs_w("contents")&"' mb_order='"&mb_order&"'/>"&vbCrLf
  set rs_w=nothing
 case 2
  sql_w="select * from zine_img where z_id="&z_id&" and page_id="&page_id&" and mb_order="&mb_order
  set rs_w=conn.execute(sql_w)
  HtmCode=HtmCode&"<"&mb_name&" url='/zine/"&z_id&"/images/"&rs_w("img")&"' mb_order='"&mb_order&"'/>"&vbCrLf
  set rs_w=nothing
 case 3
  HtmCode=HtmCode&"<imgs>"&vbCrLf
  sql_w="select * from zine_img where z_id="&z_id&" and page_id="&page_id&" and mb_order="&mb_order
  set rs_w=conn.execute(sql_w)
  do while not rs_w.eof
   HtmCode=HtmCode&"<img url='/zine/"&z_id&"/images/"&rs_w("img")&"' title='' mag='' mb_order='"&mb_order&"'/>"&vbCrLf
   rs_w.movenext
  loop
  set rs_w=nothing
  HtmCode=HtmCode&"</imgs>"&vbCrLf
 case 4
  sql_w="select * from zine_flv where z_id="&z_id&" and page_id="&page_id&" and mb_order="&mb_order
  set rs_w=conn.execute(sql_w)
  HtmCode=HtmCode&"<flv flvurl='"&rs_w("flv")&"' mb_order='"&mb_order&"'/>"&vbCrLf
  set rs_w=nothing
 case 5
  HtmCode=HtmCode&"<dirs>"&vbCrLf
  sql_w="select * from zine_dirs where z_id="&z_id&" and page_id="&page_id&" and mb_order="&mb_order
  set rs_w=conn.execute(sql_w)
  do while not rs_w.eof
   HtmCode=HtmCode&"<dir num='"&rs_w("dirs")&"' mb_order='"&mb_order&"'/>"&vbCrLf
   rs_w.movenext
  loop
  set rs_w=nothing
  HtmCode=HtmCode&"</dirs>"&vbCrLf
 case 6
 case 7
 case 8
end select
 xml_write=HtmCode
End Function
%>