Programmcode
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
Option explizit
Response.charset = „UTF-8“
session.codepage = 65001
session.timeout = 1440
server.scripttimeout = 9999
'----------------------------- ------ --------
Funktion: ASP ermittelt automatisch passende Artikel-Tags (Tags) und Schlüsselwörter
'Parameter: strTitle Titel
' strContent Inhalt
'Rückgabe: 0: Keine passenden Tags. Andere: Eine Liste von Tags, getrennt durch englische Kommas halber Breite
'Erklärung: Das Label-Schlüsselwort ruft die Discuz-Label-Keyword-Liste auf
'Von: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
Funktion ShowTags(ByVal strTitle, ByVal strContent)
Dimmen Sie XML, objNodes, XMLPath, d
strTitle = Server.URLEncode(strTitle)
strContent = Server.URLEncode(strContent)
XMLPath=" http://keyword.discuz.com/lated_kw.html?title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8 "
'Von: http://www.downcodes.com
Setze XML = server.CreateObject("Microsoft.XMLDOM")
Mit XML
.async = „false“
.resolveExternals = „false“
.setProperty „ServerHTTPRequest“, true
.load(XMLPath)
Wenn .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Dann
Setze objNodes = .getElementsByTagName("item")
Für i = 0 bis objNodes.length - 1
ShowTags = ShowTags & Trim(objNodes(i).selectSingleNode("kw").Text)&","
Nächste
Setze objNodes = Nothing
ShowTags = Left(ShowTags,Len(ShowTags)-1)
Anders
ShowTags = 0
Ende wenn
Ende mit
Legen Sie XML = Nichts fest
Funktion
„Anwendung“
beenden
Response.write ShowTags("Yipin Sky Web Development Code Station ASP und andere klassische Codesammlungsblogs im Zusammenhang mit Webentwicklung - ASP-Kommunikation QQ-Gruppe 12814238 (vollständig) 14725152 (offen) http://code.dlstu.cn", "Yipin Sky Web Development Code Station ASP und andere klassische Codesammlungsblogs im Zusammenhang mit Webentwicklung – ASP-Kommunikation QQ-Gruppe 12814238 (vollständig) 14725152 (offen) http://code.dlstu.cn")
%>