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

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

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

  

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("....天空web开发代码站asp及其他web开发相关经典....")

%>

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


发布日期:2013/3/13 发布时间:19:51:56 点击:5347 录入:齐天大圣
  • 上一篇:汉字转声母
  • 下一篇:SPAN和DIV的区别
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2017

    最佳1024*768浏览
    YJCMS V2.0 Build 17.06.11(MSSQL)
    闽ICP备05000814号-1
    本空间由力天互联提供