XML Read Function pada ASP

Source Code ASP untuk XMLRead Function di bawah ini :

XMLRead Function
example usage:
<%
Dim i, a, strXMLPath, strXMLExpression
strXMLPath      = Server.MapPath(“/aspemporium/examples/xmlcatalog/database.xml”)
strXMLExpression    = “/CATALOG/MOVIE[RUNNINGTIME $gt$ 100]/RATING | ” & _
“/CATALOG/MOVIE[RUNNINGTIME $gt$ 100]/TITLE”
a           = XMLRead( strXMLPath, strXMLExpression )
For i = 0 To UBound(a) – 1
Response.Write a(i) & “
”
Next
%>
source code:
<%
Private Function XMLRead(ByVal xmlfilepath, ByVal expression)
Dim temp, item, tmp, objXML, tmpArray
On Error Resume Next
Set objXML = Server.CreateObject(“Microsoft.XMLDOM”)
objXML.Load( xmlfilepath )
If Err Then
On Error GoTo 0
Err.Raise 5140, “XMLRead Function”, _
“Specified XML File Not Found.”
Err.Clear
XMLRead = Null
Set objXML = Nothing

Lebih Lengkap na Dibawah ini :
Visit : http://www.text-upload.com/read,t11186