網站地圖|客服中心|設為首頁|加入收藏

您的位置 → 首頁建站百科

相關文章

一次有趣的ASP程序調試過程

作者:客服中心 文章來源:天潤智力 點擊數:136580 更新時間:2010-7-20

 引用內容
Microsoft VBScript 編譯器錯誤 錯誤 '800a03f6'

缺少 'End'

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

Microsoft VBScript 運行時錯誤 錯誤 '800a000d'

類型不匹配

/sfbbs/inc/Dv_ClsMain.asp,行710

碰到這樣的錯誤提示我們應該高興,因為它明確的指出了錯誤的地方,一般情況下只要檢查下所在行的代碼即可,但這次錯誤比較特別,710行處在一個函數體中,函數肯定是沒有問題的,那么問題應該出在調用函數的地方,可是頁面中有好幾處調用了這個函數(難點一:確定出錯位置);還有,這個函數主要的是一個循環體,我們還得判斷出是在哪次循環時出的錯(難點二)。OK,我們先來看下這個函數:


 程序代碼
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

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

好了,現在我們先來解決第一個難點:找出錯誤位置!修改RecordsetToxml函數如下:


 程序代碼
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語句放置的位置也很重要!瀏覽,返回結果為:
引用內容
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 運行時錯誤 錯誤 '800a000d'

類型不匹配

/sfbbs/inc/Dv_ClsMain.asp,行711

可以初步判斷是類似RecordsetToxml(Recordset,"style","xml")的位置出錯,OK,我們搜索"style","xml",沒有結果:(,再搜索"style",搜索結果中只有一處參數中有帶"style"的,就是它了,發現也是位于一個函數中:


 程序代碼
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

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

===業務辦理及咨詢=== 客服熱線:010-57281389 13020085953 在線客服:北京網站建設中心歡迎您購買網站|即買即開即用 功能強大 服務完備 歡迎咨詢北京網站建設中心歡迎您進行網站建設業務咨詢|客服熱線:010-57281389 13020085953 QQ:523313456 MSN:digiark@hotmail.com北京網站建設中心歡迎您進行網站建設業務咨詢|客服熱線:010-57281389 13020085953 QQ:523313456 MSN:digiark@hotmail.com 客服郵箱:cnet99@cnet99.com

新品上架網站功能說明典型客戶案例服務優勢常見問題視頻展示成功故事用戶使用手冊標準網站服務

更多

本站搜索關鍵詞:ASP程序 | 北京網站建設公司 | 北京網站制作公司 | 北京網站設計公司 | 北京網站維護公司 | 北京網站優化公司 | 北京企業建站公司 | 北京做網站公司

銷售熱線

7x24小時全國售前咨詢熱線:010-57281389

7x24小時全國售后服務熱線:13020085953 15313016798

手機 | 微信同號:18600846206   QQ:523313456

立即咨詢 網站建設業務咨詢|客服熱線:010-57281389 13020085953

點這里給我發消息 電子郵箱:cnet99@cnet99.com

營業地址(東部):北京市朝陽區伊莎文心廣場A座3層B-22

位置分享

營業地址(西部):北京市豐臺區汽車博物館東路1號諾德中心9-605

網站建設與服務超級群:北京網站建設中心:167837061 北京域名注冊中心:65194647

北京網站主機中心:56350700 北京企業云郵箱中心:65197392 北京網站維護中心:65198105

天潤智力-專注于互聯網平臺建設與服務領域 中國互聯網平臺建設服務提供商

萬網阿里云金牌首席合作伙伴站點 全線代理萬網阿里云產品及服務

中國萬網正式通過ISO9001國際標準質量體系認證

Copyright©1999-2021 北京天潤智力智能科技有限公司 網站許可證/ICP備案:京ICP備2020040216號-3

標準網站,網站建設,域名注冊,虛擬主機,獨享主機,企業云郵箱,網站維護一條龍,北京網站建設中心

迅雷电影在线观看高清_老师帮我用丝袜打我飞机_污污污的情话句子
<蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>