<![CDATA[PaulLeder--程序部落 - XML]]> http://bokee.shinylife.net/blog/ zh-cn PBlog2 v2.4 PaulLeder--程序部落 http://bokee.shinylife.net/blog/images/logos.gif http://bokee.shinylife.net/blog/ PaulLeder--程序部落 http://bokee.shinylife.net/blog/article.asp?id=885 <![CDATA[使用 XSLT 解释 XML 文件]]> paulleder@msn.com(PaulLeder) Thu,02 Apr 2009 10:38:37 +0800 http://bokee.shinylife.net/blog/default.asp?id=885 我们平常用 IE 打开一个普通的本地 xml 文件，其形式通常都是如下图：

IE解释xml的默认样式

默认样式看得多了就不觉得有什么特别。但对于少接触 xml 的人来说，上图还是有很多疑问之处。比如，为什么有加减号？为什么IE会弹出安全警告？为什么标签是这种棕赤色并且数据都是加粗的黑色？
诸如此类的问题，在学习 XSLT 之前，确实不好回答。

XSLT 被定义为 XML 转换器的角色，专门负责把 XML 数据转换为其他形式的数据，最常见的就是转换为 HTML 代码。 这里有 W3C 的 XSLT1.0 详细文档，我就不赘述了，下面是利用 XSLT 的规则，把上面的 XML 文档按照 IE 的默认样式，也来展示一遍。

自定义的xml展示样式

为了体现与 IE 默认样式的不同，特意画蛇添足地加上勾选框。至于为什么会IE的有安全警告，那是因为需要在本地执行 JavaScript 语句，浏览器不能判定这些脚本是否带来恶意攻击，就默认关闭脚本解释引擎并给出警告。因为上图的加减号我增加了展开与收缩的事件。

因为上例的 XSLT 并不单独针对某个 xml 数据制作，因此把上面的 XSLT 作用与其他 XML 也有同样的效果，即通用的 xml 解释器！（呵呵，言重了，因为该 XSLT 文件并没有解释节点的属性）

由于 XML 可以具有树形结构，因此遍历节点就必须用到递归方法，XSLT 本身是支持递归的，这也是本例的关键之处：

 

<xsl:template name="TreeHTML">
<xsl:param name="x" />
<li>
<xsl:choose>
  <xsl:when test="count($x/*)>0">
    <a href="javascript:void(0)" onclick="switchSubNode(this)">-</a><input type="checkbox" /><em>&lt;</em><span><xsl:value-of select="name($x)"/></span><em>&gt;</em>
      <ul>
        <xsl:for-each select="$x/*">
          <xsl:call-template name="TreeHTML">
            <xsl:with-param name="x" select="." />
          </xsl:call-template>
        </xsl:for-each>
      </ul>
      <em>&lt;</em><span>/<xsl:value-of select="name($x)"/></span><em>&gt;</em>
  </xsl:when>
  <xsl:otherwise>
    <a href="javascript:void(0)" onclick="switchSubNode(this)">-</a>
    <xsl:choose>
       <xsl:when test="string-length($x)>0">
         <em>&lt;</em><span><xsl:value-of select="name($x)"/></span><em>&gt;</em><strong><xsl:value-of select="$x" /></strong><em>&lt;</em>/<span><xsl:value-of select="name($x)"/></span><em>&gt;</em>
       </xsl:when>
       <xsl:otherwise>
           <em>&lt;</em><span><xsl:value-of select="name($x)"/></span> /<em>&gt;</em>
       </xsl:otherwise>
    </xsl:choose>
  </xsl:otherwise>
</xsl:choose>
</li>
</xsl:template>

点击下载此文件

]]> http://bokee.shinylife.net/blog/article.asp?id=698 <![CDATA[微软的XML可视化编辑器：XML Notepad 2007]]> paulleder@msn.com(PaulLeder) Sun,11 Nov 2007 08:53:31 +0800 http://bokee.shinylife.net/blog/default.asp?id=698 XML Notepad 2007是微软提供的一款可视化的XML浏览和编辑小工具，直接可以在树形节点中进行拖放操作，输出默认的XSL等；在性能方面也非常好，据微软介绍，加载3M大小的XML文件，只需要一秒钟的时间。 运行后主界面： 下载地址：

 

http://www.microsoft.com/downloads/details.aspx?familyid=72D6AA49-787D-4118-BA5F-4F30FE913628&displaylang=en

]]> http://bokee.shinylife.net/blog/article.asp?id=636 <![CDATA[XSL分页条template]]> paulleder@msn.com(PaulLeder) Sat,01 Sep 2007 20:34:29 +0800 http://bokee.shinylife.net/blog/default.asp?id=636
引用内容 引用内容
<?xml version="1.0" encoding="utf-8" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<!--当前页码-->
<xsl:param name="page"><xsl:value-of select="//page"/></xsl:param>
<!--基础URL-->
<xsl:param name="url">/xxx.aspx?p=</xsl:param>
<!--示例-->
<xsl:template match="/">
        <div>
                <!--调用分页条生成模板-->
                <xsl:call-template name="pager">
                        <!--参数:总页数-->
                        <xsl:with-param name="tp">
                                <!--计算总页数,count节点表示总的记录数,div 20表示每页20条记录-->
                                <xsl:value-of select="round(number(//count) div 20+0.49)"/>
                        </xsl:with-param>
                </xsl:call-template>
        </div>
