'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