<%
'生成静态页面
nowpath = "http://" & Request.ServerVariables("server_name") & Request.ServerVariables("Path_Info")
nowpath = left(nowpath,InstrRev(nowpath,"/"))
SaveFile nowpath & "index.asp","index.html"
'生成html函数
function SaveFile(RemoteFileUrl,LocalFileName)
mpage=3
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
End function
%>