</xsl:template>
<xsl:template name="pager">
        <!--参数:总页数-->
        <xsl:param name="tp"/>
        <!--如果总页熟大于1则开始生成分页链节-->
        <xsl:if test="$tp>1">
                <!--如果当前页不是第一页则生成上一页的链接-->
                <xsl:if test="($page)>1">
                        <a target="_self">
                                <xsl:attribute name="href">
                                        <xsl:value-of select="$url" /><xsl:value-of select="number($page)-1" />
                                </xsl:attribute>
                                上一页
                        </a>
                </xsl:if>
                <!--调用循环生成中间的页码链接-->
                <xsl:call-template name="loop">
                        <!--参数:开始页码-->
                        <xsl:with-param name="start">
                                <xsl:choose>
                                        <!--如果总页数大于10并且当前页码大于5则开始计算起始页码,否则起始页码为1-->
                                        <xsl:when test="$tp>10 and $page>5">
                                                <xsl:choose>
                                                        <!--如果总页数大于当前页加5则起始页码为当前页减5-->
                                                        <xsl:when test="$tp>$page+5">
                                                                <xsl:value-of select="number($page)-5"/>
                                                        </xsl:when>
                                                        <!--否则起始页码为总页数减10-->
                                                        <xsl:otherwise><xsl:value-of select="number($tp)-10"/></xsl:otherwise>
                                                </xsl:choose>
                                        </xsl:when>
                                        <xsl:otherwise>1</xsl:otherwise>
                                </xsl:choose>
                        </xsl:with-param>
                        <!--参数:结束页码-->
                        <xsl:with-param name="end">
                                <xsl:choose>
                                        <!--如果总页数大于10则开始结算结束页码,否则结束页码为总页数-->
                                        <xsl:when test="$tp>10">
                                                <xsl:choose>
                                                        <!--如果总页数大于当前页码加5-->
                                                        <xsl:when test="$tp>$page+5">
                                                                <xsl:choose>
                                                                        <!--如果当前页码大于5,则结果页码为当前页码加5-->
                                                                        <xsl:when test="$page>5">
                                                                                <xsl:value-of select="number($page)+5"/>
                                                                        </xsl:when>
                                                                        <!--否则结果页码为10-->
                                                                        <xsl:otherwise>10</xsl:otherwise>
                                                                </xsl:choose>
                                                        </xsl:when>
                                                        <!--否则结果页码为总页数-->
                                                        <xsl:otherwise><xsl:value-of select="$tp"/></xsl:otherwise>
                                                </xsl:choose>
                                        </xsl:when>
                                        <xsl:otherwise><xsl:value-of select="$tp"/></xsl:otherwise>
                                </xsl:choose>
                        </xsl:with-param>
                </xsl:call-template>
                <!--如果当前页不是最后一页则生成下一页的链接-->
                <xsl:if test="$tp>number($page)">
                        <a target="_self">
                                <xsl:attribute name="href">
                                        <xsl:value-of select="$url" /><xsl:value-of select="number($page)+1" />
                                </xsl:attribute>
                                下一页
                        </a>
                </xsl:if>
        </xsl:if>
</xsl:template>
<xsl:template name="loop">
        <!--参数:开始页码-->
        <xsl:param name="start"/>
        <!--参数:结束页码-->
        <xsl:param name="end"/>
        <!--如果结束页码大于开始页码则继续处理下一个链接-->
        <xsl:if test="$end>=$start">
                <xsl:choose>
                        <!--如果是当前页则只显示页码不创建链接-->
                        <xsl:when test="$start=$page">
                                <span>
                                        <xsl:value-of select="$start"/>
                                </span>
                        </xsl:when>
                        <!--创建链接页码-->
                        <xsl:otherwise>
                                <a target="_self">
                                        <xsl:attribute name="href">
                                                <xsl:value-of select="$url" /><xsl:value-of select="$start" />
                                        </xsl:attribute>
                                        [<xsl:value-of select="$start" />]
                                </a>
                        </xsl:otherwise>
                </xsl:choose>
                <!--继续生成下一个链接-->
                <xsl:call-template name="loop">
                        <!--开始页码加1后传入下一个调用-->
                        <xsl:with-param name="start">
                                <xsl:value-of select="number($start)+1"/>
                        </xsl:with-param>
                        <!--结束页码直接传入下一个调用-->
                        <xsl:with-param name="end">
                                <xsl:value-of select="$end"/>
                        </xsl:with-param>
                </xsl:call-template>
        </xsl:if>
</xsl:template>
</xsl:stylesheet>


spliter.xml
引用内容 引用内容
<?xml version="1.0" encoding="utf-8" ?>
<?xml-stylesheet type="text/xsl" href="spliter.xsl"?>
<root>
    <page>3</page>
    <count>5864</count>
</root>
]]> http://bokee.shinylife.net/blog/article.asp?id=634 <![CDATA[asp操作xml之来源统计]]> paulleder@msn.com(PaulLeder) Sat,01 Sep 2007 13:57:14 +0800 http://bokee.shinylife.net/blog/default.asp?id=634
引用内容 引用内容

