ASP生成XML的一个例子

原创 2007年10月08日 22:37:00
<!--#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) 
%
>  
 

asp生成xml文件

  • maskice
  • maskice
  • 2015年11月24日 11:56
  • 649

根据dtd例子写出xml文档

ceshi.xml文件 validate.html验证文件 相关概念说明: 一、XML概述 1、XML是可扩展标记语言。是由W3C指定并...
  • zhengleiqing
  • zhengleiqing
  • 2016年03月27日 18:37
  • 2077

Asp 解析 XML并分页显示

Asp 解析 XML并分页显示
  • yimiyuangguang
  • yimiyuangguang
  • 2014年05月14日 01:10
  • 1493

asp 创建和读取xml文件

using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.We...
  • lz37025
  • lz37025
  • 2017年01月06日 11:51
  • 746

个用 xml写的asp的页面后台页面只要返回简单的字符串行

楼主提供的另外1个思路也挺好虽然我们不能去开发引擎uid username,如果要复用int Numint numbers, unsigned int length.BM算法不仅效率高经常需要在其中写...
  • kudai1808
  • kudai1808
  • 2017年01月27日 07:49
  • 168

ASP生成静态Html文件技术

现在网站网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.  像www.aspid...
  • chinajobs
  • chinajobs
  • 2016年05月13日 10:23
  • 658

ztree读取xml文件,生成栏目树

ztree不直接读取xml加载栏目树,可以使用jquery将xml读取为json格式字符串,然后有ztree加载栏目树。 具体实现代码js部分如下:  用到的文件: ztree官方提供的js文件及其样...
  • yuanjianfei
  • yuanjianfei
  • 2014年03月12日 11:00
  • 1084

ASP生成JSON数据

下文中用到的json.asp见上一篇文章 %@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>!--#include file="json.asp"-->!--#incl...
  • suleil1
  • suleil1
  • 2015年10月28日 16:56
  • 1407

Robotium解析xml生成html样式的报告

Robotium解析xml生成html样式的报告 首先参考http://blog.csdn.net/jack_chen3/article/details/41832925重写Instrumentati...
  • luhuiluo
  • luhuiluo
  • 2014年12月23日 17:48
  • 1002

爱恩 asp 生成json数据

  • boys1999
  • boys1999
  • 2015年02月06日 22:17
  • 682
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP生成XML的一个例子
举报原因:
原因补充:

(最多只允许输入30个字)