分站 简化版 股指 日历 影视
携程 地图 计算器 行情 电脑
空位 空位 空位 空位 空位
首页 软件 编程 网络 窍门 笑话 知识 公告 注册 登录 用QQ登录本站
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
您现在的位置:首页 >> ASP >> 内容

自动取得新闻内容标签、关键字函数

内容摘要: %@LANGUAGE='VBSCRipT' CODEPAGE='65001'% % option explicit response.charset = 'UTF-8' session.codepage = 65001 session.timeout = 1440 server.scripttimeout = 9999 Function ShowTags......

  

<%@language="vbscript" codepage="65001"%>

<%

option explicit

response.charset = "utf-8"

session.codepage = 65001

session.timeout = 1440

server.scripttimeout = 9999


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"

'from:http://www.code-123.com

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

  版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


发布日期:2017-8-31 发布时间:9:16:40 点击:5 
  • 上一篇:汉字转声母
  • 下一篇:SPAN和DIV的区别
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2017

    YJCMS V2.2 Build 17.09.12(MSSQL)
    闽ICP备05000814号-1
    本空间由景安网络(VPS)提供

    百度云加速提供加速防护