<%
    Dim CookieName="shinylife"
    Function getIP()
        Dim strIPAddr
        If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
            strIPAddr = Request.ServerVariables("REMOTE_ADDR")
        ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
            strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
        ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
            strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
        Else
            strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        End If
        getIP = CheckStr(Trim(Mid(strIPAddr, 1, 30)))
    End Function
    sub vistCount()
        if request.Cookies(CookieName&"_showSPC")="true" then exit sub
        if request.Cookies(CookieName&"_showSPC")="" then
            Dim XmlDom,xmlPath,Root
            Dim oCount,gCount,sCount,TimeNow,rd
            xmlPath=server.MapPath("base.xml")
            set XmlDom=server.CreateObject("Microsoft.XMLDOM")
            XmlDom.load(xmlPath)
            if XmlDom.parseError.errorCode<>0 then
                response.write "有错误"
            end if
            set Root=XmlDom.documentElement
            
            set oCount=XmlDom.selectSingleNode("//cit")
            gCount=oCount.childNodes(0).text
            XmlDom.selectsinglenode("//cit").text=INT(gCount)+1
            Dim Item,oDate,oIp,oReferer
            Dim sIp,sReferer
            set Item=XmlDom.CreateElement("item")
            set oDate=XmlDom.CreateElement("date")
            set oIp=XmlDom.CreateElement("ip")
            set oreferer=XmlDom.CreateElement("referer")
            
            set sIp=XmlDom.CreateCDATASection("ip")
            set sReferer=XmlDom.CreateCDATASection("referer")
            oDate.text=now
            sIp.text=getIp
            if Request.ServerVariables("HTTP_REFERER")="" then
                sReferer.text="未捕获到..."
            else
                sReferer.text="<a href="""&Request.ServerVariables("HTTP_REFERER")&""" target=""_blank"">"&Request.ServerVariables("HTTP_REFERER")&"<a>"
            end if
            oIp.appendChild(sIp)
            oreferer.appendChild(sReferer)
            Item.appendChild(oDate)
            Item.appendChild(oIp)
            Item.appendChild(oReferer)
            Root.insertBefore Item,Root.childNodes(1)
            '全局结束
            '专门统计shinylife网站入口的开始
            if instr(Request.ServerVariables("HTTP_REFERER"),"www.shinylife.net")>0 then
                Dim shinylife,eItem,eDate,eIp,eReferer
                Dim esIp,esReferer,egCount
                set shinylife=Root.selectSingleNode("//shinylife")
                set eItem=XmlDom.CreateElement("item")
            
                egCount=shinylife.selectSingleNode("//ecit").text
                shinylife.selectSingleNode("//ecit").text=int(egCount)+1
                
                set eDate=XmlDom.CreateElement("date")
                set eIp=XmlDom.CreateElement("ip")
                set eReferer=XmlDom.CreateElement("referer")
                
                set esIp=XmlDom.CreateCDATASection("ip")
                set esReferer=XmlDom.CreateCDATASection("referer")
                eDate.text=now
                esIp.text=getIp
                if Request.ServerVariables("HTTP_REFERER")="" then
                    esReferer.text="未捕获到..."
                else
                    esReferer.text="<a href="""&Request.ServerVariables("HTTP_REFERER")&""" target=""_blank"">"&Request.ServerVariables("HTTP_REFERER")&"<a>"
                end if
                eIp.appendChild(esIp)
                eReferer.appendChild(esReferer)
                eItem.appendChild(eDate)
                eItem.appendChild(eIp)
                eItem.appendChild(eReferer)
                shinylife.insertBefore eItem,shinylife.childNodes(1)
            end if
            XmlDom.save(xmlPath)
            response.Cookies(CookieName&"_showSPC")="true"
            response.Cookies(CookieName&"_showSPC").Expires=Date+1
            set Item=nothing
            set oDate=nothing
            set oIp=nothing
            set oreferer=nothing
            set Root=nothing
            set XmlDom=nothing
        end if
    end sub
    %>

base.xml文件如下:
引用内容 引用内容
<?xml version="1.0" encoding="gb2312"?>
<?xml-stylesheet type="text/xsl" href="showResult.xsl"?>
<count>
    <cit>1</cit>
    <item>
        <date>2007-9-1 10:19:39</date><ip><![CDATA[127.0.0.1]]></ip><referer><![CDATA[未捕获到...]]></referer>
    </item>
    <shinylife>
        <ecit>1</ecit>
        <item>
            <date>2007-9-1 10:19:39</date><ip><![CDATA[127.0.0.1]]></ip><referer><![CDATA[未捕获到...]]></referer>
        </item>
    </shinylife>
</count>

showResult.xsl文件如下:
引用内容 引用内容

<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
    <xsl:template match="//count/item">
                        <div class="listm">
                            <div class="sdate"><xsl:value-of select="date" disable-output-escaping="no"/></div>
                            <div class="sip"><xsl:value-of select="ip" disable-output-escaping="no"/></div>
                            <div class="sreferer"><xsl:value-of select="referer" disable-output-escaping="yes"/></div>
                        </div>
    </xsl:template>    
    <xsl:template match="//shinylife/item">
                        <div class="listm">
                            <div class="sdate"><xsl:value-of select="date" disable-output-escaping="no"/></div>
                            <div class="sip"><xsl:value-of select="ip" disable-output-escaping="no"/></div>
                            <div class="sreferer"><xsl:value-of select="referer" disable-output-escaping="yes"/></div>
                        </div>
    </xsl:template>
    <xsl:template match="/">
        <html xmlns="http://www.w3.org/1999/xhtml">
            <head>
                <title>流量查看</title>
                <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
                <meta name="author" content="paulleder@163.com,PaulLeder"/>
                <meta name="robots" content="all" />
                <meta name="Copyright" content="" />
                <meta name="keywords" content=""/>
                <link rel="stylesheet" href="main.css" type="text/css"/>
            </head>
            <body>
                <div align="center">
                <div class="bodyer">
                    <div class="header"></div>
                    <div class="Content">
                        <br/>
                        <div class="allCount"><strong>总访问量:</strong>
                            <xsl:value-of select="//cit" disable-output-escaping="no"/>
                        </div>
                        <hr/>
                        <div class="allCountList">
                            <div class="sdate"><strong>访问时间</strong></div><div class="sip"><strong>来源IP</strong></div><div class="sreferer"><strong>来源地址</strong></div>
                            <xsl:apply-templates select="//count/item"/>
                        </div>
                        <div style="clear:both;"></div>
                        <hr/>
                        <div class="shinylifeCount"><strong>来源为shinylife访问量:</strong>
                            <xsl:value-of select="//ecit" disable-output-escaping="no"/>
                        </div>
                        <hr/>
                        <div class="shinylifeCountList">
                            <div class="sdate"><strong>访问时间</strong></div><div class="sip"><strong>来源IP</strong></div><div class="sreferer"><strong>来源地址</strong></div>
                            <xsl:apply-templates select="//shinylife/item"/>
                        </div>
                    </div>
                </div>
                <div class="footer"></div>
                </div>
            </body>
        </html>
    </xsl:template>    
</xsl:stylesheet>

main.css如下
引用内容 引用内容

body {font-size:14px;width:760px;margin:auto;}
a:link {color: #80ff00}
a:visited {color: #ff00ff}

.bodyer{width:760px;margin:auto;text-align:left;}
.header{}

.Content{background-color:#EFE6E7;height:100%;padding-left:5px;}
.sdate,.sip,.sreferer{float:left;}
.sdate{width:16%;}
.sip{width:16%;}
.sreferer{text-overflow:ellipsis;overflow:hidden;white-space:nowrap;width:60%;}
.sreferer a:link,.sreferer a:hover,.sreferer a:visited{text-decoration:none;color:black;}
.listm{clear:both;}

.allCount,.e6uCount{clear:both;}

.footer{background:url(images/aoyun_r7_c2.jpg) no-repeat;width:760px;height:120px;text-align:center;}


本程序是在写"爱心奥运•万人自行车活动--云南逸游"时写,后来我帖到博客的时候把原来是e6u的改了shinylife.如果遗漏出错请跟帖告之.]]> http://bokee.shinylife.net/blog/article.asp?id=633 <![CDATA[利用 XSLT 对 XML 进行缩进格式化处理]]> paulleder@msn.com(PaulLeder) Sat,01 Sep 2007 13:35:16 +0800 http://bokee.shinylife.net/blog/default.asp?id=633 利用XmlTextWriter类增强XML数据的可读性；3，我们还可以用XSLT进行转换，下面就是实现的例子：

XmlFormat.htm

引用内容 引用内容
<SCRIPT>
    //装载数据
    str = "<r><a name='net_lover'>aaaaaaaaaaa</a>         <b>bbbbbbb</b>"
    str += "<a>aaaaaaaaaaa</a><b>bbbbbbb</b></r>"
  var source = new ActiveXObject("Msxml2.DOMDocument");
  source.async = false;
  source.loadXML(str)
  alert(source.xml)

  // 装载样式单
  var stylesheet = new ActiveXObject("Msxml2.DOMDocument");
  stylesheet.async = false;
  stylesheet.resolveExternals = false;
  stylesheet.load("style.xsl");
    alert(stylesheet.xml)
    
  // 创建结果对象
  var result = new ActiveXObject("Msxml2.DOMDocument");
  result.async = false;

  // 把解析结果放到结果对象中方法1
  source.transformNodeToObject(stylesheet, result);
  alert(result.xml)
  
   // 把解析结果放到结果对象中方法2
  result2 = ""
  result2 = source.transformNode(stylesheet);
  source.loadXML(result2)
  alert(source.xml)
</SCRIPT>

style.xsl

引用内容 引用内容
<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method = "xml"  omit-xml-declaration = "yes" indent = "yes"/>
<xsl:template match="/ | @* | node()">
    <xsl:copy>
      <xsl:apply-templates select="@* | node()"/>
    </xsl:copy>
  </xsl:template>
</xsl:stylesheet>
]]> http://bokee.shinylife.net/blog/article.asp?id=631 <![CDATA[又一个ASP处理XML 实例（投票）]]> paulleder@msn.com(PaulLeder) Thu,30 Aug 2007 16:50:56 +0800 http://bokee.shinylife.net/blog/default.asp?id=631 下载回到本地修改后缀名为.rar再打开
下载文件 点击下载此文件

inc/base.js代码就不发了
index.asp代码
引用内容 引用内容
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
        <meta http-equiv="Content-Language" content="gb2312" />
        <meta name="robots" content="all" />
        <meta name="author" content="PaulLeder" />
        <meta name="Copyright" content="ShinyLife" />
        <meta name="keywords" content="ShinyLife" />
        <meta name="description" content="ShinyLife" />
        <title>ASP操作XML实例</title>
        <script type="text/javascript" src="js/base.js"></script>
        <script type="text/javascript">
            var ocid,ovid
            function setResult(cid,vid){
                var url="handleVote.asp";//需要修改为对应的提交文件名称
                var form=document.forms["subVote"];
                var resStr="";
                ocid=cid;
                ovid=vid;
                //checkbox使用如下获得,返回的是被选中的对应于XMLID
                for(var i=0;i<2;i++){
                    if(form["chk_"+cid+"_"+vid+"_"+(i+1)].checked){
                        if(resStr==""){resStr=(i+1);}else{resStr+=","+(i+1);}
                    }
                }
                //radio使用如下获得,返回的是被选中的对应于XMLID
                /*
                for(var i=0;i<2;i++){
                    if(form["rad_"+cid+"_"+vid](i).checked){
                        if(resStr==""){resStr=(i+1);}else{resStr+=","+(i+1);}
                    }
                }
                */
                if(resStr){
                    var postStr="restr="+escape(resStr)+"&cid="+cid+"&vid="+vid+"&s="+Math.random();
                    new Ajax.sendRequest(url,postStr,"POST",Onload,Onerror);
                }else{alert("你没有选中项目,无需投票...")}
            }
            function Onload(req){
                var str=req.responseText;
                var form=document.forms["subVote"];
                alert(str);
                if(str="投票成功,谢谢你的投票!"){
                    for(var i=0;i<2;i++){
                        if(form["chk_"+ocid+"_"+ovid+"_"+(i+1)].checked){
                            $("res_"+ocid+"_"+ovid+"_"+(i+1)).innerHTML=parseInt($("res_"+ocid+"_"+ovid+"_"+(i+1)).innerHTML)+1;
                            form["chk_"+ocid+"_"+ovid+"_"+(i+1)].checked=false;
                        }
                    }
                    if(Cookies){
                        Cookies.setCookie('"chk_"+ocid+"_"+ovid',"1","")
                    }
                    $("votesubme").disabled=true;
                }
            }
            function Onerror(){
                alert("投票没有成功,请重试...");
            }
            window.onload=function(){
                if(Cookies){
                    if(Cookies.getCookie('"chk_"+ocid+"_"+ovid'))$("votesubme").disabled=true;
                }
            }
        </script>
<%
vistCount "",15,1,""'设置参数第一个是显示类型，目前未开发，第二个是分类编号，第三个分类下面的投票组，第四个是投票方式，空则是多选，不为空为单选
sub vistCount(otype,cid,vid,vtype)
    Dim XmlDom,xmlPath
    xmlPath=server.MapPath("base.xml")
    set XmlDom=server.CreateObject("Microsoft.XMLDOM")
    XmlDom.load(xmlPath)
    if XmlDom.parseError.errorCode<>0 then
        response.write "有错误"
    end if
    
    response.write "<form name=""subVote"" action="""" method=""post"">"&vbcrlf
    Dim Root,category
    Dim CategoryName,CategoryId
    Dim node
    set Root=XmlDom.documentElement
    set category=Root.getElementsByTagName("category")
    if otype<>"" then
        response.write "尚未开发"
        response.end
    else
        Dim i,vNode,child
        set node=Root.selectSingleNode("category[@id='"&cid&"']")'获得当前分类的投票
        if vid<>"" and isNumeric(vid) then
            set vNode=node.selectSingleNode("voteItem[@id='"&cint(vid)&"']")
            for i=0 to vNode.childNodes.length-1
                if vtype="" then
                    response.write "<label for=""chk_"&cid&"_"&vid&"_"&(i+1)&"""><input name=""chk_"&cid&"_"&vid&"_"&(i+1)&""" id=""chk_"&cid&"_"&vid&"_"&(i+1)&""" value="""&i&""" type=""checkbox""/>"&vNode.childNodes(i).getAttribute("name")&"(<span id=""res_"&cid&"_"&vid&"_"&(i+1)&""">"&vNode.childNodes(i).text&"</span>票)</label><br/>"&vbcrlf
                else
                    response.write "<label for=""rad_"&cid&"_"&vid&"_"&(i+1)&"""><input name=""rad_"&cid&"_"&vid&""" id=""rad_"&cid&"_"&vid&"_"&(i+1)&""" value=""1"" type=""radio""/>"&vNode.childNodes(i).getAttribute("name")&"(<span id=""res_"&cid&"_"&vid&"_"&(i+1)&""">"&vNode.childNodes(i).text&"</span>票)</label><br/>"&vbcrlf
                end if
            next
        else
            response.write "尚未开发"
            response.end
        end if
    end if
    response.write "    <input name=""votesubme"" id=""votesubme"" value=""提交"" type=""button"" onclick=""return setResult("&cid&","&vid&")""/>"&vbcrlf
    response.write "</form>"
