รหัสโปรแกรม
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
-
ตัวเลือกที่ชัดเจน
response.charset = "UTF-8"
session.codepage = 65001
เซสชั่น.หมดเวลา = 1440
server.scripttimeout = 9999
'------------------------------------------------ ------ --------
'ฟังก์ชัน: ASP จะรับแท็กบทความ (แท็ก) และคำหลักที่ตรงกันโดยอัตโนมัติ
'พารามิเตอร์: ชื่อ strTitle
' เนื้อหา strContent
'ส่งคืน: 0: ไม่มีแท็กที่ตรงกัน อื่นๆ: รายการแท็กที่คั่นด้วยเครื่องหมายจุลภาคภาษาอังกฤษแบบครึ่งความกว้าง
'คำอธิบาย: คำหลักของป้ายกำกับเรียกรายการคำหลักของป้ายกำกับ Discuz
'จาก: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
ฟังก์ชั่น ShowTags (ByVal strTitle, ByVal strContent)
Dim XML, objNodes, XMLPath, i
strTitle = เซิร์ฟเวอร์ URLEncode (strTitle)
strContent = เซิร์ฟเวอร์ URLEncode (strContent)
XMLPath=" http://keyword.discuz.com/ related_kw.html? title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8 "
'จาก: http://www.downcodes.com '
ตั้งค่า XML = server.CreateObject("Microsoft.XMLDOM")
ด้วย XML
.async = "เท็จ"
.resolveExternals = "เท็จ"
.setProperty "ServerHTTPRequest" เป็นจริง
.load(XMLPath)
ถ้า .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 จากนั้น
ตั้งค่า objNodes = .getElementsByTagName("item")
สำหรับ i = 0 ถึง objNodes.length - 1
ShowTags = ShowTags & Trim(objNodes(i).selectSingleNode("kw").Text)&","
ต่อไป
ตั้ง objNodes = ไม่มีเลย
ShowTags = ซ้าย (ShowTags, Len (ShowTags) -1)
อื่น
แสดงแท็ก = 0
สิ้นสุดถ้า
จบด้วย
ตั้งค่า XML = ไม่มีเลย
สิ้นสุดฟังก์ชัน
'แอปพลิเคชัน
Response.write ShowTags ("Yipin Sky Web Development Code Station ASP และบล็อกคอลเลกชันโค้ดคลาสสิกอื่น ๆ ที่เกี่ยวข้องกับการพัฒนาเว็บ - การสื่อสาร ASP กลุ่ม QQ 12814238 (เต็ม) 14725152 (เปิด) http://code.dlstu.cn", "Yipin Sky การพัฒนาเว็บ Code Station ASP และบล็อกรวบรวมโค้ดคลาสสิกอื่น ๆ ที่เกี่ยวข้องกับการพัฒนาเว็บ - การสื่อสาร ASP กลุ่ม QQ 12814238 (เต็ม) 14725152 (เปิด) http://code.dlstu.cn")
-