| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 165 人关注过本帖
标题:[求助] 运行时错误
只看楼主 加入收藏
andiyong
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-4-10
收藏
 问题点数:0 回复次数:0 
[求助] 运行时错误

<%
Dim path,http,xml,list,book,content
Dim txtID,txtName,txtZZ,txtZS,txtYD,txtPL,txtSJ,booklb
path = "g1.xml"

Set http=Server.CreateObject("MSXML2.ServerXMLHTTP")
http.Open "GET",path,False
http.Send

Set xml=Server.CreateObject("Msxml2.DOMDocument")
xml.Async=true
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)
Response.Write http.ResponseXML.Xml

Set list = xml.SelectSingleNode("//listdata")
% >

<table width="100%" border="0" cellspacing="1" cellpadding="3" >
<%
for i = 0 to list.SelectNodes("bookinfo").Length -1 第600行
Set book = list.ChildNodes.Item(i)
txtID = book.SelectSingleNode("aid").Text
txtName = book.SelectSingleNode("bookname").Text
txtZZ = book.SelectSingleNode("bookzz").Text
txtlb = book.SelectSingleNode("booklb").Text
txtZS = book.SelectSingleNode("zs").Text
txtYD = book.SelectSingleNode("yd").Text
txtPL = book.SelectSingleNode("pl").Text
txtSJ = book.SelectSingleNode("sj").Text
% >
<tr >
<td width="12%" class="list" >【 <a href="#" > <%=txtlb% > </a >】 </td >
<td width="41%" class="font_14px list" > <a href="http://www.dd.com/a/ <%=txtID% >" target="_blank" > <%=txtName% > </a > </td >
<td width="15%" class="font_brown list" > <a href="#" > <%=txtZZ% > </a > </td >
<td width="10%" class="list" > <%=txtZS% > </td >
<td width="10%" class="list" > <%=txtYD% > </td >
<td width="12%" class="font_time list" > <%=txtSJ% > </td >
</tr >
<%next% >
</table >

把错

Microsoft VBScript 运行时错误 错误 '800a01a8 '
缺少对象

/Test/list.asp,行 600

2007-10-25 15:31
快速回复:[求助] 运行时错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037069 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved