<%

'使链接地址文本变成带链接的文本

function ConvertURL(text)

 set regExpConv=new regExp

 'regExpConv.pattern="((http|ftp)://)?(((([d]+.)+){3}[d]+(/[w./]+)?)|([a-z]w*((.w+)+){2,})([/][w.~]*)*)"

 'regExpConv.pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"

 'regExpConv.pattern="(([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"

 regExpConv.pattern="(http://)?([a-zA-Z0-9]+(\.))?[a-zA-Z0-9]+(\.(com|net|org|gov.cn|info|cc|com.cn|net.cn|org.cn|name|biz|tv|cn)+)+/?"

 'regExpConv.IgnoreCase = True 　　'设置是否区分字符大小写。

 regExpConv.Global = True 

 if regExpConv.Test(text)=true then

  ConvertURL=1

  'text=regExpConv.replace(text,"<a href='http://$1' target=_blank >$1</a>")

 else

  ConvertURL=0

 end if

 set regExpConv=nothing 

end function

'验证固话

function ConvertTel(text)

 set regExpConv=new regExp

 regExpConv.pattern="[0-9]{3,4}\-?[0-9]{7,8}|\(?[0-9]{3,4}\)?\-?[0-9]{7,8}"

 regExpConv.Global = True 

 if regExpConv.Test(text)=true then

  ConvertTel=1

 else

  ConvertTel=0

 end if

 set regExpConv=nothing

end function

'验证手机号

function Convertmobile(text)

 set regExpConv=new regExp

 regExpConv.pattern="13[0-9]{9}"

 regExpConv.Global = True 

 if regExpConv.Test(text)=true then

  Convertmobile=1

 else

  Convertmobile=0

 end if

 set regExpConv=nothing

end function

'验证ＥＭＡＩＬ

function ConvertEmail(text)

 set regExpConv=new regExp

 regExpConv.pattern="[a-zA-Z0-9_\.]+@[a-zA-Z0-9-]+[\.a-zA-Z]+"

 regExpConv.Global = True 

 if regExpConv.Test(text)=true then

  ConvertEmail=1

 else

  ConvertEmail=0

 end if

 set regExpConv=nothing

end function

%>