asp classic - Query xml from ASP without XSL -
मेरे पास कुछ बहुत सरल XML है:
& lt; गुण & gt; & LT; संपत्ति & gt; & LT; नाम & gt; BobFish & lt; / नाम & gt; & Lt; explaination & gt; बॉब एक मछली है। & Lt; / explaination & gt; & Lt; / संपत्ति & gt; & LT; संपत्ति & gt; & LT; नाम & gt; DaveFish & lt; / नाम & gt; & Lt; explaination & gt; डेव एक मछली है। & Lt; / explaination & gt; & Lt; / संपत्ति & gt;
मैं एएसपी से पूछना चाहता हूं। कुछ ऐसा है:
रिस्पांस। लिखें (GetExplaination ("BobFish")) यह अभी तक का फ़ंक्शन है:
<कोड> समारोह GetExplaination (strXMLFile, strName) 'स्थानीय चर मंद objXML मंद objNode सेट objXML = Server.CreateObject ( "Microsoft.XMLDOM") objXML.load (strXMLFile) सेट objNode = objXML.SelectSingleNode ( "गुण / संपत्ति [घोषित Name = '' & amp; strName & amp; "']") GetExplaination = "अभी तक कुछ भी नहीं" अंत समारोह
तो मेरे पास objNode है जिसमें मुझे आवश्यक डेटा है मैं इस से "स्पष्टीकरण" फ़ील्ड कैसे निकालूं?
फ़ंक्शन गेटएक्सप्लेनेशन (strxML फ़ाइल, str नाम ) Dim objXML Dim objNode Dim strxPath सेट करें objXML = CreateObject ("Microsoft.XMLDOM") objXML.load (strXMLFile) '// // एकल-या दोहरे उद्धरण चिह्नों के अनुसार तदनुसार दर्ज करें यदि InStr (str नाम, "'") & gt; 0 और InStr (strName, "" "") = 0 तब strName = "" "" & amp; StrName & amp; "" "" एल्सेफ इनसैट (स्ट्रननाम, "'") = 0 और इंसट्र (स्ट्रननाम, "" "") & gt; 0 फिर strName = "'" & amp; StrName & amp; "'अन्य' '// स्ट्रिंग में दोनों एकल और दोहरे उद्धरण असमर्थित हैं strName ="' "अंत अगर strxpath =" / properties / property [name = "& amp; StrName & amp; "] / Explaination" सेट objNode = objXML.SelectSingleNode (strXPath) नहीं objNode कुछ भी नहीं कर रही है तो GetExplaination = objNode.Text अंत अगर अंत समारोह ...
Response.Write GetExplaination ( "Fish.xml", "DaveFish") मैं दस्तावेज़ हर बार आप एक ही प्रॉपर्टी के लिए देखो लोड हो रहा है की सिफारिश नहीं होगा। लोड और दस्तावेज़ सामने पार्स और फ़ाइल पथ के बजाय कार्य करने के लिए दस्तावेज़ संदर्भ में गुजरती हैं।
Comments
Post a Comment