رمز البرنامج
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
الخيار صريح
Response.charset = "UTF-8"
جلسة كود الصفحة = 65001
مهلة الجلسة = 1440
server.scripttimeout = 9999
'------------------------------------------- ------ --------
'الوظيفة: يحصل ASP تلقائيًا على علامات المقالة (العلامات) والكلمات الرئيسية المطابقة
'المعلمة: عنوان strTitle
محتوى المحتوى
'إرجاع: 0: لا توجد علامات مطابقة أخرى: قائمة بالعلامات مفصولة بفواصل نصف عرضها باللغة الإنجليزية
'شرح: تستدعي الكلمة الأساسية للتسمية قائمة الكلمات الأساسية لتصنيف Discuz
'من: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
علامات عرض الوظائف (ByVal strTitle، ByVal strContent)
Dim XML، objNodes، XMLPath، i
strTitle = Server.URLEncode(strTitle)
strContent = Server.URLEncode(strContent)
XMLPath=" http://keyword.discuz.com/available_kw.html?title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8 "
من: http://www.downcodes.com
تعيين XML = server.CreateObject("Microsoft.XMLDOM")
مع XML
.غير متزامن = "خطأ"
.resolveExternals = "خطأ"
.setProperty "ServerHTTPRequest"، صحيح
تحميل (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 = Left(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" محطة كود تطوير الويب ASP ومدونات مجموعة الأكواد الكلاسيكية الأخرى المتعلقة بتطوير الويب - اتصالات ASP مجموعة QQ 12814238 (كاملة) 14725152 (مفتوحة) http://code.dlstu.cn")
%>