网页静态化方法

其实是网页另存为的实现，代码如下：

<%
dim startime

sub InitVar()
startime=timer()
end sub

sub StaticPage(url, path)
dim RealUrl,RealPath


if Request.ServerVariables('SERVER_NAME')='localhost' then
RealUrl='http://localhost/web/'&url
else
RealUrl='http://www.xuyibo.org/'&url
end if

RealPath = Server.MapPath(path)

dim objXmlHttp
set objXmlHttp = Server.CreateObject('Microsoft.XMLHTTP')
objXmlHttp.open 'GET',RealUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody

Dim objAdoStream
set objAdoStream = Server.CreateObject('ADODB.Stream')
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile RealPath,2
objAdoStream.Close()
response.write('Static page: '&url&' to '&path&'
')
end sub

sub VisitPage(url)
dim RealUrl
RealUrl=website&url

dim objXmlHttp
set objXmlHttp = Server.CreateObject('Microsoft.XMLHTTP')
objXmlHttp.open 'GET',RealUrl,false
objXmlHttp.send()
response.write('Visit page: '&url&'
')
end sub
%>