Javascript 代碼的html檔案

來源:互聯網
上載者:User

'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

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.