将HTML或txt文件转换为ASP输出的vbs代码
更新时间：2011年01月20日 00:08:42 作者：
因为需要用asp输出一段内容，如果内容过多的话，不断的response.write太累，所以就需要用这断代码，方便用快速的转换，其实只要是文本文件都可以输出的。
使用方法:手工修改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"
复制代码 代码如下:
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教程：运算符-Imp 运算符...2006-11-11
经常有一些想学习vbs的朋友问我一些问题，昨天又有一个朋友问我取路径的问题，今天就biweilun就一并写出来，希望对大家有点帮助，呵呵2008-07-07
vbs下实现邮件发送代码，可以发附件等2008-06-06
在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文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实现获取电脑硬件信息的代码，真的不错，方便查看系统硬件信息2008-06-06
我们把e或由e经过一定变换和复合的形式定义为“自然律”。2009-05-05
VBS教程：函数-DateDiff 函数...2006-11-11
最新评论