📄 ubb_vb.asp
字号:
<%function UbbCode(content,iUBB,iType,iReplyType,GetIDstr,replyID,UserName)
if trim(content)="" then
UbbCode=""
exit Function
end if
dim re
if iUBB=2 then
UbbCode=HTMLencode(content)
exit Function
end if
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
content=server.htmlencode(content)
content=ChkBadWords(content)
re.Pattern="(^|\s)((http|https|ftp|rtsp|mms):\/\/\S+)"
content=re.Replace(content,"$1<img src=syspic/url.gif align=absmiddle><a href=""$2"" target=_blank>$2</a>")
re.Pattern="(^|\s)(www\.\S+)"
content=re.Replace(content,"$1<img src=syspic/url.gif align=absmiddle><a href=""http://$2"" target=_blank>$2</a>")
content=LimitReturns(content)
content=ConvertReturns(content)
if (boardSet(14)="1") then
if (not(iUBB=1)) then content=Smilies(content)
end if
if (iUBB=3) then UbbCode=(content)
re.Pattern="(\[URL\])(http|https|ftp|rtsp|mms)(:\/\/.[^\[]*)(\[\/URL\])"
content=re.Replace(content,"<a href=""$2$3"" target=_blank>$2$3</a>")
re.Pattern="(\[URL\])(\S+)(\[\/URL\])"
content=re.Replace(content,"<a href=""http://$2"" target=_blank>$2</a>")
re.Pattern="(\[EMAIL=)(\S+\@\S+)(\])(.[^\[]*)(\[\/EMAIL\])"
content=re.Replace(content,"<a href=""mailto:$2"">$4</a>")
re.Pattern="(\[EMAIL\])(\S+\@\S+)(\[\/EMAIL\])"
content=re.Replace(content,"<a href=""mailto:$2"">$2</a>")
re.Pattern="(\[code\])(.[^\[]*)(\[\/code\])"
content=re.Replace(content,"<br><table bgcolor="+colorSet(40)+" width=""100\%"" ><tr><td style=""padding:2px;"" width=""98\%""><FieldSet style=""padding:10px;""><Legend>代码(code)</Legend><pre><font face=""Verdana, Arial, Helvetica, sans-serif"">$2</font></pre></FieldSet></td></tr></table>")
re.Pattern="(\[IMG\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/IMG\])"
content=re.Replace(content,"<a href=""$2$3"" target=_blank><img src=""$2$3"" border=0 alt=""当前为原尺寸图""></a>")
re.Pattern="(\[IMG W=)(\d+)( B=)(\d+)(\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/IMG\])"
content=re.Replace(content,"<a href=""$6$7"" target=_blank><img src=""$6$7"" width=""$2"" border=""$4"" alt=""点击打开原尺寸图""></a>")
re.Pattern="(\[SOUND\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/SOUND\])"
content=re.Replace(content,"<a href=""$2$3"" target=_blank><IMG SRC=syspic/music.gif border=0 alt=""背景音乐""></a><bgsound src=""$2$3"" loop=""-1"">")
re.Pattern="(\[QUOTE\])"
content=re.Replace(content,"<BLOCKQUOTE>引用:<hr size=1 color="+colorSet(22)+">")
re.Pattern="(\[\/QUOTE\])"
content=re.Replace(content,"<hr size=1 color="+colorSet(22)+"></BLOCKQUOTE>")
re.Pattern="(\[QUOTE\])(.[^\[]*)(\[\/QUOTE\])"
re.Pattern="(\[c\])"
content=re.Replace(content,"©")
re.Pattern="(\[hr\])"
content=re.Replace(content,"<hr size=1 color="+colorSet(22)+">")
re.Pattern="(\[hr=)(\S+)(\])"
content=re.Replace(content,"<hr color=""$2"" size=1>")
re.Pattern="(\[b\])(.[^\[]*)(\[\/b\])"
content=re.Replace(content,"<b>$2</b>")
re.Pattern="(\[i\])(.[^\[]*)(\[\/i\])"
content=re.Replace(content,"<I>$2</I>")
re.Pattern="(\[u\])(.[^\[]*)(\[\/u\])"
content=re.Replace(content,"<u>$2</u>")
re.Pattern="(\[font=)(.[^\[]*)(\])(.[^\[]*)(\[\/font\])"
content=re.Replace(content,"<font face=""$2"">$4</font>")
re.Pattern="(\[size=)(\S+)(\])(.[^\[]*)(\[\/size])"
content=re.Replace(content,"<font style=\'font-family:""Courier New"";font-size: $2px;line-height:125%;\'>$4</font>")
re.Pattern="(\[color=)(\S+)(\])(.[^\[]*)(\[\/color\])"
content=re.Replace(content,"<font color=""$2"">$4</font>")
re.Pattern="(\[URL=)(http|https|ftp|rtsp|mms)(:\/\/.[^\[]*)(\])(.[^\[]*)(\[\/URL\])"
content=re.Replace(content,"<a href=""$2$3"" target=_blank>$5</a>")
re.Pattern="(\[URL=)(\S+)(\])(.[^\[]*)(\[\/URL\])"
content=re.Replace(content,"<a href=""http://$2"" target=_blank>$4</a>")
re.Pattern="(\[download=)(http|https|ftp)(:\/\/.[^\[]*)(\])(.[^\[]*)(\[\/download\])"
content=re.Replace(content,"<a href=""$2$3"" ><img src=syspic/download.gif border=0 align=absmiddle> $5</a>")
re.Pattern="(\[list\])(.[^\[]*)(\[\/list\])"
content=re.Replace(content,"<UL TYPE=SQUARE>$2</UL>")
re.Pattern="(\[list=)(A|1)(\])(.[^\[]*)(\[\/list\])"
content=re.Replace(content,"<OL TYPE=$2>$4</OL>")
re.Pattern="(\[\*\])"
content=re.Replace(content,"<LI>")
re.Pattern="(\[h1\])(.[^\[]*)(\[\/h1\])"
content=re.Replace(content,"<h1>$2</h1>")
re.Pattern="(\[h2\])(.[^\[]*)(\[\/h2\])"
content=re.Replace(content,"<h2>$2</h2>")
re.Pattern="(\[h3\])(.[^\[]*)(\[\/h3\])"
content=re.Replace(content,"<h3>$2</h3>")
re.Pattern="(\[h4\])(.[^\[]*)(\[\/h4\])"
content=re.Replace(content,"<h4>$2</h4>")
re.Pattern="(\[h5\])(.[^\[]*)(\[\/h5\])"
content=re.Replace(content,"<h5>$2</h5>")
re.Pattern="(\[h6\])(.[^\[]*)(\[\/h6\])"
content=re.Replace(content,"<h6>$2</h6>")
re.Pattern="(\[sup\])(.[^\[]*)(\[\/sup\])"
content=re.Replace(content,"<sup>$2</sup>")
re.Pattern="(\[sub\])(.[^\[]*)(\[\/sub\])"
content=re.Replace(content,"<sub>$2</sub>")
re.Pattern="(\[center\])(.[^\[]*)(\[\/center\])"
content=re.Replace(content,"<center>$2</center>")
re.Pattern="(\[left\])(.[^\[]*)(\[\/left\])"
content=re.Replace(content,"<div align=left>$2</div>")
re.Pattern="(\[right\])(.[^\[]*)(\[\/right\])"
content=re.Replace(content,"<div align=right>$2</div>")
re.Pattern="(\[pre\])(.[^\[]*)(\[\/pre\])"
content=re.Replace(content,"<pre>$2</pre>")
re.Pattern="(\[w\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/w\])"
content=re.Replace(content,"<iframe FRAMEBORDER=1 ALIGN=CENTER width=100\% HEIGHT=400 SCROLLING=YES SRC=""$2$3""></iframe><br><a href=""$2$3"" target=_blank><b><font color="+colorSet(3)+">点这儿参观页面</font></b></a>")
re.Pattern="(\[flash\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/flash\])"
content=re.Replace(content,"<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codeBase=""http://download.macromedia.com\/pub\/shockwave\/cabs\/flash\/swflash.cab#version=4,0,2,0"" width=500 height=500><param name=movie value=""$2$3""><param name=quality value=high><embed src=""$2$3"" quality=high pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=500 height=500></embed></object>")
re.Pattern="(\[flash W=)(\d+)( H=)(\d+)(\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/flash\])"
content=re.Replace(content,"<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codeBase=""http://download.macromedia.com\/pub\/shockwave\/cabs\/flash\/swflash.cab#version=4,0,2,0"" width=""$2"" height=""$4""><param name=movie value=""$6$7""><param name=quality value=high><embed src=""$6$7"" quality=high pluginspage=""http://www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application\/x-shockwave-flash"" width=""$2"" height=""$4""></embed></object>")
re.Pattern="(\[flash W=)(\d+)( H=)(\d+)(\])(\S+)(\[\/flash\])"
content=re.Replace(content,"<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codeBase=""http://download.macromedia.com\/pub\/shockwave\/cabs\/flash\/swflash.cab#version=4,0,2,0"" width=""$2"" height=""$4""><param name=movie value=""http://$6""><param name=quality value=high><embed src=""http://$6"" quality=high pluginspage=""http://www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application\/x-shockwave-flash"" width=""$2"" height=""$4""></embed></object>")
re.Pattern="(\[shock\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/shock\])"
content=re.Replace(content,"<object classid=""clsid:166B1BCA-3F9C-11CF-8075-444553540000"" codebase=""http://download.macromedia.com\/pub\/shockwave\/cabs\/director\/sw.cab#version=7,0,2,0"" width=500 height=500><param name=src value=""$2$3""><embed src=value=""$2$3"" pluginspage=http://www.macromedia.com\/shockwave\/download\/ width=500 height=500></embed></object>")
re.Pattern="(\[shock W=)(\d+)( H=)(\d+)(\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/shock\])"
content=re.Replace(content,"<object classid=""clsid:166B1BCA-3F9C-11CF-8075-444553540000"" codebase=""http://download.macromedia.com\/pub\/shockwave\/cabs\/director\/sw.cab#version=7,0,2,0"" width=""$2"" height=""$4""><param name=""src"" value=""$6$7""><embed src=""$6$7"" pluginspage=http://www.macromedia.com\/shockwave\/download\/ width=""$2"" height=""$4""></embed></object>")
re.Pattern="(\[qt W=)(\d+)( H=)(\d+)(\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/qt\])"
content=re.Replace(content,"<embed src=""$6$7"" width=$2 height=$4 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com\/quicktime\/>")
re.Pattern="(\[mp W=)(\d+)( H=)(\d+)(\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/mp\])"
content=re.Replace(content,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$2 height=$4 ><param name=ShowStatusBar value=-1><param name=Filename value=""$6$7""><embed type=application\/x-oleobject codebase=http://activex.microsoft.com\/activex\/controls\/mplayer\/en\/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3 width=$1 height=$4></embed></object>")
re.Pattern="(\[rm W=)(\d+)( H=)(\d+)(\])(http|https|ftp)(:\/\/.[^\[]*)(\[\/rm\])"
content=re.Replace(content,"<OBJECT classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" class=""OBJECT"" id=""RAOCX"" width=""$2"" height=""$4""><PARAM NAME=""SRC"" value=""$6$7""><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$2><PARAM NAME=SRC VALUE=""$6$7""><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")
UbbCode=(content)
end function
function ConvertReturns(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="\n\r\n"
content=re.Replace(content,"<p>")
re.Pattern="\n"
content=re.Replace(content,"<br>")
re.Pattern="\r"
content=re.Replace(content,"")
re.Pattern="(<p>){2,}"
content=re.Replace(content,"<p>")
re.Pattern="(<br><br>){2,}"
content=re.Replace(content,"<br>")
re.Pattern="<!"
content=re.Replace(content,"< !")
ConvertReturns= (content)
end function
function LimitReturns(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="\n{2,}"
content=re.Replace(content,"\n")
re.Pattern="(\n\r\n){2,}"
content=re.Replace(content,"\n\r\n")
re.Pattern="\r{2,}"
content=re.Replace(content,"\r")
LimitReturns= (content)
end function
function Smilies(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\[:)(V[0-9][0-9])(\])"
content=re.Replace(content,"<img src=""syspic/QQ/$2.gif"">")
re.Pattern="\?\:\("
content=re.Replace(content,"<img src=""syspic/UBBexpression/confused.gif"">")
re.Pattern="\:\(\)"
content=re.Replace(content,"<img src=""syspic/UBBexpression/mad.gif"">")
re.Pattern="\:\)"
content=re.Replace(content,"<img src=""syspic/UBBexpression/smile.gif"">")
re.Pattern="\:\("
content=re.Replace(content,"<img src=""syspic/UBBexpression/frown.gif"">")
re.Pattern="\:o"
content=re.Replace(content,"<img src=""syspic/UBBexpression/redface.gif"">")
re.Pattern=":D"
content=re.Replace(content,"<img src=""syspic/UBBexpression/biggrin.gif"">")
re.Pattern=";\)"
content=re.Replace(content,"<img src=""syspic/UBBexpression/wink.gif"">")
re.Pattern=":Q"
content=re.Replace(content,"<img src=""syspic/UBBexpression/tongue.gif"">")
re.Pattern=":P"
content=re.Replace(content,"<img src=""syspic/UBBexpression/tongue.gif"">")
re.Pattern=":j"
content=re.Replace(content,"<img src=""syspic/UBBexpression/eek.gif"">")
re.Pattern=":l"
content=re.Replace(content,"<img src=""syspic/UBBexpression/rolleyes.gif"">")
re.Pattern=":k"
content=re.Replace(content,"<img src=""syspic/UBBexpression/cool.gif"">")
re.Pattern=":st"
content=re.Replace(content,"<img src=""syspic/UBBexpression/st.gif"">")
re.Pattern=":ns"
content=re.Replace(content,"<img src=""syspic/UBBexpression/ns.gif"">")
Smilies=(content)
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -