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

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

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

  

<[email protected]="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

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


发布日期:2013-03-13 发布时间:19:51:56 点击:5177 录入:齐天大圣
  • 上一篇:汉字转声母
  • 下一篇:SPAN和DIV的区别
  • 本类新增
    本类热门文章
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2017
    最佳1024*768浏览
    闽ICP备05000814号-1
    YJCMS V1.7 Build 17.1.25

    本空间由景安网络科技提供
    友荐云推荐