<script language="VbScript">
<!--
s = "1.cn<br>2.cn<br>3.cn"
Set oRe = New RegExp
oRe.Pattern = "[^<> ]+\.[^<> ]+"
oRe.Global = True
oRe.IgnoreCase = True
Set Matches = oRe.Execute(s)
For Each Match in Matches
s = Replace(s,Match.value,"<a href=""" & Match.value & """>" & Match.value & "</a>")
Next
alert(s)
Document.write (s)
//-->
</script>