em23.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>XMLHTTP POSTER</TITLE>
<script language="VBScript">
Sub submit_onclick()
Set dom = Orderdso.XMLDocument
Set poster = CreateObject("Microsoft.XMLHTTP")
poster.Open "POST","em23.asp",False
poster.send dom
MsgBox poster.responseText,,"回复信息"
End Sub
</script>
</HEAD>
<BODY>
<xml id="Orderdso">
<?xml version="1.0"?>
<会员订单>5</会员订单>
<订单>
<订购项目 书名="xml与asp协作" 书号="1001">
<定价>580</定价>
<数量>5</数量>
</订购项目>
</订单>
<订单>
<订购项目 书名="xml学习笔记" 书号="1002">
<定价>520</定价>
<数量>3</数量>
</订购项目>
</订单>
</xml>
<input type="button" value="送出订单" name="submit">
</BODY>
</HTML>
em23.asp
<%
Set ReceivedDom = server.CreateObject("Microsoft.XMLDOM")
ReceivedDom.async = False
ReceivedDom.load request
Set memberNode = ReceivedDom.selectSingleNode("//会员编号")
MemberId = MemberNode.firstChild.nodeValue
Set conn = server.CreateObject("adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;data source=" &server.mappath("em.mdb")
Set rs = conn.execute("select * from book where book_num='"&MemberId&"'")
If Not rs.bof Or Not rs.eof Then
Response.write "Not Find MemberId = " & MemberId
Else
Response.write "Find MemberId = " & MemberId
Set display_list = ReceivedDom.selectNodes("//订购项目")
For Each node In display_list
bookname = node.getAttribute("书名")
bookno = node.getAttribute("书号")
price = node.selectsingleNode("定价").firstChild.nodeValue
qty = node.selectsingleNode("数量").firstChild.nodeValue
Response.write "bookname=" & bookname & "<br />"
Response.write "bookno=" & bookno & "<br />"
Response.write "price=" & price & "<br />"
Response.write "qty=" & qty & "<br />"
Next
End If
rs.close
Set rs = Nothing
%>
运行出来在脚本错误中就显示
系统错误:-1072896683
这是怎么回事儿啊!
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → 系统错误:-1072896683
(订阅本版)
2007/11/21 14:29:00
新浪微博
系统错误:-1072896683
