China DOS Union

HTML2JS Conversion Script
From: 51windows.Net　　Author: Haiwa

--------------------------------------------------------------------------------

HTML2JS Conversion Script, usage: Place this file in the sendto folder, then right-click on an htm file, select Send To, html2js.vbs, enter the format to generate (js or asp). The script will generate a file with the same name but with the extension .js or .asp, or drag an html file onto this file.

Supports html files with Javascript code

Code: html2js.vbs

'HTML2JS Conversion Script, usage: Place this file in the sendto folder, then right-click on an htm file, select Send To, html2js.vbs, enter the format to generate (js or asp). The script will generate a file with the same name but with the extension .js or .asp, or drag an html file onto this file.
'Haiwa@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("Please enter the type to convert, js or asp","Please enter the type to convert, js or asp","js")
if trim(lcase(ConvertType)) = "js" then
str = "//51windows.Net html2js conversion script@"& 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 "Has been generated"
elseif trim(lcase(ConvertType)) = "asp" then

str = "'51windows.Net html2js conversion script@"& 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 "Has been generated"
else
msgbox "Operation canceled"
end if

If the organization holds a VBScript or batch script training class, face-to-face! Each person pays N yuan as a symbolic fee for the venue training. After the training, we eat to our hearts' content, eat until we're dizzy and then disperse~ : ) Maybe in the future, face-to-face training classes will become more and more popular~ : )

This is strong... What you posted about rss2html yesterday, I only understood "the last post tonight", the rest are all foreign languages......

Why do I get the error "'document' is not defined" after I convert it into a .js file?