Function LoadTxtFile(LoadFile)

Dim XMLHTTP, XMLDOC, ResponseStrm

'LoadFile = ServerName & LoadFile

Set XMLHTTP = CreateObject("MSXML2.DOMDocument")

XMLHTTP.async = false

XMLHTTP.setProperty("ServerHTTPRequest") = True

Set XMLDOC = CreateObject("MSXML2.ServerXMLHTTP")

XMLDOC.Open "GET", LoadFile, false, NULL, NULL

XMLDOC.setRequestHeader "Content-type", "text/html"

XMLDOC.Send

If XMLDOC.Status >= 400 And XMLDOC.Status <= 599 Then

LoadTxtFile ""

Else

Set responseStrm = CreateObject("ADODB.Stream")

ResponseStrm.Open

ResponseStrm.Position = 0

ResponseStrm.Type = 1

ResponseStrm.Write XMLDOC.responseBody

ResponseStrm.Position = 0

ResponseStrm.Type = 2

ResponseStrm.Charset = "utf-8"

if XMLHTTP.Load(XMLDOC.ResponseXML) then

LoadTxtFile = ""

else

LoadTxtFile = ResponseStrm.ReadText

end if

End IF

Set XMLDOC = Nothing

Set XMLHTTP = Nothing

End Function

下一篇：ASP常用日期格式化函数