xmlhttp 读取文件代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】 xmlhttp 读取文件

作者:刺猬拥抱 / 发布于2015/10/26/ 1532


	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

试试其它关键字

　xmlhttp　　读取文件　

同语言下

可能有用的

刺猬拥抱贡献的其它代码(14)