当前位置：网站首页 > 资源显示

置顶推荐asp标签函数（支持增减计数），tags标签管理，ASP智能标签tags处理程序

发布时间：2017/7/24 12:35:50 / 最后修改：2019-4-9 12:45:53 / 浏览：887

强迫症爆棚，写了个一个超级洁癖的标签处理程序见完整代码

2019-04-09 日修改过BUG , 暂时还没发现有啥问题

完整代码（代码框可以往下拉高显示）：

###########  数据表：###########

== 标签表 jxw_tags ==

编号：id
标签：tname
次数：hits 就是多少条信息包含这个标签
推荐：isbest 默认0不推荐，1推荐
是否显示：onkey  默认1显示，0不显示
排序：pid  (越大越靠前，默认0)

###########  函数部分：###########

'------ tags 处理函数 -------
function TagsAdd(tagslist)'新增标签
if tagslist="" then
exit function
end if
dim sql,tags,tagsstr
tags="|"&tagslist&"|"'强制前后加串联符号，方便循环检测
tagsstr=split(tags,"|")
for i=0 to ubound(tagsstr) 
if tagsstr(i)<>"" then
'--- SQL 语句顺序不能错，先是检测没有就加标签，第二部检测有了，HITS加1
sql=sql&"if(select count(*) from jxw_tags where tname='"&tagsstr(i)&"') = 0 INSERT INTO jxw_tags (tname) VALUES ('"&tagsstr(i)&"');if exists (select * from jxw_tags where

tname='"&tagsstr(i)&"') update jxw_tags set hits=(hits+1) where tname='"&tagsstr(i)&"';"
end if
next 
if sql<>"" then
set rs=conn.execute(sql) 'sql 批处理语句
end if
end function
'-----
function TagsDel(tagslist)'删除标签
if tagslist="" then
exit function
end if
dim sql,tags,tagsstr
tags="|"&tagslist&"|"'强制前后加串联符号，方便循环检测
tagsstr=split(tags,"|")
for i=0 to ubound(tagsstr) 
if tagsstr(i)<>"" then
sql=sql&"if exists (select * from jxw_tags where tname='"&tagsstr(i)&"') update jxw_tags set hits=(hits-1) where tname='"&tagsstr(i)&"';if exists (select * from jxw_tags where

tname='"&tagsstr(i)&"') delete from jxw_tags where tname='"&tagsstr(i)&"' and hits<1"
end if
next  
if sql<>"" then
'response.Write(sql)
set rs=conn.execute(sql) 'sql 批处理语句
end if
end function
'----- 新旧标签对比(修改)
function TagsEdit(tags,newtags)
'tags=旧标签;newtags=修改的新标签
dim v1,v2,v1str,v2str,str_a,str_d
v1="|"&tags&"|"
v2="|"&newtags&"|"
v1str=split(v1,"|")'切割新旧标签，等待比对新标签
v2str=split(v2,"|")'切割新标签，等待比对旧标签
'----------
for i=0 to ubound(v2str) '分析新增标签
 if v2str(i)<>"" then
    if instr(v1,"|"&v2str(i)&"|")=0 then '在旧标签里没找到v2str(i) 表示新曾
	   str_a=str_a&"|"&v2str(i)&"|"
	end if
 end if
next
str_a=replace(str_a,"||","|") '新增标签过滤
'----------
for i=0 to ubound(v1str) '分析删除标签
 if v1str(i)<>"" then
    if instr(v2,"|"&v1str(i)&"|")=0 then '在新标签里没找到v1str(i) 表示删除
	   str_d=str_d&"|"&v1str(i)&"|"
	end if
 end if
next
str_d=replace(str_d,"||","|") '删除标签
'--------
TagsAdd str_a'新增标签
TagsDel str_d'删除标签
end function

###########  应用部分：###########

标签字段 中间用 | 串联，前后不用

1：新发布：

dim tags
tags=sqlcheck(trim(request.Form("tags")))
if tags<>"" then
   TagsAdd tags '新增标签
end if

'-------------

2：修改：

dim tags,tags1
tags=sqlcheck(trim(request.Form("tags"))) '新修改
tags1=sqlcheck(trim(request.Form("tags1"))) '修改前
if tags1<>tags then '表示前后有不同，就必须修改
   TagsEdit tags1,tags
end if

###########  关键SQL语句注释：###########

增加标签关键SQL
--if exists (select * from jxw_tags where tname='test') update jxw_tags set hits=(hits+1) where tname='test'
--如果tname='test'已经存在，那就 hits=hits+1 操作

--if(select count(*) from jxw_tags where tname='test') = 0 INSERT INTO jxw_tags (tname) VALUES ('test')
--如果tname='test'不存在，就直接写入

删除标签关键SQL

--if exists (select * from jxw_tags where tname='马云') update jxw_tags set hits=(hits-1) where tname='马云' 
--记录减去1

--if exists (select * from jxw_tags where tname='马云') delete from jxw_tags where tname='马云' and hits<1 
--记录小于1就直接删除了，记住不能是1，有时候先删除，会有-1容错

附件资源（免费）

您尚未登录，暂时无法查阅资源！立即登录

插播广告区

发表评论

您尚未登录，暂时无法发表评论。立即登录

暂无任何评论

推荐资源更多 >>

付费资源更多 >>

广告区