HTML2JS轉換腳本,使用方法：將此檔案放在sendto檔案中，然後在htm檔案上點右鍵，傳送到，html2js.vbs，輸入要生成的格式js或asp 腳本會生成一個同名的檔案，但擴展名為.js或.asp或者將html檔案拖放在此檔案上。
支持帶Javascript代碼的html檔案
代碼：html2js.vbs
'HTML2JS轉換腳本,使用方法：將此檔案放在sendto檔案中，然後在htm檔案上點右鍵，傳送到，html2js.vbs，輸入要生成的格式js或asp 腳本會生成一個同名的檔案，但擴展名為.js或.asp或者將html檔案拖放在此檔案上。
'海娃@http://www.51windows.Net
SetArgObj=WScript.Arguments
FilePath=ArgObj(0)
dimFSO,file,str1,str
setFSO=CreateObject("scripting.filesystemobject")
setfile=FSO.OpenTextFile(FilePath,1)
ConvertType=inputbox("請輸入要換類型,js或asp","請輸入要換類型,js或asp","js")
iftrim(lcase(ConvertType))="js"then
str="//51windows.Nethtml2js轉換腳本@"&Now()&vbnewline
whilenotfile.atendofstream
str1=file.readline
ifLen(str1)>0then
str1=Replace(str1,"\","\\")
str1=Replace(str1,"/","\/")
str1=Replace(str1,"""","\""")
str1="document.writeln("""&str1&""");"&vbnewline
str=str&str1
endif
wend
Setfout=fso.CreateTextFile(FilePath&".js")
fout.WriteLinestr
fout.close
msgbox"已經生成"
elseiftrim(lcase(ConvertType))="asp"then
str="'51windows.Nethtml2js轉換腳本@"&Now()&vbnewline
whilenotfile.atendofstream
str1=file.readline
iflen(str1)>0then
str1=Replace(str1,"%>","%\>")
str1=Replace(str1,"""","""""")
str1="Response.write"""&str1&"""&vbNewLine"&vbnewline
str=str&str1
endif
wend
Setfout=fso.CreateTextFile(FilePath&".asp")
fout.WriteLine"<%"&vbnewline&str&"%>"
fout.close
msgbox"已經生成"
else
msgbox"操作取消"
endif
