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

缺少 'End'

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

Microsoft VBScript 運(yùn)行時錯誤 錯誤 '800a000d'

類型不匹配

/sfbbs/inc/Dv_ClsMain.asp，行710

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

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

好了，現(xiàn)在我們先來解決第一個難點(diǎn)：找出錯誤位置！修改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語句放置的位置也很重要！瀏覽，返回結(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 編譯器錯誤 錯誤 '800a03f6'

缺少 'End'

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

Microsoft VBScript 運(yùn)行時錯誤 錯誤 '800a000d'

類型不匹配

/sfbbs/inc/Dv_ClsMain.asp，行711

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

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

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