將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
更新時間：2011年01月20日 00:08:42 作者：
因為需要用asp輸出一段內(nèi)容，如果內(nèi)容過多的話，不斷的response.write太累，所以就需要用這斷代碼，方便用快速的轉(zhuǎn)換，其實只要是文本文件都可以輸出的。
使用方法:手工修改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"
復(fù)制代碼 代碼如下:
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"
相關(guān)文章
VBS教程：運算符-Imp 運算符...2006-11-11
經(jīng)常有一些想學(xué)習(xí)vbs的朋友問我一些問題，昨天又有一個朋友問我取路徑的問題，今天就biweilun就一并寫出來，希望對大家有點幫助，呵呵2008-07-07
vbs下實現(xiàn)郵件發(fā)送代碼，可以發(fā)附件等2008-06-06
在密碼學(xué)中，愷撒密碼（或稱愷撒加密、愷撒變換）是一種最簡單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù)，明文中的所有字母都在字母表上向後（或向前）按照一個固定數(shù)目進行偏移後被替換成密文2013-05-05
VBS教程：VBScript 語句-With 語句...2006-11-11
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表...2007-04-04
RCMD使用說明...2007-02-02
用vbs+wmi實現(xiàn)獲取電腦硬件信息的代碼，真的不錯，方便查看系統(tǒng)硬件信息2008-06-06
我們把e或由e經(jīng)過一定變換和復(fù)合的形式定義為“自然律”。2009-05-05
VBS教程：函數(shù)-DateDiff 函數(shù)
VBS教程：函數(shù)-DateDiff 函數(shù)...2006-11-11