end sub
%>
    </body>
</html>



handleVote.asp文件
引用内容 引用内容
<%
Response.ContentType = "text/html"
Response.Charset = "GB2312"
Dim XmlDom,xmlPath
xmlPath=server.MapPath("base.xml")
set XmlDom=server.CreateObject("Microsoft.XMLDOM")
XmlDom.load(xmlPath)
if XmlDom.parseError.errorCode<>0 then
    response.write "有错误"
end if

Dim cid,vid,resStr,strA,i,j
cid=request.form("cid")
vid=request.form("vid")
resStr=request.form("restr")
if not(isNumeric(cid)) or not(isNumeric(vid)) or isEmpty(resStr) or isNull(resStr) or resStr="" then
    response.write "请不要手动设置参数提交"
    response.end
end if

Dim Root,node,vNode
set Root=XmlDom.documentElement
set node=Root.selectSingleNode("category[@id='"&cid&"']")'获得当前分类的投票
set vNode=node.selectSingleNode("voteItem[@id='"&cint(vid)&"']")

strA=split(resStr,",")
for i=0 to ubound(strA)
    for j=0 to vNode.childNodes.length-1
        if vNode.childNodes(j).getAttribute("id")=strA(i) then
            Dim getC
            getC=int(vNode.selectSingleNode("item[@id='"&strA(i)&"']").text)
            vNode.selectSingleNode("item[@id='"&strA(i)&"']").text=getC+1
        end if
    next
