網(wǎng)站地圖|客服中心|設(shè)為首頁(yè)|加入收藏

您的位置 → 首頁(yè)建站百科

相關(guān)文章

一次有趣的ASP程序調(diào)試過(guò)程

作者:客服中心 文章來(lái)源:天潤(rùn)智力 點(diǎn)擊數(shù):136580 更新時(shí)間:2010-7-20

 引用內(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ù)肯定是沒有問(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",沒有結(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)本身是沒有的,是在Access2000轉(zhuǎn)Access2003時(shí)新增的,將其刪除,問(wèn)題解決!

===業(yè)務(wù)辦理及咨詢=== 客服熱線:010-57281389 13020085953 在線客服:北京網(wǎng)站建設(shè)中心歡迎您購(gòu)買網(wǎng)站|即買即開即用 功能強(qiáng)大 服務(wù)完備 歡迎咨詢北京網(wǎng)站建設(shè)中心歡迎您進(jìn)行網(wǎng)站建設(shè)業(yè)務(wù)咨詢|客服熱線:010-57281389 13020085953 QQ:523313456 MSN:digiark@hotmail.com北京網(wǎng)站建設(shè)中心歡迎您進(jìn)行網(wǎng)站建設(shè)業(yè)務(wù)咨詢|客服熱線:010-57281389 13020085953 QQ:523313456 MSN:digiark@hotmail.com 客服郵箱:cnet99@cnet99.com

新品上架網(wǎng)站功能說(shuō)明典型客戶案例服務(wù)優(yōu)勢(shì)常見問(wèn)題視頻展示成功故事用戶使用手冊(cè)標(biāo)準(zhǔn)網(wǎng)站服務(wù)

本站搜索關(guān)鍵詞:ASP程序 | 北京網(wǎng)站建設(shè)公司 | 北京網(wǎng)站制作公司 | 北京網(wǎng)站設(shè)計(jì)公司 | 北京網(wǎng)站維護(hù)公司 | 北京網(wǎng)站優(yōu)化公司 | 北京企業(yè)建站公司 | 北京做網(wǎng)站公司

銷售熱線

7x24小時(shí)全國(guó)售前咨詢熱線:010-57281389

7x24小時(shí)全國(guó)售后服務(wù)熱線:13020085953 15313016798

手機(jī) | 微信同號(hào):18600846206   QQ:523313456

立即咨詢 網(wǎng)站建設(shè)業(yè)務(wù)咨詢|客服熱線:010-57281389 13020085953

點(diǎn)這里給我發(fā)消息 電子郵箱:cnet99@cnet99.com

營(yíng)業(yè)地址(東部):北京市朝陽(yáng)區(qū)伊莎文心廣場(chǎng)A座3層B-22

位置分享

營(yíng)業(yè)地址(西部):北京市豐臺(tái)區(qū)汽車博物館東路1號(hào)諾德中心9-605

網(wǎng)站建設(shè)與服務(wù)超級(jí)群:北京網(wǎng)站建設(shè)中心:167837061 北京域名注冊(cè)中心:65194647

北京網(wǎng)站主機(jī)中心:56350700 北京企業(yè)云郵箱中心:65197392 北京網(wǎng)站維護(hù)中心:65198105

天潤(rùn)智力-專注于互聯(lián)網(wǎng)平臺(tái)建設(shè)與服務(wù)領(lǐng)域 中國(guó)互聯(lián)網(wǎng)平臺(tái)建設(shè)服務(wù)提供商

萬(wàn)網(wǎng)阿里云金牌首席合作伙伴站點(diǎn) 全線代理萬(wàn)網(wǎng)阿里云產(chǎn)品及服務(wù)

中國(guó)萬(wàn)網(wǎng)正式通過(guò)ISO9001國(guó)際標(biāo)準(zhǔn)質(zhì)量體系認(rèn)證

Copyright©1999-2024 北京天潤(rùn)智力智能科技有限公司 網(wǎng)站許可證/ICP備案:京ICP備2020040216號(hào)-3

標(biāo)準(zhǔn)網(wǎng)站,網(wǎng)站建設(shè),域名注冊(cè),虛擬主機(jī),獨(dú)享主機(jī),企業(yè)云郵箱,網(wǎng)站維護(hù)一條龍,北京網(wǎng)站建設(shè)中心