Подсчитайте, сколько строк кода JS и кода ASP находится в текущей папке, а также посчитайте, сколько байт кода
содержит примеры кодов
<%
'\\\\\\\\\\\\\\\\\\\
'\
'\ с сайта codeproject.com
'\ Вычисляем код js и asp
'\ Изменить bluedestiny
'\ почта:bluedestiny на 126.com
'\
'\\\\\\\\\\\\\\\\\\\\
опция явная
ответ.buffer=ложный
класс COUNT_CODE
частный fso, спат
частные asplines, jslines, aspbytes, jsbytes, aspwords
частный подкласс_initialize
set fso = createobject("scripting.filesystemobject")
конец субтитра
частный подкласс_terminate
установить fso=ничего
конец субтитра
итерация частной функции (путь)
папка dim, папки, файлы, файл, ts, txt, arr, f
установить папку = fso.getfolder(путь)
установить файлы =folder.files
дим rx,c
установить rx = новое регулярное выражение
rx.ignorecase = правда
rx.global = правда
rx.pattern = " +"
для каждого файла в файлах
если right(file.name,4)=".asp" или right(file.name,3)=".js" тогда
установите ts = file.openastextstream
если ts.atendofstream, то txt = "" else txt = ts.readall
ц.закрыть
txt = rx.replace(txt," ")
txt = заменить (txt,vbcrlf&vbcrlf,vbcrlf)
arr = Split(replace(txt,vbcrlf," ")," ")
aspwords = aspwords + ubound(arr)
arr = разделение (txt, vbcrlf)
если правильно(file.name,4)=".asp" тогда
сплайны = сплайны + ubound(arr)
aspbytes = aspbytes + len(txt)
еще
jslines = jslines + ubound(arr)
jsbytes = jsbytes + len(txt)
конец, если
конец, если
следующий
установить папки =folder.subfolders
для каждого f в папках
перебрать f.path
следующий
публичная собственность
конечной функции
let путь(и)
spath=server.mappath(s)
конечная собственность
публичный подсчет подписчиков
итерация (пространство)
конец субтитра
публичный субprintf
ответ.пишите "ASP:" и "<br/>"
response.write "Всего закодированных строк: " & asplines & "<br/>"
response.write "Всего байт: " & aspbytes & "" & "<br/>"
response.write "Всего набрано отдельных элементов (слов): " & aspwords & "<br/>"
response.write "JScript:" и "<br/>"
response.write "Всего закодированных строк: " & jslines & "<br/>"
response.write "Всего байт: " и jsbytes
конец субтитра
конечный класс
'\\\\\\\\\\\\\\\\\\\\\\ \\\\
'\Пример кода
'\\\\\\\\\\\\\\\\\\\\\\\ \\\
дим о
установить o=новый COUNT_CODE
o.path="bluedestiny/"
о.счет
о.printf
%>