收藏 分站 简化版 股指 预订
日历 地图 计算器 行情 电脑
影视 携程 导购 WAP 排行
首页 软件 源码 网络 窍门 笑话 知识 公告
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
您现在的位置:首页 >> 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-03-13 发布时间:19:51:56 点击:5169 录入:齐天大圣
  • 上一篇:汉字转声母
  • 下一篇:SPAN和DIV的区别
  • 本类新增
    本类热门文章
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2017

    最佳1024*768浏览
    闽ICP备05000814号-1
    YJCMS V1.7 Build 17.1.25

    本免费空间由景安网络(yjyy)提供