300分求UBB代码调用与存储到ACCESS数据库中的代码~谢谢 ,解决了给分.

[SQL_study]

300分求UBB代码调用与存储到ACCESS数据库中的代码~谢谢 ,解决了给分.

[SQL_study]

贴子不发多了，没有看啊，自己顶了~

[kwer]

function UBB2HTML(str)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True

'换行
objRegExp.Pattern="(\[br\])"
str=objRegExp.Replace(str,"<br/>")

'下划线
objRegExp.Pattern="(\[u\])(.+?)(\[\/u\])"
str=objRegExp.Replace(str,"<u>$2</u>")

'斜体
objRegExp.Pattern="(\[i\])(.+?)(\[\/i\])"
str=objRegExp.Replace(str,"<i>$2</i>")

'加粗
objRegExp.Pattern="(\[b\])(.+?)(\[\/b\])"
str=objRegExp.Replace(str,"<b>$2</b>")

'双横线
objRegExp.Pattern="(\[QUOTE\])(.+?)(\[\/QUOTE\])"
str=objRegExp.Replace(str,"<BLOCKQUOTE><font size=2 face=""Verdana, Arial"">引用:</font><HR>$2<HR></BLOCKQUOTE>")

'红色
objRegExp.Pattern="(\[red\])(.+?)(\[\/red\])"
str=objRegExp.Replace(str,"<FONT COLOR=""#ff0000"">$2</FONT>")
'灰色
objRegExp.Pattern="(\[gray\])(.+?)(\[\/gray\])"
str=objRegExp.Replace(str,"<FONT COLOR=""#77ACAC"">$2</FONT>")
'绿色
objRegExp.Pattern="(\[green\])(.+?)(\[\/green\])"
str=objRegExp.Replace(str,"<FONT COLOR=""#009933"">$2</FONT>")
'蓝色
objRegExp.Pattern="(\[blue\])(.+?)(\[\/blue\])"
str=objRegExp.Replace(str,"<FONT COLOR=""#0055ff"">$2</FONT>")
'任何颜色字
objRegExp.Pattern="(\[color\=)(.+?)(\])(.+?)(\[\/color\])"
str=objRegExp.Replace(str,"<FONT COLOR=""$2"">$4</FONT>")

'电子邮件
objRegExp.Pattern="(\[EMAIL\])(\S+\@\S+?)(\[\/EMAIL\])"
str= objRegExp.Replace(str,"<A HREF=""mailto:$2"">$2</A>")

'带链接的文字
objRegExp.Pattern="(\[URL\])(http:\/\/\S+?)(\[\/URL\])"
str= objRegExp.Replace(str,"<A HREF=""$2"" TARGET=_blank>$2</A>")
objRegExp.Pattern="(\[URL\])(\S+?)(\[\/URL\])"str= objRegExp.Replace(str,"<A HREF=""http://$2"" TARGET=_blank>$2</A>")

'滚动
objRegExp.Pattern="(\[marquee\])(.+?)(\[\/marquee\])"
str=objRegExp.Replace(str,"<marquee scrollamount='3' id=xxskybbs onmouseover=xxskybbs.stop() onmouseout=xxskybbs.start()>$2</marquee>")

'回滚
objRegExp.Pattern="(\[marqueea\])(.+?)(\[\/marqueea\])"
str=objRegExp.Replace(str,"<marquee behavior=""alternate"" scrollamount='3' id=xxskybbs onmouseover=xxskybbs.stop() onmouseout=xxskybbs.start()>$2</marquee>")

'带链接的图片
objRegExp.Pattern="(\[IMGurl\=)(http:\/\/\S+?)(\])(http:\/\/\S+?)(\[\/IMGurl\])"
str=objRegExp.Replace(str,"<a href=""$2"" target=_blank><IMG SRC=""$4"" border=0 onload=""javascript:if(this.width>screen.width-366)this.width=screen.width-366""></a>")
objRegExp.Pattern="(\[IMGurl\=)(\S+?)(\])(\S+?)(\[\/IMGurl\])"
str=objRegExp.Replace(str,"<a href=""http://$2"" target=_blank><IMG SRC=""http://$4"" border=0 onload=""javascript:if(this.width>screen.width-366)this.width=screen.width-366""></a>")

'图片
objRegExp.Pattern="(\[IMG\])(\S+?)(\[\/IMG\])"
str=objRegExp.Replace(str,"<IMG SRC=""$2"">")

set objRegExp=Nothing
UBB2HTML=str
end function

[kwer]

function ubb2Html(val)
{
val = val.replace(/\[b\]([^\[\]]*)\[\/b\]/ig, "<b>$1</b>");
val = val.replace(/\[strong\]([^\[\]]*)\[\/strong\]/ig, "<strong>$1</strong>");
val = val.replace(/\[i\]([^\[\]]*)\[\/i\]/ig, "<i>$1</i>");
val = val.replace(/\[a href=\"?([^ \'\"\[\]]*)\"?\]([^\[\]]*)\[\/a\]/ig, "<a href=\"$1\" target=\"_blank\">$2</a>");
return val;
}