西安做网站用asp自动获取匹配文章标签(Tags)、关键字

18722012-06-08

<%@LANGUAGE="VBSCRipT" CODEPAGE="65001"%>
<%
option explicit
response.charset = "UTF-8"
session.codepage = 65001
session.timeout = 1440
server.scripttimeout = 9999

'----------------------------------------------------
'功能: asp自动获取匹配文章标签(Tags)、关键字
'参数: strTitle 标题
'      strContent 内容
'返回: 0:无匹配标签 其他:以英文半角逗号分隔的标签列表
'说明:标签关键字调用Discuz标签关键字列表
'From:http://www.dlstu.cn/code/default.asp?id=1781
'----------------------------------------------------
Function ShowTags(ByVal strTitle, ByVal strContent)
Dim xml, objNodes, XMLPath, i
strTitle = Server.URLEncode(strTitle)
strContent = Server.URLEncode(strContent)
XMLPath="http://keyWord.discuz.com/related_kw.html?title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8"
    Set XML = server.CreateObject("Microsoft.XMLDOM")
        With XML
        .async = "false"
        .resolveExternals = "false"
        .setPRoperty "ServerHTTPRequest", true
        .load(XMLPath)
            If .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Then
            Set objNodes = .getElementsByTagName("item")
                For i = 0 to objNodes.length - 1
                ShowTags = ShowTags & Trim(objNodes(i).selectSingleNode("kw").Text)&","
                Next
            Set objNodes = Nothing
            ShowTags = Left(ShowTags,Len(ShowTags)-1)
            Else
            ShowTags = 0
            End If
        End With
    Set XML = Nothing
End Function

'应用
Response.write ShowTags("西安网站建设-点墨网络","西安做网站,点墨网络,西安网站建设")
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1