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

　　推荐阅读

　　vbs(asp)下的Function 语句

Function 语句声明 Function 过程的名称、参数以及构成其主体的代码。 [Public [Default]| Private] Function name [( arglist )] [statements] [name = expression] [Exit Function] [statements] [name = >>>详细阅读

本文标题：asp下tag的实现,简单介绍与部分代码

地址：http://www.17bianji.com/kaifa2/ASP/32625.html

1/2 1