ubbcode.asp
复制代码 代码如下:
<%
FunctionUBBCode(strContent)
IfisEmpty(strContent)OrisNull(strContent)Then
ExitFunction
Else
dimregex,strMatch
setregex=newRegExp
regex.IgnoreCase=True
regex.Global=True
regex.Pattern="[html]((rn)?([sS]+?))[/html]"
SetstrMatchs=regex.Execute(strContent)
ForEachstrMatchinstrMatchs
'response.writestrMatch.SubMatches(3)
Randomize
rndID="runcode"&Int(100000*Rnd)
strContent=Replace(strContent,strMatch.Value,"<br/><fontcolor=red>HTML代码:</font><TEXTAREAstyle=""width:96%;height:300px;""id="""&rndID&"""class=""htmlarea"">"&UBBFilter(HTMLDecode(strMatch.SubMatches(2)))&"</TEXTAREA><br/><INPUTonclick=""runEx('"&rndID&"')""type=""button""value=""运行此代码""/><INPUTonclick=""doCopy("&rndID&")""type=""button""value=""复制此代码""/><INPUTonclick=""doSave("&rndID&")""type=""button""value=""保存代码""/><br/>[Ctrl+A全部选择提示：你可先修改部分代码，再按运行]")
Next
SetstrMatchs=nothing
'去空行
regex.pattern="n[s]*r"
SetstrMatchs=regex.Execute(strContent)
ForEachstrMatchinstrMatchs
strContent=Replace(strContent,strMatch.Value,"")
Next
'代码块
regex.Pattern="[code]((rn)?([sS]+?))[/code]"
SetstrMatchs=regex.Execute(strContent)
ForEachstrMatchinstrMatchs
Randomize
rndID="code"&Int(100000*Rnd)
strContent=Replace(strContent,strMatch.Value,"<br/><divstyle=""float:left""><fontcolor=green>CODE代码:</font></div><divstyle=""float:right;text-align:right;"">[<ahref=""javascript:void(null)""onclick=""doCopy("&rndID&")"">复制此代码</a>]</div><br/><divclass=""codetextarea""id="""&rndID&""">"&strMatch.SubMatches(2)&"</div>")
Next
SetstrMatchs=nothing
'实现插入影音文件
regex.Pattern="[(swf|wma|wmv|rm|ra|qt)(=d*?|)(,d*?|)]([^<>]*?)[/(swf|wma|wmv|rm|ra|qt)]"
SetstrMatchs=regex.Execute(strContent)
dimstrType,strWidth,strHeight,strSRC,TitleText
ForEachstrMatchinstrMatchs
RAndomize
strType=strMatch.SubMatches(0)
ifstrType="swf"then
TitleText="<imgsrc=""../images/flash.gif""alt=""""style=""margin:0px2px-3px0px""border=""0""/>Flash动画"
elseifstrType="wma"then
TitleText="<imgsrc=""../images/music.gif""alt=""""style=""margin:0px2px-3px0px""border=""0""/>播放音频文件"
elseifstrType="wmv"then
TitleText="<imgsrc=""../images/mediaplayer.gif""alt=""""style=""margin:0px2px-3px0px""border=""0""/>播放视频文件"
elseifstrType="rm"then
TitleText="<imgsrc=""../images/realplayer.gif""alt=""""style=""margin:0px2px-3px0px""border=""0""/>播放real视频流文件"
elseifstrType="ra"then
TitleText="<imgsrc=""../images/realplayer.gif""alt=""""style=""margin:0px2px-3px0px""border=""0""/>播放real音频流文件"
elseifstrType="qt"then
TitleText="<imgsrc=""../images/mediaplayer.gif""alt=""""style=""margin:0px2px-3px0px""border=""0""/>播放mov视频文件"
endif
strWidth=strMatch.SubMatches(1)
strHeight=strMatch.SubMatches(2)
if(len(strWidth)=0)then
strWidth="400"
else
strWidth=right(strWidth,(len(strWidth)-1))
endif
if(len(strHeight)=0)then
strHeight="300"
else
strHeight=right(strHeight,(len(strHeight)-1))
endif
strSRC=strMatch.SubMatches(3)
rndID="temp"&Int(100000*Rnd)
strContent=Replace(strContent,strMatch.Value,"<divclass=""UBBPanel""><divclass=""UBBTitle"">"&TitleText&"</div><divclass=""UBBContent""><aid="""+rndID+"_href""href=""javascript:MediaShow('"+strType+"','"+rndID+"','"+strSRC+"','"+strWidth+"','"+strHeight+"')""><imgname="""+rndID+"_img""src=""../images/mm_snd.gif""style=""margin:0px3px-2px0px""border=""0""alt=""""/><spanid="""+rndID+"_text"">在线播放</span></a><divid="""+rndID+"""></div></div></div>")
Next
SetstrMatchs=nothing
regex.Pattern="([mid])(.[^]]*)[/mid]"
strContent=regex.Replace(strContent,"<embedsrc=""$2""height=""45""width=""314""autostart=""0""></embed>")
regex.pattern="<br>([s||]*)?<br>"
strContent=regex.replace(strContent,"<br>")
strContent=replace(strContent,"&","&")
strContent=replace(strContent,"'","'")
strContent=replace(strContent,"","")'因为以前上传图片
setregex=nothing
endif
UBBCode=strContent
endfunction
%>
基本上来自pjhome
【jb51用的ubb转换 原创】相关文章：
★ ubb js