الأشياء المستخدمة لإنشاء ملفات sitemap.xml تفضي إلى تزحف محركات البحث مثل Google.
<٪
server.scriptTimeout = 50000
'sitemap_gen.asp
"Amplesplscript Toautomists تنتج sitemapsforawebserver ، IntheGoogLesItemApprotocol (GSP)
'Byfrancescopassantino
www.iteam5.net/francesco/Sitemap
'v0.2released5june2005 (ListingAdirectoreReereCursivelyImprovement)
'
'BSD2.0license ،
'http://www.opensource.org/licenses/bsd-license.php
'تم جمعها وفرزها: chongqing [email protected]
جلسة ("خادم") = "// www.vevb.com"
اسم المجال الخاص بك
vdir = "/"
"قم بإنشاء الدليل الذي يتم فيه صنع خريطة Sitemap ، نسبة إلى الدليل (نسبة إلى دليل الجذر)
setObjfso = createObject ("scripting.filesystemObject")
الجذر = server.mappath (vdir)
'استجابة. contenttype = "text/xml"
"reponse.write" <؟ xmlversion = '1.0'encoding =' utf-8 '؟> "
'response.write "<UrlSetxMlns =' http: //www.google.com/schemas/sitemap/0.84 '>"
str = "<؟ xmlversion = '1.0'encoding =' utf-8 '؟>" & vbcrlf
str = str & "<UrlSetxMlns = 'http: //www.google.com/schemas/sitemap/0.84'>" & vbcrlf
setobjfolder = objfso.getfolder (الجذر)
'response.writegetFilelink (objfolder.path ، objfolder.datelastmodified)
setColfiles = objfolder.files
foreachobjfileincolfiles
'response.writegetFilelink (objfile.path ، objfile.DatelastModified)
str = str & getFilelink (objfile.path ، objfile.datelastmodified) & vbcrlf
التالي
Showsubfolders (objfolder)
'Response.write "</urlset>"
str = str & "</urlset>" & vbcrlf
setfso = لا شيء
setObjStream = server.createBject ("Adodb.stream")
بدون BJStream
'.type = adtypetext
'. mode = admodereadwrite
.يفتح
.charset = "UTF-8"
.position = objstream.size
.riteText = str
.savetofilesserver.mapath ("/sitemap.xml") ، 2 'إنشاء اسم ملف XML
.يغلق
endwith
setObjStream = لا شيء
ifnoterrthen
Response.write ("<script> ALERT ('Success!') ؛ History.back () ؛ </script>")
استجابة
Endif
Subshowsubfolders (objfolder)
setColfolders = objfolder.subfolders
foreachobjsubfolderincolfolders
illerpermission (objsubfolder.path) ثم
'response.writegetFilelink (objsubfolder.path ، objsubfolder.datelastModified)
str = str & getFilelink (objsubfolder.path ، objsubfolder.datelastmodified) & vbcrlf
setColfiles = objsubfolder.files
foreachobjfileincolfiles
'response.writegetFilelink (objfile.path ، objfile.DatelastModified)
str = str & getFilelink (objfile.path ، objfile.datelastmodified) & vbcrlf
التالي
Showsubfolders (ObjSubfolder)
Endif
التالي
ينتهي
