| ما يلي هو جزء الرمز: <٪@language = "vbscript" codepage = "65001" ٪> <٪ استجابة. charset = "utf-8" 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 جلسة ("خادم") = "http://7thpark.com/" "" اسم المجال الخاص بك دليل sitemap vdir = "/" ، الدليل النسبي (نسبة إلى دليل الجذر) SET OBJFSO = createObject ("scripting.filesystemObject") الجذر = server.mappath (vdir) 'استجابة. contenttype = "text/xml" "reponse.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'>" & vbcrlfff تعيين 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>" & vbcrlf تعيين fso = لا شيء تعيين OBJStream = server.createBject ("Adodb.stream") مع objstream '.type = adtypetext '. mode = admodereadwrite .opeen .charset = "UTF-8" .position = objstream.size .riteText = str .savetofile server.mappath ("/sitmap.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) <10 thatn filed = "0" FILEDATE = YEAR (DATAFILE) و "-" & FileDatem & Month (DataFile) & "-" & Filed & Day (DataFile) getFiLelink = "<Url> <loc>" & server.htmlencode (Session ("Server") و VDIR & FILE) و "</loc </changefreq> <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 WK2 "" ، "WK3" ، "WK4" ، "WK5" ، "WKI" ، "WKS" ، "WKU" ، "LWP" ، "MW" ، "XLS" ، "PPT" ، "Doc" ، "SWF "،" wks "،" WPS "،" WDB "،" WRI "،" RTF "،" ANS "،" txt ") "اضبط اسم ملف القائمة ، إذا لم يكن الامتداد من بينها ، فلن يتضمن Sitemap ملف الاسم الممتد
|