asp下tag的实现,简单介绍与部分代码


标签(Tag)是什么?
标签是一种更为自由、灵活,完全由用户决定的分类方式,而非传统的由网站定义的分类。您可以根据自己的理解,对发表的文章、上传的图片、音乐、视频等各种文件添加一个或多个标签,进行灵活的描述。
添加标签(Tag)有什么作用?
标签体现了群体的力量,使得用户之间可以通过相近的内容产生更多的关联和互动。您在发表日志或上传文件时添加了Tag ,就可以看到woku.com所有和您使用了相同Tag 的日志和文件。
标签频道中不同大小、粗细的文字代表什么?
使用不同大小、粗细字体的标签,代表着标签不同的使用频率。字体越大、越粗,说明这些标签的使用频率越高。
添加标签时需要注意些什么?
① 多个标签之间请用空格分隔。
② 每个标签的最大长度为 10 个汉字。
③ 每篇日志或每个文件最多只能添加10个标签,这包括您自己以及其他用户添加的标签。
我可以在别人发表的日志和文件中添加标签吗?
您可以根据浏览对象的阅读权限来判断是否可以添加标签。公开的日志或文件,所有用户都可以添加标签;仅供好友浏览的日志,只有好友和作者能添加标签;仅作者可以浏览的日志或文件,只有作者能够添加标签。当然,无论是谁添加的标签,都只有该日志或文件的作者可以修改或删除这些标签。
所以呢我找了些实现tag功能的asp代码,仅供参考

复制代码 代码如下:

'*********************************************************
' 目的: 定义TTag类
' 输入: 无
' 返回: 无
'*********************************************************
Class TTag

Public ID
Public Name
Public Intro
Public Order
Public Count


Public Property Get EncodeName
EncodeName = Server.URLEncode(Name)
End Property

Public Property Get Url
Url = ZC_BLOG_HOST & "catalog.asp?"& "tags=" & Server.URLEncode(Name)
End Property

Public Property Get HtmlUrl
HtmlUrl=TransferHTML(Url,"[html-format]")
End Property

Public Property Get HtmlIntro
HtmlIntro=TransferHTML(Intro,"[html-format]")
End Property

Public Property Get HtmlName
HtmlName=TransferHTML(Name,"[html-format]")
End Property

Public Property Get RssUrl
RssUrl = ZC_BLOG_HOST & "sydication.asp?tags=" & ID
End Property

Public Function Post()

Call CheckParameter(ID,"int",0)
Call CheckParameter(Order,"int",0)

Name=FilterSQL(Name)
Name=TransferHTML(Name,"[normalname]")
If Len(Name)=0 Then Post=False:Exit Function

Intro=FilterSQL(Intro)
Intro=TransferHTML(Intro,"[html-format]")


If ID=0 Then
objConn.Execute("INSERT INTO [blog_Tag]([tag_Name],[tag_Order],[tag_Intro]) VALUES ('"&Name&"',"&Order&",'"&Intro&"')")
Else
objConn.Execute("UPDATE [blog_Tag] SET [tag_Name]='"&Name&"',[tag_Order]="&Order&",[tag_Intro]='"&Intro&"' WHERE [tag_ID] =" & ID)
End If

Post=True

End Function


Public Function LoadInfoByID(tag_ID)

Call CheckParameter(tag_ID,"int",0)

Dim objRS
Set objRS=objConn.Execute("SELECT [tag_ID],[tag_Name],[tag_Intro],[tag_Order],[tag_Count] FROM [blog_Tag] WHERE [tag_ID]=" & tag_ID)

If (Not objRS.bof) And (Not objRS.eof) Then

ID=objRS("tag_ID")
Name=objRS("tag_Name")
Intro=objRS("tag_Intro")
Order=objRS("tag_Order")
Count=objRS("tag_Count")

LoadInfoByID=True

End If

objRS.Close
Set objRS=Nothing

If IsNull(Intro) Then Intro=""

End Function

Public Function LoadInfoByArray(aryTagInfo)

If IsArray(aryTagInfo)=True Then
ID=aryTagInfo(0)
Name=aryTagInfo(1)
Intro=aryTagInfo(2)
Order=aryTagInfo(3)
Count=aryTagInfo(4)
End If

If IsNull(Intro) Then Intro=""

LoadInfoByArray=True

End Function


Public Function Del()

Call CheckParameter(ID,"int",0)
If (ID=0) Then Del=False:Exit Function

Dim s
Dim i
Dim objRS

Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""

objRS.Open("SELECT [log_ID],[log_tag] FROM [blog_Article] WHERE [log_Tag] LIKE '%{" & ID & "}%'")

