统计有多少行JS代码和ASP代码_ASP CLASS类

计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节
有示例代码

复制代码 代码如下:

<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\    来自 codeproject.com
'\\    计算js和asp代码
'\\    修改 bluedestiny
'\\    mail:bluedestiny at 126.com
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

option explicit
response.buffer=false

class COUNT_CODE
 private fso,spath
 private asplines, jslines, aspbytes, jsbytes, aspwords
 private sub class_initialize
  set fso = createobject("scripting.filesystemobject") 
 end sub
 private sub class_terminate
  set fso=nothing
 end sub
 private function iterate(path)
  dim folder, folders, files, file, ts, txt, arr, f
  set folder = fso.getfolder(path)
  set files = folder.files
  dim rx, c
  set rx = new regexp
  rx.ignorecase = true
  rx.global = true
  rx.pattern = "  +"
  for each file in files
   if right(file.name,4)=".asp" or right(file.name,3)=".js" then
    set ts = file.openastextstream
    if ts.atendofstream then txt = "" else txt = ts.readall
    ts.close
    txt = rx.replace(txt," ")
    txt = replace(txt,vbcrlf&vbcrlf,vbcrlf)
    arr = split(replace(txt,vbcrlf," ")," ")
    aspwords = aspwords + ubound(arr)
    arr = split(txt,vbcrlf)
    if right(file.name,4)=".asp" then
     asplines = asplines + ubound(arr)
     aspbytes = aspbytes + len(txt)
    else
     jslines = jslines + ubound(arr)
     jsbytes = jsbytes + len(txt)
    end if
   end if
  next
  set folders = folder.subfolders
  for each f in folders
   iterate f.path
  next
 end function

 public property let path(s)
  spath=server.mappath(s)
 end property
 public sub count
  iterate(spath)
 end sub
 public sub printf
  response.write "ASP:" & "<br/>"
  response.write "Total Lines Coded: " & asplines & "<br/>"
  response.write "Total Bytes: " & aspbytes & "" & "<br/>"
  response.write "Total Individual Elements (words) Typed: " & aspwords & "<br/>"
  response.write "JScript:" & "<br/>"
  response.write "Total Lines Coded: " & jslines & "<br/>"
  response.write "Total Bytes: " & jsbytes
 end sub
end class

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\示例代码
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

dim o
set o=new COUNT_CODE
o.path="bluedestiny/"
o.count
o.printf
%>

时间: 2024-10-26 08:11:58

统计有多少行JS代码和ASP代码_ASP CLASS类的相关文章

统计有多少行JS代码和ASP代码

js|统计 计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节有示例代码 [复制此代码]CODE:<% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\ '\\    来自 codeproject.com '\\    计算js和asp代码 '\\    修改 bluedestiny '\\    mail:bluedestiny at 126.com '\\ '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

统计有多少行JS代码和ASP代码,并有多少字节

js|统计    计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节      有示例代码      <%   '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   '\\   '\\ 来自 codeproject.com   '\\ 计算js和asp代码   '\\ 修改 bluedestiny   '\\ mail:bluedestiny at 126.com   '\\   '\\\\\\\\\\\\\\\\\\\\\\\\\

小工具:计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节

js|统计 计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节 有示例代码 <%'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'\\'\\    from codeproject.com'\\    calculate code'\\    bluedestiny'\\    mail:bluedestiny at 126.com'\\'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ opt

谈动态多行多列,循环行和列,输出M行N列的ASP代码_应用技巧

现在感觉真麻烦,下面这样够简单够清楚了吧? 复制代码 代码如下: <%  Dim i, j, iCols  i = 0 '//定义i进行循环  iCols = 3 '//一行有几列(正整数)  Response.Write("<table width=""100%"" border=""1"" cellspacing=""2"" cellpadding="

谈动态多行多列,循环行和列,输出M行N列的ASP代码

现在感觉真麻烦,下面这样够简单够清楚了吧? 复制代码 代码如下: <%  Dim i, j, iCols  i = 0 '//定义i进行循环  iCols = 3 '//一行有几列(正整数)  Response.Write("<table width=""100%"" border=""1"" cellspacing=""2"" cellpadding="

为什么asp 代码不能运行?? (希望效果图片切换)

问题描述 我把如下代码放在asp代码中为什么,效果不能出来(希望效果图片切换)<TDvAlign=bottomcolSpan=2height=140><scripttype="text/javascript">imgUrl1="images/1.jpg";imgLink1=escape("");imgUrl2="images/2.jpg";imgLink2=escape("");im

改进性能和样式的24个ASP 技巧_ASP基础

简介 技巧 1:在 Web 服务器上缓存常用数据 技巧 2:在 Application 或 Session 对象中缓存常用数据 技巧 3:在 Web 服务器磁盘上缓存数据和 HTML 技巧 4:避免在 Application 或 Session 对象中缓存非灵活组件 技巧 5:不要在 Application 或 Session 对象中缓存数据库连接 技巧 6:妙用 Session 对象 技巧 7:在 COM 对象中封装代码 技巧 8:晚点获取资源,早点释放资源 技巧 9:进程外的执行将牺牲可靠性

Spark技术内幕:一个图搞定Spark到底有多少行代码

Spark1.0.0发布一个多月了,那么它有多少行代码(Line of Code, LOC)? 注:代码统计未包含测试,sample.

几行Asp代码实现防止表单重复提交

重复|重复提交                       用几行Asp代码实现防止表单多次被提交                                   廖家远     在很多情况下都需要防止相同的表单被多次提交,很多人的实现方法都比较复杂(代码数量超过几十行!!)下面提供一种只需使用几行代码的方法,轻松地实现了防止用户刷新多次提交表单和使用后退钮重复多次提交表单.    表单文件formtest.asp    <%    Randomize  '初始代随机数种子    num1=