我想把 {$GetDownIntro} 修改一下，加上以下代码，但不知道位置

Function FormatImglink(content,url,totalpage)

          dim re:Set re=new RegExp

           re.IgnoreCase =true

           re.Global=True

     '去除onclick,onload等脚本

            re.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"

            Content = re.Replace(Content, "")

   Dim LinkStr

      If TotalPage=1 Then

    LinkStr="href=""$2"" target=""_blank"""

   Else

    LinkStr="href=""" & Url & """"

   End If

   

     '将SRC不带引号的图片地址加上引号

            re.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>"

            Content = re.Replace(Content, "<a " & LinkStr & "><img src2=""$2"" alt="""&GetNodeText("title")&"""return bbimg(this)""javascript:resizepic(this)"" border=""0""/></a>")

     '正则匹配图片SRC地址

     re.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>"

           Content = re.Replace(Content, "<a " & LinkStr & "><img src2=""$2"" alt="""&GetNodeText("title")&"""return bbimg(this)""javascript:resizepic(this)"" border=""0""/></a>")

    set re = nothing

          FormatImglink = content

  end function