引用內(nèi)容
Microsoft VBScript 編譯器錯(cuò)誤 錯(cuò)誤 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a000d'

類型不匹配

/sfbbs/inc/Dv_ClsMain.asp，行710

碰到這樣的錯(cuò)誤提示我們應(yīng)該高興，因?yàn)樗�明確的指出了錯(cuò)誤的地方，一般情況下只要檢查下所在行的代碼即可，但這次錯(cuò)誤比較特別，710行處在一個(gè)函數(shù)體中，函數(shù)肯定是沒(méi)有問(wèn)題的，那么問(wèn)題應(yīng)該出在調(diào)用函數(shù)的地方，可是頁(yè)面中有好幾處調(diào)用了這個(gè)函數(shù)(難點(diǎn)一：確定出錯(cuò)位置)；還有，這個(gè)函數(shù)主要的是一個(gè)循環(huán)體，我們還得判斷出是在哪次循環(huán)時(shí)出的錯(cuò)(難點(diǎn)二)。OK，我們先來(lái)看下這個(gè)函數(shù)：

 程序代碼
Public Function RecordsetToxml(Recordset,row,xmlroot)
    Dim i,node,rs,j,DataArray
    If xmlroot="" Then xmlroot="xml"
    If row="" Then row="row"
    Set RecordsetToxml=Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
    RecordsetToxml.appendChild(RecordsetToxml.createElement(xmlroot))
    If Not Recordset.EOF Then
        DataArray=Recordset.GetRows(-1)
        For i=0 To UBound(DataArray,2)
            Set Node=RecordsetToxml.createNode(1,row,"")
            j=0
            For Each rs in Recordset.Fields
                     node.attributes.setNamedItem(RecordsetToxml.createNode(2,LCase(rs.name),"")).text= DataArray(j,i)& "" '710行
                     j=j+1
            Next
            RecordsetToxml.documentElement.appendChild(Node)
        Next
    End If
    DataArray=Null
End Function

這個(gè)函數(shù)的功能還是比較簡(jiǎn)單的，主要就是建立一個(gè)FreeThreadedDOMDocument對(duì)象，其根節(jié)點(diǎn)是xmlroot，下邊只有一個(gè)子節(jié)點(diǎn)row，然后將Recordset對(duì)象中的各字段及其值以屬性的方式保存在row節(jié)點(diǎn)中。

好了，現(xiàn)在我們先來(lái)解決第一個(gè)難點(diǎn)：找出錯(cuò)誤位置！修改RecordsetToxml函數(shù)如下：

 程序代碼
Public Function RecordsetToxml(Recordset,row,xmlroot)
    Dim i,node,rs,j,DataArray
    If xmlroot="" Then xmlroot="xml"
    If row="" Then row="row"
    Set RecordsetToxml=Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
    RecordsetToxml.appendChild(RecordsetToxml.createElement(xmlroot))
    If Not Recordset.EOF Then
        DataArray=Recordset.GetRows(-1)
        For i=0 To UBound(DataArray,2)
            Set Node=RecordsetToxml.createNode(1,row,"")
            j=0
            For Each rs in Recordset.Fields
                     Response.Write(row & "  " & xmlroot & " " & rs.name & "<br/>")
                     node.attributes.setNamedItem(RecordsetToxml.createNode(2,LCase(rs.name),"")).text= DataArray(j,i)& "" '710
                     j=j+1
            Next
            RecordsetToxml.documentElement.appendChild(Node)
        Next
    End If
    DataArray=Null
End Function

注意Response.write語(yǔ)句放置的位置也很重要！瀏覽，返回結(jié)果為：
引用內(nèi)容
style xml ID
style xml StyleName
style xml Main_Style
style xml Style_Pic
style xml page_index
style xml page_dispbbs
style xml page_showerr
style xml page_login
style xml page_online
style xml page_usermanager
style xml page_fmanage
style xml page_boardstat
style xml page_paper_even_toplist
style xml page_query
style xml page_show
style xml page_dispuser
style xml page_help_permission
style xml page_postjob
style xml page_post
style xml page_boardhelp
style xml upsize_ts

Microsoft VBScript 編譯器錯(cuò)誤 錯(cuò)誤 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a000d'

類型不匹配

/sfbbs/inc/Dv_ClsMain.asp，行711

可以初步判斷是類似RecordsetToxml(Recordset,"style","xml")的位置出錯(cuò)，OK，我們搜索"style","xml"，沒(méi)有結(jié)果：（，再搜索"style"，搜索結(jié)果中只有一處參數(shù)中有帶"style"的，就是它了，發(fā)現(xiàn)也是位于一個(gè)函數(shù)中：

 程序代碼
Public Sub Loadstyle()
    Dim Rs
    Set Rs=Dvbbs.Execute("Select *  From Dv_style")
    Set Application(CacheName &"_style")=RecordsetToxml(rs,"style","") '就是這句了
    Set Rs=Nothing
    LoadStyleMenu()
End Sub

這個(gè)函數(shù)的作用也挺簡(jiǎn)單的，就是從Dv_style表中將論壇樣式讀取出來(lái)以XML格式保存到Application對(duì)象中，OK，結(jié)合上邊錯(cuò)誤信息，我們可以猜到是在讀取upsize_ts字段時(shí)出錯(cuò)了！才想起來(lái)這個(gè)字段動(dòng)網(wǎng)本身是沒(méi)有的，是在Access2000轉(zhuǎn)Access2003時(shí)新增的，將其刪除，問(wèn)題解決！

===業(yè)務(wù)辦理及咨詢=== 客服熱線：010-57281389 13020085953 在線客服： 歡迎咨詢 客服郵箱：cnet99@cnet99.com