將HTML或txt檔案轉換為ASP輸出的vbs代碼_vbs

使用方法:手工修改html檔案的名稱與想要產生的asp的檔案名稱，然後將下面的代碼儲存為1.vbs，跟1.html放同一個目錄雙擊運行即可。

複製代碼 代碼如下:

html = "1.html"
asp = "1.asp"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fhtml = fso.OpenTextFile(html, 1)
Set fasp = fso.OpenTextFile(asp, 2, true)
While fhtml.AtEndOfStream <> true
text = fhtml.ReadLine
text = "Response.Write "&""""&Replace(text, """", """""")&""""
fasp.WriteLine(text)
wend
fhtml.close
fasp.close
set fso = nothing
msgbox "success"