zoukankan      html  css  js  c++  java
  • Javascript 代码的html文件

    '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

  • 相关阅读:
    Laravel 底层原理:门面(Facades)
    用 PHP和Golang 来刷leetCode 之 无重复字符 最长子串
    今天发现一个好用的查询IP地址的工具,记录一波
    Ubuntu下安装SDL
    敏捷宣言
    python 读取xml文档
    每个程序员都必须遵守的编程原则
    作为Web开发人员,我为什么喜欢Google Chrome浏览器
    爬虫
    Python为什么要self
  • 原文地址:https://www.cnblogs.com/studio313/p/287701.html
Copyright © 2011-2022 走看看