asp xmlhttp 读取文件

Response.Write LoadTxtFile("URL")
 
	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