上面的函数可以实现的啊!
如果有不是../开头的建议你加一个判断 dim str=rs("html")if left(str,3)<>"../" then str =mid(str,4,len(str)-3)end if