繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 小工具：统计有多少行JS代码和ASP代码，并有多少字节
- ASP
- ASP正则表达式技巧
- ASP Access实现网站计数器（访问量）
- ASP新闻分页，将一篇过长的文章分页，生成静态页面
- 一些关于asp 购物车的想法
- 一个sql查询器，自动画表格填字段
- ASP实现文件直接下载的代码
- 把网页中的(电话，qq等数字)生成图片的ASP程序
- asp长文章用分页符来分页显示
- Asp函数介紹(37个常用函数)
- ASP中的面向对象类
- 分页实现方法的性能比较
- asp ajax跨域提交数据
- asp修改文件和文件夹的名字的代码
- ASP 多关键词查询实例代码
- asp被杀毒软件误删的解决方法
- asp 多关键词搜索的简单实现方法
- asp 根据IP地址自动判断转向分站的代码
- asp dictionary对象的用法
- ASP 千万级数据分页的存储过程
- ASP隐藏真实文件的下载功能实现代码
小工具：统计有多少行JS代码和ASP代码，并有多少字节
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 148 ::
收藏到网摘: n/a
计算当前文件夹中，有多少行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
%>
评论 (0) All
