请各位老大指教两个问题
tboer 2002-07-21 11:27:28 一是有无办法用SQL语句对access数据库的字段改名?我试了一些sql语句似乎无用!
二是下面自动识别url的正则表达式为何会“吃掉"一个字符?
比如,str=“欢迎访问:http://www.sina.com.cn”,应用下面的函数<%=UBBCode(str)%>后,url自动识别了,但冒号不见了,变成:“欢迎访问http://www.sina.com.cn”
<%function UBBCode(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern = "^(http://[A-Za-z0-9\./,!:=\?%\-&_~`@'+]+)"
str = re.Replace(str,"<img align=absmiddle src=images/aurl.gif><a target=_blank href=$1>$1</a>")
re.Pattern = "(http://[A-Za-z0-9\./,!:=\?%\-&_~`@'+]+)$"
str = re.Replace(str,"<img align=absmiddle src=images/aurl.gif><a target=_blank href=$1>$1</a>")
re.Pattern = "[^>=""](http://[A-Za-z0-9\.\/,!:=\?%\-&_~`@'+]+)"
str = re.Replace(str,"<img align=absmiddle src=images/aurl.gif><a target=_blank href=$1>$1</a>")
set re=Nothing
UBBCode=strContent
end function%>