中文XML论坛--紧急求助，关于数据岛的使用问题

贴子主题：紧急求助，关于数据岛的使用问题

本主题类别:

先看这个，这个是正常的XML数据岛模式的引用方式
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<XML id="XMLRESULT">
<?xml version="1.0" encoding="GB2312"?>
<Mydata>
<结果>
  <客户号>10042</客户号>
  <账号>13849956</账号>
  <户名>福建省福州市鼓楼区XX公司</户名>
        <名称>dddd</名称>
</结果>
</Mydata>
</XML>

那么接下来请问这种做法怎么就不行了,这段代码到底错在哪里?我觉得其中”mySpan.Datafld = myRec.Fields(i).value”这句似乎有些问题,可是又不知道具体该怎么写,就是不知道这种动态的决定TABLE的DATASRC,和动态的决定SPAN的DATAFLD有什么问题.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="vbscript">
    Private sub mytest()
       set myaa = document.all("TABLEID")
    set myTable = document.createElement("TABLE")
    with myTable
        .border = "0"
       .cellpadding = "0"
       .cellspacing = "0"
       .id = "tblresult"
       .datasrc = "#XMLRESULT"
       .DATAPAGESIZE = "21"
    end with
    myaa.appendChild(myTable)

    set myTHead = document.CreateElement("tHead")
    myTHead.id = "myTH"
    tblresult.appendChild(myTHead)

    set myXML = document.all("XMLRESULT")
    Set myRec = myXML.RecordSet
       myRec.MoveFirst
    myColCu = (myRec.Fields.Count-1)*2-1

    set myTr = document.CreateElement("Tr")
       myTr.Id = "MYThTr1"
    myTH.appendChild(myTr)

    set myTd = document.CreateElement("Td")
    with myTd
        .Id = "MyThTr1Td"
        .bgColor = "#000000"
     .height = "2"
     .colspan = myColCu
    end with
    MYThTr1.appendChild(MyTd)

    set myTr = document.CreateElement("Tr")
    with myTr
        .bgColor = "#ffffff"
        .Id = "MYThTr2"
        .height = "18"
    end with
    myTH.appendChild(myTr)

    for i=0 to myRec.Fields.Count-2
       set myTd = document.CreateElement("Td")
          with myTd
           .Id = "MyThTr2Td"&cStr(i+1)
       end with
    set myText = document.CreateTextNode(myRec.Fields(i).name)
    myTd.appendChild(myText)
       MYThTr2.appendChild(MyTd)
    if i <> myRec.Fields.Count-2 then
        set myTd = document.CreateElement("Td")
        with myTd
              .Id = "MyThTr2Td"&cStr(i+1+myRec.Fields.Count-1)
              .bgColor = "#000000"
     .width = "1"
              end with
     MYThTr2.appendChild(MyTd)
    end if
    next

    set myTr = document.CreateElement("Tr")
       myTr.Id = "MYThTr3"
    myTH.appendChild(myTr)

    set myTd = document.CreateElement("Td")
    with myTd
        .Id = "MyThTr3Td"
        .bgColor = "#000000"
     .height = "1"
     .colspan = myColCu
    end with
    MYThTr3.appendChild(MyTd)

      set myTBody = document.CreateElement("tBody")
    myTBody.id = "myTB"
    tblresult.appendChild(myTBody)

       set myTr = document.CreateElement("Tr")
    with myTr
        .Id = "MYTbTr1"
        .height = "18"
    end with
    myTH.appendChild(myTr)

    for i=0 to myRec.Fields.Count-2
       set myTd = document.CreateElement("Td")
          with myTd
           .Id = "MyTbTr1Td"&cStr(i+1)
       end with

    set mySpan = document.CreateElement("SPAN")
    mySpan.Datafld = myRec.Fields(i).value
    myTd.appendChild(mySpan)

       MYTbTr1.appendChild(MyTd)
    if i <> myRec.Fields.Count-2 then
        set myTd = document.CreateElement("Td")
        with myTd
              .Id = "MyTbTr1Td"&cStr(i+1+myRec.Fields.Count-1)
              .bgColor = "#000000"
     .width = "1"
              end with
     MYTbTr1.appendChild(MyTd)
    end if
    next

    set myTFoot = document.CreateElement("tFoot")
    myTFoot.id = "myTF"
    tblresult.appendChild(myTFoot)

       set myTr = document.CreateElement("Tr")
    with myTr
        .Id = "MYTfTr1"
    end with
    myTF.appendChild(myTr)

    set myTd = document.CreateElement("Td")
    with myTd
        .Id = "MyTfTr1Td"
        .bgColor = "#000000"
     .height = "2"
     .colspan = myColCu
    end with
    MYTfTr1.appendChild(MyTd)

    tblresult.refresh()

end sub
</script>
</head>


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	125.000ms