以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础 』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  QR或者其它大师帮忙看看。这引擎哪里错了。  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=75989)

--  作者：fatestilb
--  发布时间：7/12/2009 10:56:00 AM

--  QR或者其它大师帮忙看看。这引擎哪里错了。
提单表单参数是txtsearch
ＡＳＰ代码为

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"% >
<HTML><HEAD><TITLE></TITLE></HEAD><body>

<%
DIM strsearch,objxml,strdescription.rootnode,pagenode,propertynode,match,matchl
strsearch = request.form("txtsearch")
set objxml = server.createobject("Microsoft.xmldom")
obxml.load(server.mappath("database.xml"))
set rootnode=objxml.document.Element

if rootnode.hasChildNodes()  then
for each pagenode in rootnode.childnodes
for each propertynode in pageNode.childnodes
if propertynode.NodeName="keywords"  then
if Instr(propertynode.text,strsearch) then
machl=propertynode.text
end if
end if
if propertynode.nodename="description"  then
strdescription = propertynode.text
endif
if propertynode.nodename="url" then
if (matchl<>"") and (strdescription()"") then
match=false

response.Write("&matchl&"&nbsp Description:"&strdescription&"-
<a href ="&propertynode.text&")"& strDescription &"</a>")

enf if
matchl=""
strdescription=""
end if
next
next
end if
if match then
response.write("<br>sorry.there are no matches.")
end if
set objxml=nothing

%>

</body></HTML>

就是测试不对。不知道到底是哪错了。非常纠结

--  作者：Qr
--  发布时间：7/12/2009 10:23:00 PM

--  
没有ASP环境，也很久不用ASP（VBS）了。
obxml.load(server.mappath("database.xml"))
objxml
其它慢慢跟踪调试吧。
W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 5,812.500ms