<
!
--
#include file
=
"
../conn.asp
"
-->
< ?xml version = " 1.0 " encoding = " GB2312 " ? >
< % Response.ContentType = " text/html " % >
< %
dim xmlDoc,root,pi,childNode,childNode_1,childNode_2,childNode_3
dim rs,sql,temp,i,path
dim forum_Name,forum_class_info,forum_class_num
' Set xmlDoc = CreateObject("Msxml2.DOMDocument.4.0")
Set xmlDoc = Server.CreateObject ( " Microsoft.XMLDOM " )
Set rs = Server.CreateObject ( " adodb.recordset " )
' 生成根节点
Set root = xmlDoc.createNode( " element " , " forum_collect " , "" )
xmlDoc.appendChild(root)
Set childNode = xmlDoc.createNode( " element " , " forum_info " , "" )
root.appendChild (childNode)
Set pi = xmlDoc.createProcessingInstruction( " xml " , " version=""1.0"" encoding=""GB2312"" " )
xmlDoc.insertBefore pi, root
' 生成论坛根节点
sql = " Select top 1 forum_info From [config] order by id "
rs.Open sql,conn, 1 , 1
temp = Instr (rs( 0 ), " , " )
forum_Name = Left (rs( 0 ),temp - 1 )
rs.Close ()
Set childNode_1 = xmlDoc.createNode( " element " , " forum_name " , "" )
childNode_1.text = forum_Name
childNode.appendChild (childNode_1)
sql = " Select id,[class] From [class] order by orders ,id "
rs.Open sql,conn, 1 , 1
forum_class_info = rs.GetRows ()
forum_class_num = UBound (forum_class_info, 2 )
rs.Close ()
for i = 0 to forum_class_num
Set childNode_1 = xmlDoc.createNode( " element " , " forum_class " , "" )
childNode.appendChild (childNode_1)
Set childNode_2 = xmlDoc.createNode( " element " , " forum_class_name " , "" )
childNode_2.text = forum_class_info( 1 ,i)
childNode_1.appendChild (childNode_2)
sql = " Select boardid,boardtype From board Where [class]= " & forum_class_info( 0 ,i)
rs.Open sql,conn, 1 , 1
while rs.EOF = false
Set childNode_2 = xmlDoc.createNode( " element " , " forum_list " , "" )
childNode_1.appendChild (childNode_2)
Set childNode_3 = xmlDoc.createNode( " element " , " forum_list_name " , "" )
childNode_3.text = rs( 1 )
childNode_2.appendChild (childNode_3)
Set childNode_3 = xmlDoc.createNode( " element " , " forum_list_id " , "" )
childNode_3.text = rs( 0 )
childNode_2.appendChild (childNode_3)
rs.MoveNext ()
wend
rs.Close ()
next
path = Server.MapPath ( " forumList.xml " )
Response.Write(xmlDoc.xml)
xmlDoc.save (path)
% >
< ?xml version = " 1.0 " encoding = " GB2312 " ? >
< % Response.ContentType = " text/html " % >
< %
dim xmlDoc,root,pi,childNode,childNode_1,childNode_2,childNode_3
dim rs,sql,temp,i,path
dim forum_Name,forum_class_info,forum_class_num
' Set xmlDoc = CreateObject("Msxml2.DOMDocument.4.0")
Set xmlDoc = Server.CreateObject ( " Microsoft.XMLDOM " )
Set rs = Server.CreateObject ( " adodb.recordset " )
' 生成根节点
Set root = xmlDoc.createNode( " element " , " forum_collect " , "" )
xmlDoc.appendChild(root)
Set childNode = xmlDoc.createNode( " element " , " forum_info " , "" )
root.appendChild (childNode)
Set pi = xmlDoc.createProcessingInstruction( " xml " , " version=""1.0"" encoding=""GB2312"" " )
xmlDoc.insertBefore pi, root
' 生成论坛根节点
sql = " Select top 1 forum_info From [config] order by id "
rs.Open sql,conn, 1 , 1
temp = Instr (rs( 0 ), " , " )
forum_Name = Left (rs( 0 ),temp - 1 )
rs.Close ()
Set childNode_1 = xmlDoc.createNode( " element " , " forum_name " , "" )
childNode_1.text = forum_Name
childNode.appendChild (childNode_1)
sql = " Select id,[class] From [class] order by orders ,id "
rs.Open sql,conn, 1 , 1
forum_class_info = rs.GetRows ()
forum_class_num = UBound (forum_class_info, 2 )
rs.Close ()
for i = 0 to forum_class_num
Set childNode_1 = xmlDoc.createNode( " element " , " forum_class " , "" )
childNode.appendChild (childNode_1)
Set childNode_2 = xmlDoc.createNode( " element " , " forum_class_name " , "" )
childNode_2.text = forum_class_info( 1 ,i)
childNode_1.appendChild (childNode_2)
sql = " Select boardid,boardtype From board Where [class]= " & forum_class_info( 0 ,i)
rs.Open sql,conn, 1 , 1
while rs.EOF = false
Set childNode_2 = xmlDoc.createNode( " element " , " forum_list " , "" )
childNode_1.appendChild (childNode_2)
Set childNode_3 = xmlDoc.createNode( " element " , " forum_list_name " , "" )
childNode_3.text = rs( 1 )
childNode_2.appendChild (childNode_3)
Set childNode_3 = xmlDoc.createNode( " element " , " forum_list_id " , "" )
childNode_3.text = rs( 0 )
childNode_2.appendChild (childNode_3)
rs.MoveNext ()
wend
rs.Close ()
next
path = Server.MapPath ( " forumList.xml " )
Response.Write(xmlDoc.xml)
xmlDoc.save (path)
% >