Dim objXMLHTTP, xml, place
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "网址",False
xml.Send
response = xml.responseText '获取页面的返回值
时间: 2024-08-31 15:10:58
Dim objXMLHTTP, xml, place
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "网址",False
xml.Send
response = xml.responseText '获取页面的返回值