pjblog的ubbcodeasp文件
%
'===========Pblog2 ubB代码转换代码==========
' Author:PuterJam
' CoPRyright PBLOG2
' Update: 2005-12-29
'===========================================
Function UBBCode(ByVal strContent,DisSM,DisUBB,Disimg,AutoURL,AutoKEY)
If iSEMpty(strContent) Or isNull(strContent) Then
ExIT Function
Else
Dim re, strMatchs, strMatch, rndID,tmpStr1,tmpStr2,tmpStr3,tmpStr4
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
IF AutoURL=1 Then
re.Pattern="([^=\]][\s]*?|^)(http|https|rstp|ftp|mms|ed2k)://([A-Za-z0-9\.\/=\?%\-_~`@':+!]*)"
Set strMatchs=re.Execute(strContent)
For each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=strMatch.SubMatches(1)
tmpStr3=checkURL(strMatch.SubMatches(2))
strContent=replace(strContent,strMatch.Value,tmpStr1&
"a href="""&
tmpStr2&
"://"&
tmpStr3&
""" target=""_blank"">
"&
tmpStr2&
"://"&
tmpStr3&
"/a>
",1,-1,0)
Next
're.Pattern="(^|\s)(www\.\S+)"
'strContent=re.Replace(strContent,"$1a href=""http://$2"" target=""_blank"">
$2/a>
")
End IF
IF Not DisUBB=1 Then
IF Not DisIMG=1 Then
re.Pattern="(\[img\])(.[^\]]*)\[\/img\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=(strMatch.SubMatches(1))
strContent=replace(strContent,strMatch.Value,"img src="""&
tmpStr1&
""" border=""0"" alt=""""/>
",1,-1,0)
Next
re.Pattern="\[img=(left|right|center|absmiddle|)\](.[^\]]*)(\[\/img\])"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=checkURL(strMatch.SubMatches(1))
strContent=replace(strContent,strMatch.Value,"img align="""&
tmpStr1&
""" src="""&
tmpStr2&
""" border=""0"" alt=""""/>
",1,-1,0)
Next
re.Pattern="\[img=(\d*|),(\d*|)\](.[^\]]*)\[\/img\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=strMatch.SubMatches(1)
tmpStr3=checkURL(strMatch.SubMatches(2))
strContent=replace(strContent,strMatch.Value,"img width="""&
tmpStr1&
""" height="""&
tmpStr2&
""" src="""&
tmpStr3&
""" border=""0"" alt=""""/>
",1,-1,0)
Next
re.Pattern="\[img=(\d*|),(\d*|),(left|right|center|absmiddle|)\](.[^\]]*)(\[\/img\])"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=strMatch.SubMatches(1)
tmpStr3=strMatch.SubMatches(2)
tmpStr4=checkURL(strMatch.SubMatches(3))
strContent=replace(strContent,strMatch.Value,"img width="""&
tmpStr1&
""" height="""&
tmpStr2&
""" align="""&
tmpStr3&
""" src="""&
tmpStr4&
""" border=""0"" alt=""""/>
",1,-1,0)
Next
else
re.Pattern="(\[img\])(.[^\]]*)\[\/img\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(1))
strContent=replace(strContent,strMatch.Value,"a href="""&
tmpStr1&
""" target=""_blank"" title="""&
tmpStr1&
""">
img src=""images/image.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
查看图片/a>
",1,-1,0)
Next
re.Pattern="\[img=(left|right|center|absmiddle|)\](.[^\]]*)(\[\/img\])"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=checkURL(strMatch.SubMatches(1))
strContent=replace(strContent,strMatch.Value,"a href="""&
tmpStr2&
""" target=""_blank"" title="""&
tmpStr2&
""">
img src=""images/image.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
查看图片/a>
",1,-1,0)
Next
re.Pattern="\[img=(\d*|),(\d*|)\](.[^\]]*)\[\/img\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=strMatch.SubMatches(1)
tmpStr3=checkURL(strMatch.SubMatches(2))
strContent=replace(strContent,strMatch.Value,"a href="""&
tmpStr3&
""" target=""_blank"" title="""&
tmpStr3&
""">
img src=""images/image.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
查看图片/a>
",1,-1,0)
Next
re.Pattern="\[img=(\d*|),(\d*|),(left|right|center|absmiddle|)\](.[^\]]*)(\[\/img\])"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
tmpStr2=strMatch.SubMatches(1)
tmpStr3=strMatch.SubMatches(2)
tmpStr4=checkURL(strMatch.SubMatches(3))
strContent=replace(strContent,strMatch.Value,"a href="""&
tmpStr4&
""" target=""_blank"" title="""&
tmpStr4&
""">
img src=""images/image.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
查看图片/a>
",1,-1,0)
Next
End IF
'-----------多媒体标签----------------
re.Pattern="\[(swf|wma|wmv|rm|ra|qt)(=\d*?|)(,\d*?|)\]([^>
]*?)\[\/(swf|wma|wmv|rm|ra|qt)\]"
Set strMatchs=re.Execute(strContent)
dim strTyPE,strWidth,strHeight,strSRC,TitleText
For Each strMatch in strMatchs
RAndomize
strType=strMatch.SubMatches(0)
if strType="swf" then
TitleText="img src=""images/flash.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
Flash动画"
elseif strType="wma" then
TitleText="img src=""images/music.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
播放音频文件"
elseif strType="wmv" then
TitleText="img src=""images/mediaplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
播放视频文件"
elseif strType="rm" then
TitleText="img src=""images/realplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
播放real视频流文件"
elseif strType="ra" then
TitleText="img src=""images/realplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
播放real音频流文件"
elseif strType="qt" then
TitleText="img src=""images/mediaplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>
播放mov视频文件"
end if
strWidth=strMatch.SubMatches(1)
strHeight=strMatch.SubMatches(2)
if (len(strWidth)=0) then
strWidth="400"
else
strWidth=right(strWidth,(len(strWidth)-1))
end if
if (len(strHeight)=0) then
strHeight="300"
else
strHeight=right(strHeight,(len(strHeight)-1))
end if
strSRC=checkURL(strMatch.SubMatches(3))
rndID="temp"&
Int(100000 * Rnd)
strContent= Replace(strContent,strMatch.Value,"div class=""UBBPanel"">
div class=""UBBTitle"">
"&
TitleText&
"/div>
div class=""UBBContent"">
a id="""+rndID+"_href"" href=""javascript:MediaShow('"+strType+"','"+rndID+"','"+strSRC+"','"+strWidth+"','"+strHeight+"')"">
img name="""+rndID+"_img"" src=""images/mm_snd.gif"" style=""margin:0px 3px -2px 0px"" border=""0"" alt=""""/>
span id="""+rndID+"_text"">
在线播放/span>
/a>
div id="""+rndID+""">
/div>
/div>
/div>
")
Next
Set strMatchs=nothing
re.Pattern="(\[mid\])(.[^\]]*)\[\/mid\]"
strContent= re.Replace(strContent,"embed src=""$2"" height=""45"" width=""314"" autostart=""0"">
/embed>
")
'-----------常规标签----------------
re.Pattern = "\[url=(.[^\]]*)\](.[^\[]*)\[\/url]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,"a target=""_blank"" href="""&
tmpStr1&
""">
"&
tmpStr2&
"/a>
",1,-1,0)
Next
re.Pattern = "\[url](.[^\[]*)\[\/url]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
strContent=replace(strContent,strMatch.Value,"a target=""_blank"" href="""&
tmpStr1&
""">
"&
tmpStr1&
"/a>
",1,-1,0)
Next
re.Pattern = "\[ed2k=([^\r]*?)\]([^\r]*?)\[\/ed2k]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,"img border="""" src=""images/ed2k.gif"" alt=""""/>
a target=""_blank"" href="""&
tmpStr1&
""">
"&
tmpStr2&
"/a>
",1,-1,0)
Next
re.Pattern = "\[ed2k]([^\r]*?)\[\/ed2k]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
strContent=replace(strContent,strMatch.Value,"img border="""" src=""images/ed2k.gif"" alt=""""/>
a target=""_blank"" href="""&
tmpStr1&
""">
"&
tmpStr1&
"/a>
",1,-1,0)
Next
re.Pattern = "\[email=(.[^\]]*)\](.[^\[]*)\[\/email]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,"a href=""mailto:"&
tmpStr1&
""">
"&
tmpStr2&
"/a>
",1,-1,0)
Next
re.Pattern = "\[email](.[^\[]*)\[\/email]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
strContent=replace(strContent,strMatch.Value,"a href=""mailto:"&
tmpStr1&
""">
"&
tmpStr1&
"/a>
",1,-1,0)
Next
'-----------字体格式----------------
re.Pattern="\[align=(\w{
4,6}
)\]([^\r]*?)\[\/align\]"
strContent=re.Replace(strContent,"div align=""$1"">
$2/div>
")
re.Pattern="\[color=(#\w{
3,10}
|\w{
3,10}
)\]([^\r]*?)\[\/color\]"
strContent=re.Replace(strContent,"span style=""color:$1"">
$2/span>
")
re.Pattern="\[size=(\d{
1,2}
)\]([^\r]*?)\[\/size\]"
strContent=re.Replace(strContent,"span style=""font-Size:$1pt"">
$2/span>
")
re.Pattern="\[font=([^\r]*?)\]([^\r]*?)\[\/font\]"
strContent=re.Replace(strContent,"span style=""font-family:$1"">
$2/span>
")
re.Pattern="\[b\]([^\r]*?)\[\/b\]"
strContent=re.Replace(strContent,"strong>
$1/strong>
")
re.Pattern="\[i\]([^\r]*?)\[\/i\]"
strContent=re.Replace(strContent,"i>
$1/i>
")
re.Pattern="\[u\]([^\r]*?)\[\/u\]"
strContent=re.Replace(strContent,"u>
$1/u>
")
re.Pattern="\[s\]([^\r]*?)\[\/s\]"
strContent=re.Replace(strContent,"s>
$1/s>
")
re.Pattern="\[sup\]([^\r]*?)\[\/sup\]"
strContent=re.Replace(strContent,"sup>
$1/sup>
")
re.Pattern="\[sub\]([^\r]*?)\[\/sub\]"
strContent=re.Replace(strContent,"sub>
$1/sub>
")
re.Pattern="\[fly\]([^\r]*?)\[\/fly\]"
strContent=re.Replace(strContent,"marquee width=""90%"" behavior=""alternate"" scrollamount=""3"">
$1/marquee>
")
End IF
'-----------特殊标签----------------
re.Pattern = "\[down=(.[^\]]*)\](.[^\[]*)\[\/down]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,"img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/>
a href="""&
tmpStr1&
""" target=""_blank"">
"&
tmpStr2&
"/a>
",1,-1,0)
Next
re.Pattern = "\[down\](.[^\[]*)\[\/down]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
strContent=replace(strContent,strMatch.Value,"img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/>
a href="""&
tmpStr1&
""" target=""_blank"">
下载此文件/a>
",1,-1,0)
Next
re.Pattern = "\[mDown=(.[^\]]*)\](.[^\[]*)\[\/mDown]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
if len(memName)>
0 then
strContent=replace(strContent,strMatch.Value,"img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/>
a href="""&
tmpStr1&
""" target=""_blank"">
"&
tmpStr2&
"/a>
",1,-1,0)
else
strContent=replace(strContent,strMatch.Value,"img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/>
该文件只允许会员下载! a href=""login.asp"">
登录/a>
| a href=""register.asp"">
注册/a>
",1,-1,0)
end if
Next
re.Pattern = "\[mDown\](.[^\[]*)\[\/mDown]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
if len(memName)>
0 then
strContent=replace(strContent,strMatch.Value,"img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/>
a href="""&
tmpStr1&
""" target=""_blank"">
下载此文件/a>
",1,-1,0)
else
strContent=replace(strContent,strMatch.Value,"img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/>
该文件只允许会员下载! a href=""login.asp"">
登录/a>
| a href=""register.asp"">
注册/a>
",1,-1,0)
end if
Next
re.Pattern="\[code\](.*?)\[\/code\]"
strContent= re.Replace(strContent,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/code.gif"" style=""margin:0px 2px -3px 0px"" alt=""程序代码""/>
程序代码/div>
div class=""UBBContent"">
$1/div>
/div>
")
re.Pattern="\[quote\](.*?)\[\/quote\]"
strContent= re.Replace(strContent,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""引用内容""/>
引用内容/div>
div class=""UBBContent"">
$1/div>
/div>
")
re.Pattern="\[quote=(.[^\]]*)\](.*?)\[\/quote\]"
strContent= re.Replace(strContent,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""引用来自 $1""/>
引用来自 $1/div>
div class=""UBBContent"">
$2/div>
/div>
")
re.Pattern="\[hidden\](.*?)\[\/hidden\]"
if len(memName)>
0 then
strContent= re.Replace(strContent,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""显示被隐藏内容""/>
显示被隐藏内容/div>
div class=""UBBContent"">
$1/div>
/div>
")
else
strContent= re.Replace(strContent,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""隐藏内容""/>
隐藏内容/div>
div class=""UBBContent"">
该内容已经被作者隐藏,只有会员才允许查阅 a href=""login.asp"">
登录/a>
| a href=""register.asp"">
注册/a>
/div>
/div>
")
end if
re.Pattern="\[hidden=(.[^\]]*)\](.*?)\[\/hidden\]"
if len(memName)>
0 then
strContent= re.Replace(strContent,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""显示被隐藏内容 $1""/>
显示被隐藏内容来自 $1/div>
div class=""UBBContent"">
$2/div>
/div>
")
else
strContent= re.Replace(strContent,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/quote.gif"" style=""margin:0px 2px -3px 0px"" alt=""隐藏内容 $1""/>
隐藏内容/div>
div class=""UBBContent"">
该内容已经被作者隐藏,只有会员才允许查阅 a href=""login.asp"">
登录/a>
| a href=""register.asp"">
注册/a>
/div>
/div>
")
end if
re.Pattern="\[htML\](.*?)\[\/html\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
RAndomize
rndID="temp"&
Int(100000 * Rnd)
strContent=Replace(strContent,strMatch.Value,"div class=""UBBPanel"">
div class=""UBBTitle"">
img src=""images/html.gif"" style=""margin:0px 2px -3px 0px"">
HTML代码/div>
div class=""UBBContent"">
TEXTAREA rows=""8"" id="""&
rndID&
""">
"&
UBBFilter(HTMLDecode(strMatch.SubMatches(0)))&
"/TEXTAREA>
br/>
INPUT onclick=""runEx('"&
rndID&
"')"" type=""button"" value=""运行此代码""/>
INPUT onclick=""doCopy('"&
rndID&
"')"" type=""button"" value=""复制此代码""/>
br/>
[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]/div>
/div>
",1,-1,0)
Next
Set strMatchs=nothing
'-----------List标签----------------
strContent = Replace(strContent,"[list]","ul>
")
re.Pattern = "\[list=(.[^\]]*)\]"
strContent = re.Replace(strContent,"ul style=""list-style-type:$1"">
")
re.Pattern = "\[\*\](.[^\[]*)(\n|)"
strContent = re.Replace(strContent,"li>
$1/li>
")
strContent = Replace(strContent,"[/list]","/ul>
")
'-----------表情图标----------------
IF Not DisSM=1 Then
dim log_Smilies,log_SmiliesContent
For Each log_Smilies IN Arr_Smilies
log_SmiliesContent=Split(log_Smilies,"|")
strContent=Replace(strContent,log_SmiliesContent(2)," img src=""images/smilies/"&
log_SmiliesContent(1)&
""" border=""0"" style=""margin:0px 0px -2px 0px"" alt=""""/>
")
Next
End IF
'-----------关键词识别----------------
IF AutoKEY=1 Then
dim log_Keywords,log_KeywordsContent
For Each log_Keywords IN Arr_Keywords
log_KeywordsContent=Split(log_Keywords,"$|$")
IF log_KeywordsContent(3)>
"None" Then
strContent=Replace(strContent,log_KeywordsContent(1),"a href="""&
log_KeywordsContent(2)&
""" target=""_blank"">
img src=""images/keywords/"&
log_KeywordsContent(3)&
""" border=""0"" alt=""""/>
"&
log_KeywordsContent(1)&
"/a>
")
Else
strContent=Replace(strContent,log_KeywordsContent(1),"a href="""&
log_KeywordsContent(2)&
""" target=""_blank"">
"&
log_KeywordsContent(1)&
"/a>
")
End IF
Next
End IF
Set re=Nothing
UBBCode=strContent
End IF
End Function
%>
您可能感兴趣的文章:
- 如何准确定时运行ASP文件
- 将首页转成静态html页的asp文件
- ASP文件中的安全问题
- IIS 运行ASP文件500内部错误解决方法大全
- asp是什么格式 asp文件用什么打开
- asp文件如何打开
- asp文件用什么软件编辑
声明:本文内容由网友自发贡献,本站不承担相应法律责任。对本内容有异议或投诉,请联系2913721942#qq.com核实处理,我们将尽快回复您,谢谢合作!
若转载请注明出处: pjblog的ubbcodeasp文件
本文地址: https://pptw.com/jishu/595304.html