<%
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