从一个网站扒下的asp生成静态页面的代码 特供版

1. 
   
2. <%
   
3. webfolder="/"
   
4. host="index_cn.asp"'前台动态地址
   
5. folder="/"'文件夹
   
6. filename="index_cn.html"'生成静态文件名
   
7. Fso_info host,folder,filename
   
8. response.write"生成网站中文首页静态HTML完成.<br />"
   
9. '生成html
   
10. Function Fso_info(host,folder,filename)
    
11. host="http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host
    
12. if SaveFile(""&folder&filename&"",""&host&"") then
    
13. response.Write ""&folder&filename&" 生成成功. <br />"
    
14. else
    
15. Response.write ""&folder&filename&" 生成<font color='#FF0000'>失败</font>,可能您的文件名含有特殊字符.<br />"
    
16. end if
    
17. End Function
    
18. '生成文件
    
19. function SaveFile(LocalFileName,RemoteFileUrl)
    
20. Dim Ads, Retrieval, GetRemoteData
    
21. On Error Resume Next
    
22. Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//把单词拆开防止杀毒软件误杀
    
23. With Retrieval
    
24. .Open "Get", RemoteFileUrl, False, "", ""
    
25. .Send
    
26. GetRemoteData = .ResponseBody
    
27. End With
    
28. Set Retrieval = Nothing
    
29. Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//把单词拆开防止杀毒软件误杀
    
30. With Ads
    
31. .Type = 1
    
32. .Open
    
33. .Write GetRemoteData
    
34. .SaveToFile Server.MapPath(LocalFileName), 2
    
35. .Cancel()
    
36. .Close()
    
37. End With
    
38. Set Ads=nothing
    
39. if err <> 0 then
    
40. SaveFile = false
    
41. err.clear
    
42. else
    
43. SaveFile = true
    
44. end if
    
45. End function
    
46. %>

复制代码