وفقًا لتعديل الكود الذي توفره الغابة ، تم اختبار مشرف المواقع في vevb.com ، وهو أمر سهل الاستخدام!
إصدار ASP ، يتطلب دعم FSO للمساحة!
ما يلي هو جزء الرمز:
<٪
server.scriptTimeout = 50000
'sitemap_gen.asp
'Scrip Scrip to Operative Sitemaprape for a WebSterver ، في بروتوكول Google Sitemap (GSP)
من قبل فرانشيسكو باسانتينو
www.iteam5.net/francesco/Sitemap
صدر v0.2 في 5 يونيو 2005
'
ترخيص BSD 2.0 ،
'http://www.opensource.org/licenses/bsd-dhense.php
"جمع وتنظيم: chongqing [email protected]
جلسة (خادم) = http: //192.168.0.111 'اسم المجال الخاص بك
VDIR = / 'اصنع دليلًا لـ Sitemap ، الدليل النسبي (نسبة إلى دليل الجذر)
تعيين objfso = createObject (scripting.filesystemObject)
الجذر = server.mappath (vdir)
'استجابة. contenttype = text/xml
'Response.write <؟
'response.write <urlset xmlns =' http://www.google.com/schemas/sitemap/0.84 '>
STR = <؟
str = str & <urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'> & vbcrlf
تعيين objfolder = objfso.getfolder (الجذر)
'Response.write getFilelink (objfolder.path ، objfolder.datelastModify)
تعيين الألوان = objfolder.files
لكل objfile في colfiles
'response.write getFilelink (Objfile.path ، objfile.datelastmodify)
str = str & getFilelink (objfile.path ، objfile.datelastmodify) & vbcrlf
التالي
Showsubfolders (objfolder)
'Response.write </urlset>
str = str & </urlset> و vbcrf
تعيين fso = لا شيء
تعيين OBJStream = server.createBject (ADODB.Stream)
مع objstream
'.type = adtypetext
'. mode = admodereadwrite
.opeen
.charset = UTF-8
.position = objstream.size
.riteText = str
.savetofile server.mappath (/sitemap.xml) ، اسم ملف XML الذي تم إنشاؤه بواسطة 2 ''
.يغلق
تنتهي
اضبط OBJStream = لا شيء
إذا لم يكن يخطئ بعد ذلك
Response.write (<script> ALERT ("خريطة الموقع الناجحة!) ؛ History.back () ؛ </script>)
استجابة
إنهاء إذا
subsubfolders (objfolder)
تعيين colorders = objfolder.subfolders
لكل objsubfolder في colfolders
إذا كان المجلد (objsubfolder.path) ثم
'Response.write getFilelink (objsubfolder.path ، objsubfolder.datelastModify)
str = str & getFilelink (objsubfolder.path ، objsubfolder.datelastmodify) & vbcrlf
تعيين الألوان = objsubfolder.files
لكل objfile في colfiles
'response.write getFilelink (Objfile.path ، objfile.datelastmodify)
str = str & getFilelink (objfile.path ، objfile.datelastmodify) & vbcrlf
التالي
Showsubfolders (ObjSubfolder)
إنهاء إذا
التالي
نهاية الفرعية
وظيفة getFilelink (ملف ، DataFile)
ملف = استبدال (ملف ، جذر ،)
ملف = استبدال (ملف ،/،/)
إذا كان filextensionisbad (ملف) ثم الخروج وظيفة
إذا كان الشهر (DataFile) <10d filedatem = 0
إذا تم تقديم اليوم (DataFile) <10d تم تقديمه = 0
filedate = year (datafile) &-& filedatem & month (datafile) &-& filed & day (datafile)
getFiLelink = <Url> <loc> & server.htmlencode (Session (Server) & vdir & file) و </local) q> <peries> 1.0 </priority> </url "
استجابة
وظيفة نهاية
المجلد وظيفة (اسم المسار)
'الدليل الذي يحتاج إلى ترشيحه (غير مدرج في الخريطة السياطية)
pathexclusion = aray (/temp ،/_ vti_cnf ، _vti_pvt ، _vti_log ، cgi-bin ،/admin ،/edu)
المجلد = صحيح
لكل مسار في المسار
إذا instr (ucase (pathname) ، ucase (pathexcluded))> 0 ثم
المجلد = خطأ
الخروج ل
إنهاء إذا
التالي
وظيفة نهاية
وظيفة filextensioniSbad (sfilename)
dim sfilextension ، bfilexextensionisvalid ، sfilext
"تعديل لتمديد الملف الخاص بك (http://www.googleguide.com/file_type.html)
extensions = Array (PNG ، GIF ، JPG ، JPEG ، ZIP ، PDF ، PS ، HTML ، HTM ، PHP ، WK1 ، WK2 ، WK3 ، WK4 ، WK5 ، WKI ، WKS ، WKU ، LWP ، MW ، XLS ، PPT ، DOC ، DOC ، SWF ، WKS ، WPS ، WDB ، WRI ، RTF ، ANS ، TXT)
"اضبط اسم ملف القائمة ، إذا لم يكن الامتداد من بينها ، فلن يتضمن Sitemap ملف الاسم الممتد
إذا كان Len (trim (sfilename)) = 0 ثم
filextensioniSbad = صحيح
وظيفة الخروج
إنهاء إذا
sfileMextension = يمين (sfilename ، Len (sfilename) -instrev (sfilename ،.)))
bfileMextensionIsvalid = false 'افترض أن التمديد سيء
لكل sfilext
إذا ucase (sfilext) = ucase (sfilextation) ثم
bfileMextensioniSvalid = صحيح
الخروج ل
إنهاء إذا
التالي
filextensionisbad = ليس bfilexextentisvalid
وظيفة نهاية
٪>