code de programme
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
option explicite
réponse.charset = "UTF-8"
session.page de code = 65001
session.timeout = 1440
serveur.scripttimeout = 9999
'-------------------------------------------- ------ --------
'Fonction : ASP obtient automatiquement les balises d'article (Tags) et les mots-clés correspondants
'Paramètre : titre strTitle
' contenu strContent
'Retour : 0 : Aucune balise correspondante. Autres : Une liste de balises séparées par des virgules anglaises demi-largeur.
'Explication : Le mot-clé label appelle la liste de mots-clés du label Discuz
'De : http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
Fonction ShowTags (ByVal strTitle, ByVal strContent)
Dim XML, objNodes, XMLPath, je
strTitle = Serveur.URLEncode(strTitle)
strContent = Serveur.URLEncode(strContent)
XMLPath=" http://keyword.discuz.com/rated_kw.html?title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8 "
'De : http://www.downcodes.com
Définir XML = server.CreateObject("Microsoft.XMLDOM")
Avec XML
.async = "faux"
.resolveExternals = "faux"
.setProperty "ServerHTTPRequest", vrai
.load(XMLPChemin)
Si .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Alors
Définir objNodes = .getElementsByTagName("item")
Pour i = 0 à objNodes.length - 1
ShowTags = ShowTags & Trim(objNodes(i).selectSingleNode("kw").Text)&","
Suivant
Définir objNodes = Rien
ShowTags = Gauche(ShowTags,Len(ShowTags)-1)
Autre
Afficher les balises = 0
Fin si
Terminer par
Définir XML = Rien
Fin de la fonction
'Application
Response.write ShowTags("Yipin Sky Web Development Code Station ASP et autres blogs de collection de codes classiques liés au développement Web - Groupe QQ de communication ASP 12814238 (complet) 14725152 (ouvert) http://code.dlstu.cn", "Yipin Sky Développement Web Code Station ASP et autres blogs de collection de codes classiques liés au développement Web - Groupe QQ de communication ASP 12814238 (complet) 14725152 (ouvert) http://code.dlstu.cn")
%>