If (Not objRS.bof) And (Not objRS.eof) Then
Do While Not objRS.eof
i=objRS("log_ID")
s=objRS("log_tag")
s=Replace(s,"{"& ID &"}","")
objConn.Execute("UPDATE [blog_Article] SET [log_tag]='"& s &"' WHERE [log_ID] =" & i)
objRS.MoveNext
Loop
End If
objRS.Close

objConn.Execute("DELETE FROM [blog_Tag] WHERE [tag_ID] =" & ID)
Del=True
End Function


Public Function MakeTemplate(s)

s=Replace(s,"<#article/tag/id#>",ID)
s=Replace(s,"<#article/tag/name#>",HtmlName)
s=Replace(s,"<#article/tag/intro#>",HtmlIntro)
s=Replace(s,"<#article/tag/count#>",Count)
s=Replace(s,"<#article/tag/url#>",HtmlUrl)
s=Replace(s,"<#article/tag/encodename#>",EncodeName)

MakeTemplate=s

End Function


End Class
'*********************************************************


'*********************************************************
' 目的: Tags读取
'*********************************************************
Function GetTags()

Dim i,j,k,l

Dim aryAllData
Dim arySingleData()

Erase Tags

Dim objRS

Set objRS=objConn.Execute("SELECT TOP 1 [tag_ID] FROM [blog_Tag] ORDER BY [tag_ID] DESC")
If (Not objRS.bof) And (Not objRS.eof) Then
i=objRS("tag_ID")
ReDim Tags(i)
End If

Set objRS=objConn.Execute("SELECT [tag_ID],[tag_Name],[tag_Intro],[tag_Order],[tag_Count] FROM [blog_Tag] ORDER BY [tag_ID] ASC")
If (Not objRS.bof) And (Not objRS.eof) Then

aryAllData=objRS.GetRows(objRS.RecordCount)
objRS.Close
Set objRS=Nothing

k=UBound(aryAllData,1)
l=UBound(aryAllData,2)
For i=0 To l
Set Tags(aryAllData(0,i))=New TTag
Tags(aryAllData(0,i)).LoadInfoByArray(Array(aryAllData(0,i),aryAllData(1,i),aryAllData(2,i),aryAllData(3,i),aryAllData(4,i)))
Next

End If

GetTags=True

End Function




相关阅读:
Windows Server 2008之可移动存储访问组策略设置
可以文本显示的公告栏的js代码
Linux操作系统上摄像头的使用小技巧
FreeBSD FTP 的架设教程
3个比较有用的网页制作技巧
用vbs实现获取电脑硬件信息的脚本_最新版
windows文件夹管理list视图方式
使用函数自动生成n层目录
如何快速找到CSS的BUG
Ctrl + Enter提交前检测的代码
(二)字的艺术
VBS教程:VBScript 语句-With 语句
ExtJS4 组件化编程,动态加载,面向对象,Direct
js怎样实现下拉框改变,它旁边的图像也改变
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 小学五年级作文550字:“死亡之山”历险记 实习班主任老师工作总结 经典双语励志句子 比阳光更温暖的宽容作文700字 真挚的友情作文 有关蝉的诗句 小学四年级作文400字:第一次整理房间 2014年文联工作总结-部门工作总结_部门工作总结 我学不会忘记 励志故事:选错了对手,也许就选错了人生方向 跋《灰色马》翻译 小学四年级作文500字:一张难忘的照片 六一儿童节幼儿园园长致辞 八年级上册体育教学计划 关于拥有 关于失去 初中的颜色作文500字 和谐社会构建中的心理建设论文 狗熊黑黑的葵花林 高中高三作文1500字:魔术奇缘(三) 记得去抓住眼前的美好作文700字 “我爱大自然”主题班会 秋日湄屿 花开已败,流年已落。 青春文学《骄阳似我》推荐 我的梦·中国梦作文1000字 公司竞聘考评实施办法 最美基层干部先进性教育 人生哲理小故事,看完之后,领悟了很多。 祝福别人生日的话 感谢上苍 寻觅千百度,只为夏兰 蟋蟀还乡作文1000字 医院治庸问责整治情况工作总结 市场专项整治工作总结 市粮食系统开展教育活动的讲话 孝心无价读后感300字3篇 《荷塘月色》朱自清 中学生微笑面对生活演讲稿800字 谁能说清楚 叹一句一怀愁绪心茫然 思友悠悠 贪吃的土拨鼠作文900字 因为她是你的母亲 挽断罗衣留不住 二情同依依前一句是什么?古诗为焦仲卿妻作_孔雀东南飞_孔雀东南飞原文全诗_古诗词名句欣赏 王子与贫儿读后感500字 小学六年级作文350字:美丽的池塘 新书包 游锡惠公园作文200字 小兔救火 让时间见证,最终的结局

Copyright © 2016 phpStudy |