ASP常用函数自动获取匹配文章标签(Tags)、关键字:ShowTags()
2009-06-04 11:11:53 来源:WEB开发网程序代码
<%@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"
'From:http://www.cncms.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
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开发相关经典代码收集博客 - ASP交流QQ群12814238(满) 14725152(开放)http://code.dlstu.cn","逸品天空Web开发代码站ASP及其他Web开发相关经典代码收集博客 - ASP交流QQ群12814238(满) 14725152(开放)http://code.dlstu.cn")
%>
- ››asp.net页面弄成伪静态页面
- ››常用的Windows 7操作系统实用技巧
- ››Asp.net 中将汉字转换成拼音的方法
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
赞助商链接