將asp頁面轉換成htm頁面

woff

前段時間有個asp頁面執行起來很慢﹐訪問人數又頗多﹐而且又不經常修改﹐又懶得直接做成靜態的﹐每次都要從服務器下載來改﹐只好想辦法把asp頁面轉化成htm靜態頁面了。。。　

以前就曾經看到這樣的文章﹐不過沒太在意﹐真正想用的時候很難找到一個合適的﹐於是在網上搜索了半天終於找到比較合適的代碼再加上自己的修改﹐如下﹕
　

1. <%
   
2. Function GetPage(url)
   
3. 獲得文件內容
   
4. D dim Retrieval
   
5. Set Retrieval = CreateObject("Microsoft.XMLHTTP")
   
6. With Retrieval
   
7.   .Open "Get", url, False , "", ""
   
8. .Send
   
9. GetPage = BytesToBstr(.ResponseBody)
   
10. End With
    
11. Set Retrieval = Nothing
    
12. End Function
    
13. 
    
14. Function BytesToBstr(body)
    
15. dim objstream
    
16. set objstream = Server.CreateObject("adodb.stream")
    
17. objstream.Type = 1
    
18. objstream.Mode =3
    
19. objstream.Mode =3
    
20. objstream.Open
    
21. objstream.Write body
    
22. objstream.Position = 0
    
23. objstream.Type = 2
    
24. objstream.Charset = "GB2312"
    
25. 
    
26. objstream.Close
    
27. set objstream = nothing
    
28. End Function
    
29. 
    
30. on error resume next
    
31. Url="http://www.sina.com.cn"要讀取的頁面地址
    
32. response.write "開始更新首頁..."
    
33. wstr = GetPage(Url)
    
34. 
    
35. response.write(wstr)
    
36. Set fs=Server.CreateObject("Scripting.FileSystemObject")
    
37. 
    
38. 
    
39. if not MyFile.FolderExists(server.MapPath("/html/")) then
    
40. MyFile.CreateFolder(server.MapPath("/html/"))
    
41. end if
    
42. 
    
43. 要存放的頁面地址
    
44. dizhi=server.MapPath("index.htm")
    
45. If (fs.FileExists(dizhi)) Then
    
46. fs.DeleteFile(dizhi)
    
47. End If
    
48. 
    
49. Set CrFi=fs.CreateTextFile(dizhi)
    
50. Crfi.Writeline(wstr)
    
51. set CrFi=nothing
    
52. set fs=nothing
    
53. response.write "...<font color=red>更新完成﹗</font>"
    
54. %>

複製代碼

代碼算是最簡單的﹐直接保存成一個asp文件即可﹐只要把URL（要轉化的asp地址）和dizhi（要保存的html地址）設置好就可以了﹐一般這兩個文件在同一個目錄﹐才能保證圖片或者css､js起作用。

希望對那些正在尋找asp－>htm的朋友有用。

hatmakeole

先看看怎麼樣！  

gurt

這個帖不错！！！！！