electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『楼 主』:
[ZT]HTML2JS转换脚本
HTML2JS转换脚本
来自：51windows.Net 作者：海娃
--------------------------------------------------------------------------------
HTML2JS转换脚本,使用方法：将此文件放在sendto文件中，然后在htm文件上点右键，发送到，html2js.vbs，输入要生成的格式js或asp 脚本会生成一个同名的文件，但扩展名为.js或.asp或者将html文件拖放在此文件上。
支持带 Javascript 代码的html文件
代码：html2js.vbs
| Quote: | 'HTML2JS转换脚本,使用方法：将此文件放在sendto文件中，然后在htm文件上点右键，发送到，html2js.vbs，输入要生成的格式js或asp 脚本会生成一个同名的文件，但扩展名为.js或.asp或者将html文件拖放在此文件上。
'海娃@http://www.51windows.Net
Set ArgObj = WScript.Arguments
FilePath=ArgObj(0)
dim FSO,file,str1,str
set FSO=CreateObject("scripting.filesystemobject")
set file=FSO.OpenTextFile(FilePath,1)
ConvertType = inputbox("请输入要换类型,js或asp","请输入要换类型,js或asp","js")
if trim(lcase(ConvertType)) = "js" then
str = "//51windows.Net html2js转换脚本@"& Now() & vbnewline
while not file.atendofstream
str1=file.readline
if len(str1)>0 then
str1= Replace(str1,"\","\\")
str1= Replace(str1,"/","\/")
str1= Replace(str1,"""","\""")
str1 = "document.writeln("""&str1&""");"&vbnewline
str = str & str1
end if
wend
Set fout = fso.CreateTextFile(FilePath & ".js")
fout.WriteLine str
fout.close
msgbox "已经生成"
elseif trim(lcase(ConvertType)) = "asp" then
str = "'51windows.Net html2js转换脚本@"& Now() & vbnewline
while not file.atendofstream
str1=file.readline
if len(str1)>0 then
str1= Replace(str1,"%>","%\>")
str1= Replace(str1,"""","""""")
str1 = "Response.write """&str1&""" & vbNewLine "&vbnewline
str = str & str1
end if
wend
Set fout = fso.CreateTextFile(FilePath & ".asp")
fout.WriteLine "<%"& vbnewline & str & "%>"
fout.close
msgbox "已经生成"
else
msgbox "操作取消"
end if |
|
|
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>" |
|
