引用:
原帖由 skyforever 于 2007-4-23 16:54 发表
什么是纯恶意加tag？
tags不是在发布文章时候由管理员添加的么？（zblog的情况）
－－－－－－
主要不是很清楚你的友链程序是怎么样的一个思路。
是通过asp网页形式的么？
偶在写滴是asp+access的友链管理程序。参见http://perichr.cn/b/links.asp，参考ZB的模板方式粗粗做了前台显示和加入链接功能，在ZB后台的插件管理暂时还没做……（顺便请教，怎样在同一台机子上调试IE6和IE7？我试过装网上的绿色版IE6，但是用它开任何网页都会新开一个IE7的窗口来显示，郁闷死了……我现在试css都只能考虑IE7和Fx了……）
ZB自己加入文章当然是没什么问题的，但是偶滴友链程序想提供网友自助加入功能，所以……
呃，当然ZB如果没关闭注册的话也可以新建用户然后恶意刷Tag，但是……这是不是说明偶滴心理比较阴暗……
而且，这并不会对ZB的Tag计数有影响。
其实这个问题也没什么大不了的，但是……偶就是觉得不爽……
完全不懂数组的用法……因此偶干脆乱来了一个，感觉效率暴低……呜呜，偶果然是七窍通了六窍的人物啊……不过试了下好像勉强能用了……但还是觉得非常不爽，这种代码我宁可不用上去……
楼上楼下的高人快来指点啊~~
-------
复制内容到剪贴板
代码:
Dim strTag:strTag=" 标签 tag tag 标 标签 郁闷啊！ 不爽 不爽 不爽 ！ ! "
Dim xx,yy
Dim x,y,b,c
xx=Split(strTag," ")
For Each x In xx
If Not x="" Then
If c="" Then
c=x
Else
b=True
yy=Split(c," ")
For Each y In yy
If y=x Then
b=False:Exit For
End If
Next
If b Then c = c & " " & x
End If
End If
Next
yy=Split(c," ")[
本帖最后由 PeriCHR 于 2007-4-23 18:58 编辑 ]
