足球游戏_中国足彩网¥体育资讯$

将HTML或txt文件转换为ASP输出的vbs代码
来源:易贤网 阅读:1326 次 日期:2016-07-07 15:17:53
温馨提示:易贤网小编为您整理了“将HTML或txt文件转换为ASP输出的vbs代码”,方便广大网友查阅!

因为需要用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"

中国足彩网信息请查看脚本栏目
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标