fisker's blog

<%
authorName = getXmlInfo("sample.xml","//sample/author/name")
authorEmail = getXmlInfo("sample.xml","//sample/author/email")
authorHomepage = getXmlInfo("sample.xml","//sample/author/homepage")
response.write "author: "&authorName
response.write "Email:<a href=""mailto:"&authorEmail&""">"&authorEmail&"</a>"
response.write "Homepage:  <a href="""&authorHomepage&""">"&authorHomepage&"</a>"

' *************************************
' 读取XML结点信息
' by fisker( http://www.x2y2.com/fisker )
' 12:30 2007-1-11
' *************************************
Function getXmlInfo(tempXmlFilePath,tempNode)
on error resume next
dim objXMLDOM,styleInfoItem
Set objXMLDOM = Server.CreateObject(getXMLDOM)
If Err Then  
Err.clear
getXmlInfo=""
exit Function
end if
dim tempOutputString
objXMLDOM.async = false  
objXMLDOM.load(Server.MapPath(tempXmlFilePath))
if objXMLDOM.parseerror.errorcode=0 then
For Each styleInfoItem in objXMLDOM.selectNodes(tempNode)
tempOutputString=styleInfoItem.text
next
end if
set objXMLDOM=nothing
getXmlInfo=tempOutputString
end Function
' *************************************
' 判断服务器Microsoft.XMLDOM
' *************************************
Function getXMLDOM
On Error Resume Next
Dim Temp
getXMLDOM="Microsoft.XMLDOM"
Err = 0
Dim TmpObj
Set TmpObj = Server.CreateObject(getXMLDOM)
Temp = Err
    IF Temp = 1 OR Temp = -2147221005 Then
getXMLDOM="Msxml2.DOMDocument.5.0"
End IF
Err.Clear
Set TmpObj = Nothing
Err = 0
end function
' *************************************
' 判断服务器MSXML2.ServerXMLHTTP
' *************************************
Function getXMLHTTP
On Error Resume Next
Dim Temp
getXMLHTTP="MSXML2.ServerXMLHTTP"
Err = 0
Dim TmpObj
Set TmpObj = Server.CreateObject(getXMLHTTP)
Temp = Err
    IF Temp = 1 OR Temp = -2147221005 Then
getXMLHTTP="Msxml2.ServerXMLHTTP.5.0"
End IF
Err.Clear
Set TmpObj = Nothing
Err = 0
end function
%>

styleInfoItem=objNode.selectSingleNode(tempNode)
If Not (styleInfoItem is Nothing) then 
tempOutputString=styleInfoItem.text
End If