next
XmlDom.save(xmlPath)
response.write"投票成功,谢谢你的投票!"
%>


base.xml文件内容
引用内容 引用内容
<?xml version="1.0" encoding="gb2312"?>
<vote>
    <category name="你觉得本站需要加强哪些功能?" id="15">
        <voteItem id="1">
            <item id="1" name="页面">17</item>
            <item id="2" name="程序">17</item>
        </voteItem>
    </category>
    <category name="你更关注本站的哪些内容?" id="16">
        <voteItem id="2">
            <item id="1" name="文章">0</item>
            <item id="2" name="图片">0</item>
        </voteItem>
    </category>
</vote>


因为没有多大的实际意义，所以也不存在架构，改个xml文件名都是个麻烦的事情~自己看着办吧
需要注意的是base.xml文件需要有读写权限~
设置参见:http://bokee.shinylife.net/blog/article.asp?id=600 ]]> http://bokee.shinylife.net/blog/article.asp?id=630 <![CDATA[简单的ASP操作XML实例]]> paulleder@msn.com(PaulLeder) Thu,30 Aug 2007 13:39:38 +0800 http://bokee.shinylife.net/blog/default.asp?id=630
引用内容 引用内容
<?xml version="1.0" encoding="gb2312"?>
<count>
    <cit>937</cit>
