savetodisk.asp

自动获取HTML代码 自动获取HTML代码 自动获取HTML代码 自动获取HTML代码 自动获取HTML代码

<%@ Language=VBScript %>
<%Response.ContentType="application/download"%>
<%Response.AddHeader "Content-Disposition", "attachment; filename=source.txt"%>
<%myurl=Request.QueryString("url")%>
<%
	if myurl="" then
		Response.Redirect "gethtmlsource.asp"
	end if

Function GetHTML(strURL)
  Dim objXMLHTTP, strReturn
  Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

  objXMLHTTP.Open "GET", strURL, False
  objXMLHTTP.Send

  strReturn = objXMLHTTP.responseText
  Set objXMLHTTP = Nothing

  GetHTML = strReturn
End Function

Response.Write GetHTML(myurl)
%>