tboer 2002年07月21日
请各位老大指教两个问题
一是有无办法用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%>
...全文
8 点赞 收藏 3
写回复
3 条回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告