怎样改成ASP.NET???
怎样改成ASP.NET???
function newsCode(fString As String)
DIm re As Regex
re = new Regex
re.IgnoreCase =true
re.Global=True
re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
fString = re.Replace(fString,"<a target=_blank href=$1>$1</a>")
re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
fString = re.Replace(fString,"<a target=_blank href=$1>$1</a>")
re.Pattern = "[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
fString = re.Replace(fString,"<a target=_blank href=$1>$1</a>")
re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
fString = re.Replace(fString,"<a target=_blank href=$1>$1</a>")
re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
fString = re.Replace(fString,"<a target=_blank href=$1>$1</a>")
re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
fString = re.Replace(fString,"<a target=_blank href=$1>$1</a>")
re.Pattern="(\[UPLOAD=pic\])(.[^\[]*)(\[\/UPLOAD\])"
strContent= re.Replace(strContent,"<br><A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>80)this.width=80""></A>")
re.Pattern="(\[UPLOAD=(.[^\[]*)\])(.[^\[]*)(\[\/UPLOAD\])"
strContent= re.Replace(strContent,"<br><IMG SRC=""images/down.gif"" border=0> <a href=""$3"">点击浏览该文件</a>")
Set re = Nothing
newsCode = fString
end function
谢谢.............