中国DOS联盟

HTML2JS转换脚本 来自：51windows.Net　　作者：海娃 -------------------------------------------------------------------------------- HTML2JS转换脚本,使用方法：将此文件放在sendto文件中，然后在htm文件上点右键，发送到，html2js.vbs，输入要生成的格式js或asp　脚本会生成一个同名的文件，但扩展名为.js或.asp或者将html文件拖放在此文件上。 支持带 Javascript 代码的html文件 代码：html2js.vbs

'HTML2JS转换脚本,使用方法：将此文件放在sendto文件中，然后在htm文件上点右键，发送到，html2js.vbs，输入要生成的格式js或asp　脚本会生成一个同名的文件，但扩展名为.js或.asp或者将html文件拖放在此文件上。 '海娃@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

过瘾！！！

如果组织办个　VBScript　或　批处理脚本　学习班， 来个面授的！每人Ｎ块钱向征性包场培训，培训完以后狂吃，吃晕过去解散～：） 说不定将来面授学习班越办越火～：）

这个强...昨天你发的rss2html除了“今晚最后一个帖子”看懂了，其它的全是洋文......

第一高手 第二高手 我的小站

为什么我转换成.js文件以后会提示“'document'未定义”

≡≡☆⌒_⌒☆≡■◆■≡☆⌒_⌒☆≡≡　　　　 (の)゛在﹍這個.．.ロ丗界里ヤ (の) ╱︶ 誰對o..﹎οО誰錯┈?  ìòvè ╭☆ ╭~~~★ ╭ ︶╮ ╱︶(o'.'o)︶╲ ╱︶(-'.'-)︶╲