ASP常用函数收藏乱七八糟未整理版(76)

        If Err.Number<>0 Then
            Err.Clear
            Set CreateHTTPPoster = Server.CreateObject("MSXML2." & s)
            If Err.Number<>0 Then
                Set CreateHTTPPoster = Nothing
            Else
                Exit Function
            End If
        Else
            Exit Function
        End If
    Else
        Exit Function
    End If
    On Error GoTo 0
End Function

'===================================================================================
' 函数原型：XMLThrowError (errCode,errReason)
'功能：抛出一个XML错误消息
'参数：errCode错误编码
'errReason错误原因
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Sub XMLThrowError (errCode, errReason)
    Response.Clear
    Response.ContentType = "text/xml"
    Response.Write"<?xml version=""1.0"" encoding=""gb2312"" standalone=""yes"" ?>" & vbCrLf & _
        "<ERROR CODE=""" & errCode & """ REASON=""" & errReason & """ />" & vbCrLf
    Response.Flush
    Response.End
End Sub

'===================================================================================
' 函数原型：GetXMLNodeValue(ByRef xmlDom,sFilter,sDefValue)
'功能：从一个XML文档中查找指定节点的值
'参数：xmlDomXML文档
'sFilterXPATH定位字符串
'sDefValue默认值
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Function GetXMLNodeValue(ByRef xmlDom, sFilter, sDefValue)
    Dim oNode
    Set oNode = xmlDom.selectSingleNode(sFilter)