</count>


show.asp内容
引用内容 引用内容
sub vistCount()
    Dim XmlDom,xmlPath
    Dim oCount,gCount,sCount,TimeNow,rd
    xmlPath=server.MapPath("base.xml")
    set XmlDom=server.CreateObject("Microsoft.XMLDOM")
    XmlDom.load(xmlPath)
    if XmlDom.parseError.errorCode<>0 then
        response.write "有错误"
    end if
    set oCount=XmlDom.selectSingleNode("//cit")
    gCount=oCount.childNodes(0).text
    Randomize()
    rd=Int(5*Rnd())'设置大小范围
    sCount=int(gCount)+rd
    XmlDom.selectsinglenode("//cit").text=sCount
    XmlDom.save(xmlPath)
    response.write "访问量:"&gCount&"次"
end sub

需要注意的是base.xml文件需要有读写权限~
设置参见:http://bokee.shinylife.net/blog/article.asp?id=600]]> http://bokee.shinylife.net/blog/article.asp?id=487 <![CDATA[xpath教程(一)--XPath简介]]> paulleder@msn.com(PaulLeder) Fri,19 Jan 2007 20:42:19 +0800 http://bokee.shinylife.net/blog/default.asp?id=487

XPath is a language for finding information in an XML document. XPath is used to navigate through elements and attributes in an XML document.
Xpath是一种能够在XML文档中寻找信息的语言。它通过XML文档中的元素和属性来进行导航。

What You Should Already Know(你应具备的知识)

Before you continue you should have a basic understanding of the following:
在你继续前你应该具备以下知识的基础：

  • HTML / XHTML
  • XML / XML Namespaces[命名空间]

What is XPath?(什么是XPath?)

  • XPath is a syntax for defining parts of an XML document
    XPath 是针对XML文档部分内容定义的语法
  • XPath uses path expressions to navigate in XML documents
    XPath 使用路径表达式在XML文档中导航
  • XPath contains a library of standard functions
    XPath 包含了一系列标准函数
  • XPath is a major element in XSLT
    XPath 在XSLT当中是一个主要的元素
  • XPath is a W3C Standard
    XPath是W3C标准

XPath Path Expressions(XPath 路径表达式)

