將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
更新時(shí)間：2011年01月20日 00:08:42 作者：
因?yàn)樾枰胊sp輸出一段內(nèi)容，如果內(nèi)容過多的話，不斷的response.write太累，所以就需要用這斷代碼，方便用快速的轉(zhuǎn)換，其實(shí)只要是文本文件都可以輸出的。
使用方法:手工修改html文件的名稱與想要生成的asp的文件名稱，然后將下面的代碼保存為1.vbs，跟1.html放同一個(gè)目錄雙擊運(yùn)行即可。
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"
您可能感興趣的文章:
- VBS合并一個(gè)文件夾里的TXT的實(shí)現(xiàn)代碼
- vbs解決處理TXT文本數(shù)據(jù)相關(guān)問題實(shí)現(xiàn)代碼
- VBS實(shí)現(xiàn)將Excel表格保存為txt文本
- TXT轉(zhuǎn)HTM、HTML「TXT轉(zhuǎn)網(wǎng)頁(yè)」的vbs實(shí)現(xiàn)代碼
- 用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼
- 用VBS將一篇txt后綴的內(nèi)容保存為html格式
- vbs實(shí)現(xiàn)的支持拖動(dòng)的txt文本切割器
- vbs操作txt文本文件常用方法與函數(shù)代碼
相關(guān)文章
VBS教程：運(yùn)算符-Imp 運(yùn)算符...2006-11-11
經(jīng)常有一些想學(xué)習(xí)vbs的朋友問我一些問題，昨天又有一個(gè)朋友問我取路徑的問題，今天就biweilun就一并寫出來，希望對(duì)大家有點(diǎn)幫助，呵呵2008-07-07
vbs下實(shí)現(xiàn)郵件發(fā)送代碼，可以發(fā)附件等2008-06-06
在密碼學(xué)中，愷撒密碼（或稱愷撒加密、愷撒變換）是一種最簡(jiǎn)單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù)，明文中的所有字母都在字母表上向後（或向前）按照一個(gè)固定數(shù)目進(jìn)行偏移後被替換成密文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實(shí)現(xiàn)獲取電腦硬件信息的代碼，真的不錯(cuò)，方便查看系統(tǒng)硬件信息2008-06-06
我們把e或由e經(jīng)過一定變換和復(fù)合的形式定義為“自然律”。2009-05-05
VBS教程：函數(shù)-DateDiff 函數(shù)
VBS教程：函數(shù)-DateDiff 函數(shù)...2006-11-11