将HTML或txt文件转换为ASP输出的vbs代码
来源:本站原创|时间:2022-11-25|栏目:vb|
使用方法:手工修改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"
您可能感兴趣的文章
- 01-10VBScript教程 第二课在HTML页面中添加VBscript代码
- 01-10VBS教程:属性-Name 属性
- 01-10VBS教程:属性-Item 属性
- 01-10VBS教程:方法-Copy 方法
- 01-10VBS教程:方法-Move 方法
- 01-10VBS常用脚本 好东西
- 01-10远程或本地获取系统信息的脚本RGIS.vbs
- 01-10用vba实现将记录集输出到Excel模板
- 01-10VBS中常用脚本代码
- 01-10可以将文件转换为vbs语句的vbs代码