XPath uses path expressions to select nodes or node-sets in an XML document. These path expressions look very much like the expressions you see when you work with a traditional computer file system.
XPath 使用路径表达式来选择XML文档中的nodes(节)或是node-set(节集)。这些路径表达式看上去与你平时所见的传统计算机文件系统路径非常地相似。

XPath Standard Functions(XPath 标准函数)

XPath includes over 100 built-in functions. There are functions for string values, numeric values, date and time comparison, node and QName manipulation, sequence manipulation, Boolean values, and more.
XPath包含了数量超过100的内置函数。这些函数针对字符串值，数字值，日期和时间比较，节操作，顺序操作，布尔值，等等。

XPath is Used in XSLT(XPath被用在XSLT)

XPath is a major element in the XSLT standard. Without XPath knowledge you will not be able to create XSLT documents.
在XSLT标准中XPath是主要的元素。没有XPath知识你将很难建立XSLT文档。

XQuery and XPointer are both built on XPath expressions. XQuery 1.0 and XPath 2.0 share the same data model and support the same functions and operators.
XQuery和XPointer都建立于XPath表达式。XQuery 1.0 和 XPath 2.0共享相同的数据模型并支持相同的函数和操作

XPath is a W3C Standard(XPath是W3C标准)

XPath became a W3C Recommendation 16. November 1999.
XPat于1999年11月16日成为W3C的推荐标准

XPath was designed to be used by XSLT, XPointer and other XML parsing software.
XPath被设计成为用语XSLT,XPoniter以及其他XML解析的软件。


]]> http://bokee.shinylife.net/blog/article.asp?id=486 <![CDATA[xpath教程(二)--XPath Nodes(节)]]> paulleder@msn.com(PaulLeder) Fri,19 Jan 2007 20:41:42 +0800 http://bokee.shinylife.net/blog/default.asp?id=486 In XPath, there are seven kinds of nodes: element, attribute, text, namespace, processing-instruction, comment, and document (root) nodes.
在XPath中有七种nodes(节)：元素，属性，文字，命名空间，处理说明，注释，和文档(根)节。

XPath Terminology(XPath术语)

Nodes/节

In XPath, there are seven kinds of nodes: element, attribute, text, namespace, processing-instruction, comment, and document (root) nodes. XML documents are treated as trees of nodes. The root of the tree is called the document node (or root node).
XML文档被视为数状的节。树的根部被称为文档的节(或根节)。

Look at the following XML document:
观察下面的XML文档：

<?xml version="1.0" encoding="ISO-8859-1"?>
<bookstore>
<book>
<title lang="en">Harry Potter</title>
<author>J K. Rowling</author>
<year>2005</year>
<price>29.99</price>
</book>
</bookstore>

Example of nodes in the XML document above:
上面举例的XML文档的节有：

<bookstore>  (document node)
<author>J K. Rowling</author>  (element node)
lang="en"  (attribute node)

Atomic values/原子值

Atomic values are nodes with no children or parent.
原子值是那些没有子或父的节（无上下关系）。

Example of atomic values:
举例中的原子值：

J K. Rowling
"en"

Items/项目

Items are atomic values or nodes.
项目是原子值或节。

Relationship of Nodes(节之间的关系)

Parent/父

Each element and attribute has one parent.
每个元素和属性有一父亲。

In the following example; the book element is the parent of the title, author, year, and price:
下面的举例中：book元素是title，author，year和price的父亲

<book>
<title>Harry Potter</title>
<author>J K. Rowling</author>
<year>2005</year>
<price>29.99</price>
</book>

Children/子

Element nodes may have zero, one or more children.
元素节可能有0个或多个子

In the following example; the title, author, year, and price elements are all children of the book element:
下面的举例中：title,author,year和price元素都是book元素的子元素

<book>
<title>Harry Potter</title>
<author>J K. Rowling</author>
<year>2005</year>
<price>29.99</price>
</book>

Siblings/兄

Nodes that have the same parent.
指那些有相同父的

In the following example; the title, author, year, and price elements are all siblings:
下面的举例中title, author, year, 和 price元素都为兄弟

<book>
<title>Harry Potter</title>
<author>J K. Rowling</author>
<year>2005</year>
<price>29.99</price>
</book>

Ancestors/祖

A node's parent, parent's parent, etc.
节的父，父的父....都为祖

In the following example; the ancestors of the title element are the book element and the bookstore element:
下面的举例中：book元素和bookstore元素都为title元素的祖元素

<bookstore>
<book>
<title>Harry Potter</title>
<author>J K. Rowling</author>
<year>2005</year>
<price>29.99</price>
</book>
</bookstore>

Descendants/孙

A node's children, children's children, etc.
节的子，子的子...都为孙

In the following example; descendants of the bookstore element are the book, title, author, year, and price elements:
下面的举例中：bookstore元素的孙有book,title,author,year以及price元素

<bookstore>
<book>
<title>Harry Potter</title>
<author>J K. Rowling</author>
<year>2005</year>
<price>29.99</price>
</book>
</bookstore>
]]> http://bokee.shinylife.net/blog/article.asp?id=485 <![CDATA[xpath教程(三)--XPath语法]]> paulleder@msn.com(PaulLeder) Fri,19 Jan 2007 20:41:11 +0800 http://bokee.shinylife.net/blog/default.asp?id=485 XPath uses path expressions to select nodes or node-sets in an XML document. The node is selected by following a path or steps.
XPath使用路径表达式来选择XML文档的节或是节集。顺着路径或步骤来选择节。

