VBScript 函数 之 标签链接

QUOTE:

标题: VBScript 函数 之 标签链接

作用: 以逗号(,)分界标签, 完美实现.

shawl.qiu
2006-7-2

1. linenum
2. '标签连接函数
3. 'sample call '''// ftaglink(tag_) //'''
4. function ftaglink(tag)
5.     if isNull(tag) then exit function
6.     if instr(tag,",")=0 then 
7.         tag="<a href=""tag.asp?id=tag&tag="&tag&"#anchor"">"&tag&"</a>"
8.     else
9.         set re=new regExp
10.             re.global=true
11.             re.ignoreCase=true
12.             
13.             re.pattern="(.*?),"
14.             tag=re.replace(tag,"<a href=""tag.asp?id=tag&tag=$1#anchor"">$1</a>,")
15.             
16.             re.pattern="(.*,)(.*)"
17.             tag=re.replace(tag,"$1<a href=""tag.asp?id=tag&tag=$2#anchor"">$2</a>")
18.             
19.         set re=nothing
20.     end if
21.         response.write tag
22. end function