1.数据库添加

sql="create table [mgtag](id autoincrement(1,1) primary key,tagname text(255),tagurl text(255))"

2.后台添加管理功能

修改文件 http://www.9b01.net/zzjwl/admin_club.asp?menu=link

http://www.9b01.net/zzjwl/admin.asp

写了个函数：

Function xieTag(who)
Dim s
s=who
rs.Open "mgtag",Conn
do while not rs.eof
s=replace(s,rs("tagname"),"<a href="""+rs("tagurl")+""" >"+rs("tagname")+"</a>")
rs.movenext
loop
rs.close
xieTag=s
End Function

终于完成了早就有的这个想法。把复杂问题，分解为简单步骤，一步一步来，这样压力就小了，目标也容易实现。