該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

將asp頁面轉換成html頁面

Sub?GenFile(id)

dim?objXmlHttp

set?objXmlHttp?=?Server.CreateObject("Microsoft.XMLHTTP")

objXmlHttp.open?"GET","http://www.xxx.com/product.asp?id="?&?id?,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?Server.MapPath("/product")?&?"\"?&?id?&?".htm",2

objAdoStream.Close()

dim?sI,sA

sI=""

sA=""

dim?objFSO,objFile

set?objFSO?=?server.CreateObject("Scripting.FileSystemObject")

set?objFile?=?objFSO.OpenTextFile(Server.MapPath("/product")?&?"\"?&?id?&?".htm")

while?not?objFile.AtEndOfStream

sI?=?objFile.readline()

sA?=?sA?&?sI

wend

objFile.close

set?objFile?=?nothing

''處理過程

dim?sR

sR?=?replace(sA,"images/","../images/")

sR?=?replace(sR,"admin/../","../admin/")

sR?=?replace(sR,"class.asp","../class.asp")

sR?=?replace(sR,"cat.asp","../cat.asp")

sR?=?replace(sR,"research.asp","../research.asp")

sR?=?replace(sR,"help","../help")

sR?=?replace(sR,"mess.asp","../mess.asp")

sR?=?replace(sR,"index.asp","../index.asp")

sR?=?replace(sR,"addto.asp","../addto.asp")

''重新寫入

dim?objFileW

set?objFileW?=?objFSO.CreateTextFile(Server.MapPath("/product")?&?"\"?&?id?&?".htm",true)

objFileW.WriteLine?sR

objFileW.close

set?objFileW?=?nothing

set?objFSO?=?nothing

end?sub

總結

以上是生活随笔為你收集整理的HTML页面转换asp,将asp页面转换成html页面 代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。