<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
这里新建了另外一个HTML页面。为了使用刚才得到的XML数据,在HTML页面中,采用XML数据岛:
<XMLid="dbXML"src="getData.asp"onreadystatechange="init()"></XML>
然后,可以利用HTML表格的绑定功能展现数据:
<table datasrc="#dbXML"style="width:100%;BORDER-COLLAPSE:collapse;"border=1cellpadding=0cellspacing=0>
<tr>
<td><div type=text datafld=Stat_Date></div></td>
<td><div type=text datafld=Call_Num></div></td>
<td><divtype=textdatafld=Call_Fee></div></td>
</tr>
</table>
在刚才的XML数据岛的onreadystatechange事件对应的init()函数中,我们通过如下代码实现 OWC的图表:
<OBJECTid=CS1style="WIDTH:400px;TOP:0px;HEIGHT:280px"
classid=clsid:0002E556-0000-0000-C000-000000000046VIEWASTEXT>
</OBJECT>
<scriptlanaguage=vbscript>
Subinit()
if(dbXML.readyState="complete")then
dimstrXML
setstrXML=dbXML.XMLDocument
createChartstrXML,CS1
endif
EndSub
SubcreateChart(byrefoxml,cspace)'根据传入的XML生成图表
Dimxdoc,xroot,cCnt
Dimndx,cnode,txtData,txtCat,txtData2
Setxdoc=dbXML.XMLDocument
Setxroot=xdoc.documentElement
cCnt=xroot.childNodes.length
txtData="":txtCat=""
'从XML数据中得到相应的子符串
Forndx=0TocCnt-1
Setcnode=xroot.childNodes(ndx)
txtCat=txtCat&cnode.childNodes(0).text
txtData=txtData&cnode.childNodes(1).text
txtData2=txtData2&cnode.childNOdes(2).text
ifndx<>(cCnt-1)then
txtCat=txtCat&","
txtData=txtData&","
txtData2=txtData2&","
endif
Next
1 <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
二、使用
OWC控件和表格展现XML数据2.1基本功能的实现
这里新建了另外一个HTML页面。为了使用刚才得到的XML数据,在HTML页面中,采用XML数据岛:
<XMLid="dbXML"src="getData.asp"onreadystatechange="init()"></XML>
然后,可以利用HTML表格的绑定功能展现数据:
<table datasrc="#dbXML"style="width:100%;BORDER-COLLAPSE:collapse;"border=1cellpadding=0cellspacing=0>
<tr>
<td><div type=text datafld=Stat_Date></div></td>
<td><div type=text datafld=Call_Num></div></td>
<td><divtype=textdatafld=Call_Fee></div></td>
</tr>
</table>
在刚才的XML数据岛的onreadystatechange事件对应的init()函数中,我们通过如下代码实现 OWC的图表:
<OBJECTid=CS1style="WIDTH:400px;TOP:0px;HEIGHT:280px"
classid=clsid:0002E556-0000-0000-C000-000000000046VIEWASTEXT>
</OBJECT>
<scriptlanaguage=vbscript>
Subinit()
if(dbXML.readyState="complete")then
dimstrXML
setstrXML=dbXML.XMLDocument
createChartstrXML,CS1
endif
EndSub
SubcreateChart(byrefoxml,cspace)'根据传入的XML生成图表
Dimxdoc,xroot,cCnt
Dimndx,cnode,txtData,txtCat,txtData2
Setxdoc=dbXML.XMLDocument
Setxroot=xdoc.documentElement
cCnt=xroot.childNodes.length
txtData="":txtCat=""
'从XML数据中得到相应的子符串
Forndx=0TocCnt-1
Setcnode=xroot.childNodes(ndx)
txtCat=txtCat&cnode.childNodes(0).text
txtData=txtData&cnode.childNodes(1).text
txtData2=txtData2&cnode.childNOdes(2).text
ifndx<>(cCnt-1)then
txtCat=txtCat&","
txtData=txtData&","
txtData2=txtData2&","
endif
Next
1 <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>