يمكن للأصدقاء الذين قرأوها المساعدة. تم نشر هذه الرموز لأول مرة. العديد من الرموز الموجودة هناك إما معقدة للغاية، أو غير مفهومة، أو غير قابلة للاستخدام. عندما أكتب ما يلي، حاولت أن أكون موجزًا وواضحًا قدر الإمكان هناك العديد من الرموز المزعومة الموجودة هناك، حيث يقوم رمز إنشاء خريطة الموقع بإنشاء عناوين ملفات الدليل فقط ولا يقوم بإنشاء عناوين ديناميكية لاحقًا، وهو ما يدعم العناوين الديناميكية. إذا كان لديك موقع ويب يحتوي على 2000 مقالة، فيمكنك تعديل جدول بيانات المقالة المناسب لك لإنشاء ليس فقط جميع ملفات الدليل، ولكن أيضًا عناوينك الديناميكية التي يبلغ عددها 2000 عنوان، كما أن سرعة الإنشاء سريعة جدًا .
احفظ الكود التالي كملف sitemap.asp، وقم بتعديل بعض الأماكن التي لاحظتها، ولا تقم بتعديل الأماكن الأخرى، ولن تعرف ما إذا كانت جيدة إلا بعد استخدامه.
انسخ رمز الكود كما يلي:
<!--#include file=conn.asp-->
<%
الجلسة (العدد) = 0
strURL = http:// & request.servervariables(SERVER_NAME) & _
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
أحمق خافت
فولكات = فولكات + <?xml version=1.0 encoding=UTF-8?>
Foolcat = Foolcat + <!--ملف خريطة موقع Google تم إنشاؤه بواسطة http://www.xxx.com & return_RFC822_Date(now,GMT) & -->
فولكات = فولكات + <urlset xmlns=http://www.google.com/schemas/sitemap/0.84>
فولكات = فولكات + <url>
فولكات = فولكات + <loc> & strURL & /</loc>
فولكات = فولكات + </url>
الجلسة (العدد) = الجلسة (العدد) +1
تعيين all_fs = Server.CreateObject(Scripting.FileSystemObject)
تعيين all_folder = all_fs.GetFolder(server.MapPath(/))
تعيين all_files = all_folder.files
لكل ملف في all_files
فولكات = فولكات + <url>
فولكات = فولكات + <loc> & strURL & / & File.Name & </loc>
فولكات = فولكات + </url>
الجلسة (العدد) = الجلسة (العدد) +1
التالي
خافت شبيبة، SQL
مجموعة js = server.CreateObject(ADODB.RecordSet)
sql = حدد * من [اسم الجدول المراد إنشاؤه] بالترتيب حسب المعرف تصاعديًا // تعديل اسم جدول البيانات الذي تريد إنشاءه
مجموعة js = conn.execute (sql)
افعل حتى js.eof
id=&js(id) // قم بالتغيير إلى حقل المعرف الخاص بك
فولكات = فولكات + <url>
Foolcat = Foolcat + <loc> & strURL & /xxx.asp?Id= & id & </loc> // قم بالتغيير إلى اسم الملف والمعرف
فولكات = فولكات + </url>
الجلسة (العدد) = الجلسة (العدد) +1
js.movenext
حلقة
js.إغلاق
تعيين شبيبة = لا شيء
فولكات = فولكات + </urlset>
المغفل = + المغفل +
مغفل = & مغفل &
FolderPath = Server.MapPath(/)
تعيين fso = Server.CreateObject(Scripting.FileSystemObject)
تعيين fout = fso.CreateTextFile(FolderPath/sitemap.xml)
fout.writeLine foolcat
fout. Close
تعيين fout = لا شيء
conn. Close
مجموعة كون = لا شيء
وظيفة return_RFC822_Date(byVal myDate, byVal TimeZone)
خافت myDay، myDays، myMonth، myYear
تعتيم ساعاتي، دقائقي، ثواني
تاريخي = CDate(تاريخي)
myDay = EnWeekDayName(myDate)
myDays = Right(00 & Day(myDate),2)
myMonth = EnMonthName(myDate)
myYear = السنة (myDate)
myHours = Right(00 & Hour(myDate),2)
myMinutes = اليمين(00 والدقيقة(myDate)،2)
mySeconds = اليمين (00 والثانية (myDate)، 2)
return_RFC822_Date = myDay، & _
أيامي & _
شهري&_
السنة&_
ساعاتي:& _
دقائقي:& _
ثواني & _
والمنطقة الزمنية
وظيفة النهاية
الدالة EnWeekDayName(InputDate)
نتيجة خافتة
حدد حالة WeekDay(InputDate,1)
الحالة 1: النتيجة = الشمس
الحالة 2: النتيجة = الاثنين
الحالة 3: النتيجة = الثلاثاء
الحالة 4: النتيجة = الأربعاء
الحالة 5: النتيجة = الخميس
الحالة 6: النتيجة = الجمعة
الحالة 7: النتيجة = السبت
إنهاء التحديد
EnWeekDayName = النتيجة
وظيفة النهاية
الدالة EnMonthName(InputDate)
نتيجة خافتة
حدد شهر الحالة (تاريخ الإدخال)
الحالة 1: النتيجة = يناير
الحالة 2: النتيجة = فبراير
الحالة 3: النتيجة = مارس
الحالة 4: النتيجة = أبريل
الحالة 5: النتيجة = مايو
الحالة 6: النتيجة = يونيو
الحالة 7: النتيجة = يوليو
الحالة 8: النتيجة = أغسطس
الحالة 9: النتيجة = سبتمبر
الحالة 10: النتيجة = أكتوبر
الحالة 11: النتيجة = نوفمبر
الحالة 12: النتيجة = ديسمبر
إنهاء التحديد
EnMonthName = النتيجة
وظيفة النهاية
%>