urls自动识别生成链接用asp怎么写呢？

zcllcz 2005-05-19 04:55:42

怎么在留言板上写出例如sohu网址，会自动生成链接

例如http://www.sohu.com

个人思路用replace把http://替换成href=fsdfasd">http://

如果后面遇到汉字刚把前一个字符后面加上</a>
附----
//判断是否中文函数
function ischinese(s){
var ret=true;
for(var i=0;i<s.length;i++)
ret=ret && (s.charCodeAt(i)>=10000);
return ret;
}
-------------
这是javascript

望指点给出完整程序行不？
毕设在即啊

附一段正则表达式但不明白
<%
Function Change(strContent)
On Error Resume Next
strContent = FilterJS(strContent)
Dim RegExpress
Dim reContent
Set RegExpress = New RegExp
RegExpress.IgnoreCase = True
RegExpress.Global = True
RegExpress.Multiline = True

'自动识别网址
RegExpress.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%
\-&_~`@':+!]+)"
strContent = RegExpress.Replace(strContent, "<a target=_blank href=$1>$1</a>")

RegExpress.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\
-&_~`@':+!]+)$"
strContent = RegExpress.Replace(strContent, "<a target=_blank href=$1>$1</a>")

RegExpress.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-
9\./=\?%\-&_~`@':+!]+)"
strContent = RegExpress.Replace(strContent, "$1<a target=_blank href=$2>$2</a>
")

'自动识别www等开头的网址
RegExpress.Pattern = "([^(http://|http:\\])((www|cn)[.](\w)+[.]{1,}(net|com|c
n|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}
([\&](\w)+[\=](\w)+)*)*)"
strContent = RegExpress.Replace(strContent, "<a target=_blank href=http://$2>$
2</a>")

'自动识别Email地址，如打开本功能在浏览内容很多会引起服务器停顿
'RegExpress.Pattern = "([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"
'strContent = RegExpress.Replace(strContent,"<a target=_blank href=""mailt$2""
>$2</a>")

Set re = Nothing
UBBCode = strContent
End Function%>
在须要的地方加上一Change(?????)，

没试，应该可以，是从别人的ＵＢＢＣＯＤＥ中剪下的

急啊

...全文