asp xmlhttp 读取文件

最新推荐文章于 2023-02-15 17:20:28 发布

weixin_30425949

最新推荐文章于 2023-02-15 17:20:28 发布

阅读量83

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/YSO1983/p/3523651.html

本文介绍了一种使用MSXML2组件通过GET请求从URL加载并处理远程文本文件的技术，包括设置请求头、发送请求及处理响应。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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