快捷導(dǎo)航

將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"

您可能感興趣的文章:

相關(guān)文章

vbs實(shí)現(xiàn)壓縮文件夾的腳本
用vbs實(shí)現(xiàn)壓縮文件夾的代碼，可以壓縮文件夾，減少文件占用體積
2008-06-06
VBS教程：方法-FolderExists 方法
VBS教程：方法-FolderExists 方法...
2006-11-11
用vbs計(jì)算某個(gè)詞在日志文件中的出現(xiàn)次數(shù)
用vbs計(jì)算某個(gè)詞在日志文件中的出現(xiàn)次數(shù)...
2007-03-03
VBScript 動(dòng)態(tài) Array 的實(shí)現(xiàn)代碼
這篇文章主要介紹了VBScript 動(dòng)態(tài) Array 的實(shí)現(xiàn)代碼,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2020-04-04
VBS定時(shí)執(zhí)行idea程序的Testng文件的方法
這篇文章主要介紹了VBS定時(shí)執(zhí)行idea程序的Testng文件的方法，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
2020-04-04
VBScript的入門學(xué)習(xí)資料
VBScript的入門學(xué)習(xí)資料...
2006-11-11
VBS基礎(chǔ)視頻教程批處理之家broly出品
此系列教程更新頻率為1~2周左右，具體時(shí)間還不能確定。初步定為10講內(nèi)容，感謝broly的辛苦勞動(dòng)
2011-12-12
VBS教程：正則表達(dá)式簡(jiǎn)介
VBS教程：正則表達(dá)式簡(jiǎn)介...
2006-11-11
VBS調(diào)用WMI遍歷搜索硬盤文件并計(jì)數(shù)的方法
這篇文章主要介紹了VBS調(diào)用WMI遍歷搜索硬盤文件并計(jì)數(shù)的方法,需要的朋友可以參考下
2016-10-10
VBScript教程第四課VBScript變量
變量是一種使用方便的占位符，用于引用計(jì)算機(jī)內(nèi)存地址，該地址可以存儲(chǔ)腳本運(yùn)行時(shí)可更改的程序信息
2006-11-11