código do programa
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
opção explícita
resposta.charset = "UTF-8"
sessão.codepage = 65001
sessão.timeout = 1440
server.scripttimeout = 9999
'------------------------------------------- ------ --------
'Função: ASP obtém automaticamente tags de artigos (Tags) e palavras-chave correspondentes
'Parâmetro: título strTitle
'strConteúdo do conteúdo
'Return: 0: Sem tags correspondentes Outros: Uma lista de tags separadas por vírgulas de meia largura em inglês
'Explicação: A palavra-chave label chama a lista de palavras-chave do rótulo Discuz
'De: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
Função ShowTags(ByVal strTitle, ByVal strContent)
Dim XML, objNodes, XMLPath, eu
strTitle = Servidor.URLEncode(strTitle)
strContent = Server.URLEncode(strContent)
XMLPath=" http://keyword.discuz.com/related_kw.html?title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8 "
'De: http://www.downcodes.com
Definir XML = server.CreateObject("Microsoft.XMLDOM")
Com XML
.async = "falso"
.resolveExternals = "falso"
.setProperty "ServerHTTPRequest", verdadeiro
.load(XMLPath)
Se .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Então
Definir objNodes = .getElementsByTagName("item")
Para i = 0 para objNodes.length - 1
ShowTags = ShowTags & Trim(objNodes(i).selectSingleNode("kw").Texto)&","
Próximo
Definir objNodes = Nada
ShowTags = Esquerda(ShowTags,Len(ShowTags)-1)
Outro
Mostrar Tags = 0
Terminar se
Terminar com
Definir XML = Nada
Função final
'Aplicativo
Response.write ShowTags ("Yipin Sky Web Development Code Station ASP e outros blogs clássicos de coleção de códigos relacionados ao desenvolvimento Web - comunicação ASP QQ group 12814238 (completo) 14725152 (aberto) http://code.dlstu.cn", "Yipin Sky Web Development Code Station ASP e outros blogs clássicos de coleção de códigos relacionados ao desenvolvimento Web - comunicação ASP grupo QQ 12814238 (completo) 14725152 (aberto) http://code.dlstu.cn")
%>