pjblog的ubbcodeasp文件(3)

日期：2020-06-26 栏目：程序人生浏览：次

   re.Pattern = "\[email](.[^\[]*)\[\/email]"
   Set strMatchs=re.Execute(strContent)
   For Each strMatch in strMatchs
    tmpStr1=checkURL(strMatch.SubMatches(0))
    strContent=replace(strContent,strMatch.Value,"<a href=""https://www.jb51.net/mailto:"https://www.jb51.net/&tmpStr1&""">"https://www.jb51.net/&tmpStr1&"</a>",1,-1,0)
   Next