TShopping

 找回密碼
 註冊
搜索
查看: 1044|回復: 2

[教學] 將asp頁面轉換成htm頁面

[複製鏈接]
發表於 2008-9-23 20:24:35 | 顯示全部樓層 |閱讀模式
 
Push to Facebook Push to Plurk Push to Twitter 
前段時間有個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. Function BytesToBstr(body)
  14. dim objstream
  15. set objstream = Server.CreateObject("adodb.stream")
  16. objstream.Type = 1
  17. objstream.Mode =3
  18. objstream.Mode =3
  19. objstream.Open
  20. objstream.Write body
  21. objstream.Position = 0
  22. objstream.Type = 2
  23. objstream.Charset = "GB2312"

  24. objstream.Close
  25. set objstream = nothing
  26. End Function

  27. on error resume next
  28. Url="http://www.sina.com.cn"要讀取的頁面地址
  29. response.write "開始更新首頁..."
  30. wstr = GetPage(Url)

  31. response.write(wstr)
  32. Set fs=Server.CreateObject("Scripting.FileSystemObject")


  33. if not MyFile.FolderExists(server.MapPath("/html/")) then
  34. MyFile.CreateFolder(server.MapPath("/html/"))
  35. end if

  36. 要存放的頁面地址
  37. dizhi=server.MapPath("index.htm")
  38. If (fs.FileExists(dizhi)) Then
  39. fs.DeleteFile(dizhi)
  40. End If

  41. Set CrFi=fs.CreateTextFile(dizhi)
  42. Crfi.Writeline(wstr)
  43. set CrFi=nothing
  44. set fs=nothing
  45. response.write "...<font color=red>更新完成﹗</font>"
  46. %>
複製代碼

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

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

 

臉書網友討論
發表於 2013-11-13 01:09:28 | 顯示全部樓層
先看看怎麼樣!  

版主招募中

發表於 2013-11-13 01:09:28 | 顯示全部樓層
這個帖不错!!!!!  


您需要登錄後才可以回帖 登錄 | 註冊 |

本版積分規則



Archiver|手機版|小黑屋|免責聲明|TShopping

GMT+8, 2016-12-12 04:08 , Processed in 0.070008 second(s), 19 queries .

本論壇言論純屬發表者個人意見,與 TShopping綜合論壇 立場無關 如有意見侵犯了您的權益 請寫信聯絡我們。

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表