احسب عدد أسطر تعليمات JS البرمجية ورموز ASP الموجودة في المجلد الحالي، وقم أيضًا بحساب عدد بايتات التعليمات البرمجية
الموجودة في نماذج التعليمات البرمجية
<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\
'\ من موقع codeproject.com
'\ احسب js ورمز asp
'\ تعديل القدر الأزرق
'\ البريد: bluedestiny على 126.com
'\
'\\\\\\\\\\\\\\\\\
خيار صريح
Response.buffer=
فئة خاطئة COUNT_CODE
fso الخاص، spath
asplines الخاصة، jslines، aspbytes، jsbytes، aspwords
فئة فرعية خاصة_تهيئة
تعيين fso = createobject("scripting.filesystemobject")
النهاية الفرعية
فئة فرعية خاصة_إنهاء
تعيين fso=لا شيء
النهاية الفرعية
تكرار الوظيفة الخاصة (المسار)
مجلد خافت، مجلدات، ملفات، ملف، ts، txt، arr، f
تعيين المجلد = fso.getfolder (المسار)
تعيين الملفات = Folder.files
خافت آر إكس، ج
تعيين rx = regexp الجديد
rx.ignorecase = صحيح
rx.global = صحيح
rx.pattern = "+"
لكل ملف في الملفات
إذا كان اليمين (file.name,4) = ".asp" أو اليمين (file.name,3) = ".js" ثم
تعيين ts = file.openastextstream
إذا كان ts.atendofstream ثم txt = "" وإلا txt = ts.readall
ts.إغلاق
txt = rx.replace(txt،" ")
txt = استبدال (txt، vbcrlf&vbcrlf، vbcrlf)
آر = انقسام (استبدال (txt، vbcrlf، " ")،" ")
aspwords = aspwords + ubound(arr)
آر = سبليت (تكست، فبكرف)
إذا كان الحق (file.name،4) = ".asp" ثم
أسبلاينز = أسبلاينز + ubound(arr)
أسبايت = أسبايت + لين (تكست)
آخر
jslines = jslines + ubound(arr)
jsbytes = jsbytes + لين (txt)
نهاية إذا
نهاية إذا
التالي
تعيين المجلدات = المجلدات الفرعية
لكل f في المجلدات
تكرار f.path
التالي
الوظيفة النهائية
للملكية العامة تسمح للمسار (المسارات)
spath=server.mappath(s)
الملكية النهائية
العد الفرعي العام
تكرار (سباث)
النهاية الفرعية
الطباعة الفرعية العامة
استجابة.اكتب "ASP:" و"<br/>"
Response.write "إجمالي الأسطر المشفرة: " & asplines & "<br/>"
Response.write "إجمالي البايتات: " & aspbytes & "" & "<br/>"
Response.write "إجمالي العناصر الفردية (الكلمات) المكتوبة: " & aspwords & "<br/>"
استجابة.اكتب "JScript:" و"<br/>"
Response.write "إجمالي الأسطر المشفرة: " & jslines & "<br/>"
Response.write "إجمالي البايتات:" & jsbytes
النهاية الفرعية
نهاية الفئة
'\\\\\\\\\\\\\\\\\\ \\ \\\\
'\مثال للكود
'\\\\\\\\\\\\\\\\\\ \\ \\\
خافت س
تعيين o=COUNT_CODE الجديد
o.path = "bluedestiny/"
o.count
o.printf
%>