The XML Example Document(XML实例文档)

We will use the following XML document in the examples below.
举例中我们将使用下面的XML文档

<?xml version="1.0" encoding="ISO-8859-1"?>
<bookstore>
<book>
<title lang="eng">Harry Potter</title>
<price>29.99</price>
</book>
<book>
<title lang="eng">Learning XML</title>
<price>39.95</price>
</book>
</bookstore>

 

 

Selecting Nodes(选择节)

XPath uses path expressions to select nodes in an XML document. The node is selected by following a path or steps. The most useful path expressions are listed below:
一些非常有用的路径表达式：

表达式 描述
nodename Selects all child nodes of the node[选择所有目前节的子节]
/ Selects from the root node[从根节进行选择]
// Selects nodes in the document from the current node that match the selection no matter where they are [选择文档中相吻合的节而不管其在文档的何处]
. Selects the current node[选择当前节]
.. Selects the parent of the current node[当前节的父节]
@ Selects attributes[选择属性]

Examples(实例)

In the table below we have listed some path expressions and the result of the expressions:
下面我们所列举的表格有路径表达式以及其结果：

路径表达式 结果
bookstore Selects all the child nodes of the bookstore element[选择所有bookstore元素的子节]
/bookstore Selects the root element bookstore

Note: If the path starts with a slash ( / ) it always represents an absolute path to an element!

[选择了bookstore的根元素。注意：如果路径的开始为(/)那此路径一定是到该元素的绝对路径]
bookstore/book Selects all book elements that are children of bookstore[选择了所有在bookstore的子元素book元素所包含的所有元素（其实就为bookstore里book元素所包含的元素）]
//book Selects all book elements no matter where they are in the document[选择所有为book元素的内容而不管book元素处于何处(有不同的父也没关系)]
bookstore//book Selects all book elements that are descendant of the bookstore element, no matter where they are under the bookstore element[在bookstore元素内所有含有book元素的元素内容（只要book元素的祖元素为bookstore元素那都符合条件）]
//@lang Selects all attributes that are named lang[选择所有属性名为lang的属性]

 

Predicates(谓语)

Predicates are used to find a specific node or a node that contains a specific value.
谓语用来指定明确的节所含有的特殊的值

Predicates are always embedded in square brackets.
谓语被嵌入在中括号

Examples(举例)

In the table below we have listed some path expressions with predicates and the result of the expressions:
下面的表格列举了一些使用了谓语的路径表达式以及其产生的结果：

路径表达式 结果
/bookstore/book[1] Selects the first book element that is the child of the bookstore element[选择了bookstore里的第一个book元素]
/bookstore/book[last()] Selects the last book element that is the child of the bookstore element[选择bookstore里最后一个book元素]
/bookstore/book[last()-1] Selects the last but one book element that is the child of the bookstore element[bookstore中倒数第二个book元素]
/bookstore/book[position()<3] Selects the first two book elements that are children of the bookstore element[在bookstore中前两个book元素]
//title[@lang] Selects all the title elements that have an attribute named lang[选择所有含有lang属性的title元素]
//title[@lang='eng'] Selects all the title elements that have an attribute named lang with a value of 'eng'[选择所有含有lang属性并且值为eng的title元素]
/bookstore/book[price>35.00] Selects all the book elements of the bookstore element that have a price element with a value greater than 35.00[选择所有bookstore中book元素里price元素内容大于35.00的book元素]
/bookstore/book[price>35.00]/title Selects all the title elements of the book elements of the bookstore element that have a price element with a value greater than 35.00[选择bookstore中book的子元素title，并且其兄弟元素price的内容得大于35.00]

Selecting Unknown Nodes(选择未知的节)

XPath wildcards can be used to select unknown XML elements.
XPath的通配符可以用来选择未知的XML元素

通配符 描述
* Matches any element node[相吻合的所有元素节]
@* Matches any attribute node[相吻合的所有属性节]
node() Matches any node of any kind[吻合任何类型的节]

Examples实例

In the table below we have listed some path expressions and the result of the expressions:
下面的表格我们将列举一些路径表达式以及它们的结果

路径表达式 结果
/bookstore/* Selects all the child nodes of the bookstore element[选择所有bookstore的子节]
//* Selects all elements in the document[选择所有文档中的元素]
//title[@*] Selects all title elements which have any attribute[选择元素为title并且其含有属性]

 

Selecting Several Paths(选择数个路径)

By using the | operator in an XPath expression you can select several paths.
通过在XPath中使用 | 你可以选择数个路径

Examples(实例)

In the table below we have listed some path expressions and the result of the expressions:
下面的表格我们会列举一些路径表达式以及其结果：

路径表达 结果
//book/title | //book/price Selects all the title AND price elements of all book elements[选择所有book里title和price元素]
//title | //price Selects all the title AND price elements in the document[选择所有title和price元素]
/bookstore/book/title | //price Selects all the title elements of the book element of the bookstore element AND all the price elements in the document[选择所有book里的title元素和所有price元素]


]]>