使用方法:手工修改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”


您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。