pjblog的ubbcodeasp文件

1. 代码如下: 
2.  
3. <% 
4. '===========PBlog2 UBB代码转换代码========== 
5. '      Author:PuterJam 
6. '         Copryright PBlog2  
7. '         Update: 2005-12-29 
8. '=========================================== 
9. Function UBBCode(ByVal strContent,DisSM,DisUBB,DisIMG,AutoURL,AutoKEY) 
10.  If isEmpty(strContent) Or isNull(strContent) Then 
11.         Exit Function 
12.  Else 
13.   Dim re, strMatchs, strMatch, rndID,tmpStr1,tmpStr2,tmpStr3,tmpStr4 
14.   Set re=new RegExp 
15.   re.IgnoreCase =True 
16.   re.Global=True 
17.   IF AutoURL=1 Then 
18.    re.Pattern="([^=/]][/s]*?|^)(http|https|rstp|ftp|mms|ed2k)://([A-Za-z0-9/.//=/?%/-_~`@':+!]*)" 
19.    Set strMatchs=re.Execute(strContent) 
20.    For Each strMatch in strMatchs 
21.     tmpStr1=strMatch.SubMatches(0) 
22.     tmpStr2=strMatch.SubMatches(1) 
23.     tmpStr3=checkURL(strMatch.SubMatches(2)) 
24.     strContent=replace(strContent,strMatch.Value,tmpStr1&"<a href="""&tmpStr2&"://"&tmpStr3&""" target=""_blank"">"&tmpStr2&"://"&tmpStr3&"</a>",1,-1,0) 
25.    Next 
26.    're.Pattern="(^|/s)(www/./S+)" 
27.    'strContent=re.Replace(strContent,"$1<a href=""http://$2"" target=""_blank"">$2</a>") 
28.   End IF 
29.   IF Not DisUBB=1 Then 
30.    IF Not DisIMG=1 Then 
31.              re.Pattern="(/[img/])(.[^/]]*)/[//img/]" 
32.      Set strMatchs=re.Execute(strContent) 
33.      For Each strMatch in strMatchs 
34.       tmpStr1=(strMatch.SubMatches(1)) 
35.       strContent=replace(strContent,strMatch.Value,"<img src="""&tmpStr1&""" border=""0"" alt=""""/>",1,-1,0) 
36.      Next 
37.  
38.              re.Pattern="/[img=(left|right|center|absmiddle|)/](.[^/]]*)(/[//img/])" 
39.      Set strMatchs=re.Execute(strContent) 
40.      For Each strMatch in strMatchs 
41.       tmpStr1=strMatch.SubMatches(0) 
42.       tmpStr2=checkURL(strMatch.SubMatches(1)) 
43.       strContent=replace(strContent,strMatch.Value,"<img align="""&tmpStr1&""" src="""&tmpStr2&""" border=""0"" alt=""""/>",1,-1,0) 
44.      Next 
45.  
46.              re.Pattern="/[img=(/d*|),(/d*|)/](.[^/]]*)/[//img/]" 
47.      Set strMatchs=re.Execute(strContent) 
48.      For Each strMatch in strMatchs 
49.       tmpStr1=strMatch.SubMatches(0) 
50.       tmpStr2=strMatch.SubMatches(1) 
51.       tmpStr3=checkURL(strMatch.SubMatches(2)) 
52.       strContent=replace(strContent,strMatch.Value,"<img width="""&tmpStr1&""" height="""&tmpStr2&""" src="""&tmpStr3&""" border=""0"" alt=""""/>",1,-1,0) 
53.      Next 
54.  
55.              re.Pattern="/[img=(/d*|),(/d*|),(left|right|center|absmiddle|)/](.[^/]]*)(/[//img/])" 
56.      Set strMatchs=re.Execute(strContent) 
57.      For Each strMatch in strMatchs 
58.       tmpStr1=strMatch.SubMatches(0) 
59.       tmpStr2=strMatch.SubMatches(1) 
60.       tmpStr3=strMatch.SubMatches(2) 
61.       tmpStr4=checkURL(strMatch.SubMatches(3)) 
62.       strContent=replace(strContent,strMatch.Value,"<img width="""&tmpStr1&""" height="""&tmpStr2&""" align="""&tmpStr3&""" src="""&tmpStr4&""" border=""0"" alt=""""/>",1,-1,0) 
63.      Next 
64.     else 
65.              re.Pattern="(/[img/])(.[^/]]*)/[//img/]" 
66.      Set strMatchs=re.Execute(strContent) 
67.      For Each strMatch in strMatchs 
68.       tmpStr1=checkURL(strMatch.SubMatches(1)) 
69.       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) 
70.      Next 
71.  
72.              re.Pattern="/[img=(left|right|center|absmiddle|)/](.[^/]]*)(/[//img/])" 
73.      Set strMatchs=re.Execute(strContent) 
74.      For Each strMatch in strMatchs 
75.       tmpStr1=strMatch.SubMatches(0) 
76.       tmpStr2=checkURL(strMatch.SubMatches(1)) 
77.       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) 
78.      Next 
79.  
80.              re.Pattern="/[img=(/d*|),(/d*|)/](.[^/]]*)/[//img/]" 
81.      Set strMatchs=re.Execute(strContent) 
82.      For Each strMatch in strMatchs 
83.       tmpStr1=strMatch.SubMatches(0) 
84.       tmpStr2=strMatch.SubMatches(1) 
85.       tmpStr3=checkURL(strMatch.SubMatches(2)) 
86.       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) 
87.      Next 
88.  
89.              re.Pattern="/[img=(/d*|),(/d*|),(left|right|center|absmiddle|)/](.[^/]]*)(/[//img/])" 
90.      Set strMatchs=re.Execute(strContent) 
91.      For Each strMatch in strMatchs 
92.       tmpStr1=strMatch.SubMatches(0) 
93.       tmpStr2=strMatch.SubMatches(1) 
94.       tmpStr3=strMatch.SubMatches(2) 
95.       tmpStr4=checkURL(strMatch.SubMatches(3)) 
96.       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) 
97.      Next     
98.    End IF 
99.  
100. '-----------多媒体标签---------------- 
101.    re.Pattern="/[(swf|wma|wmv|rm|ra|qt)(=/d*?|)(,/d*?|)/]([^<>]*?)/[//(swf|wma|wmv|rm|ra|qt)/]" 
102.       Set strMatchs=re.Execute(strContent) 
103.       dim strType,strWidth,strHeight,strSRC,TitleText 
104.   For Each strMatch in strMatchs 
105.    RAndomize 
106.      strType=strMatch.SubMatches(0) 
107.      if strType="swf" then 
108.       TitleText="<img src=""images/flash.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>Flash动画" 
109.      elseif strType="wma" then 
110.       TitleText="<img src=""images/music.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>播放音频文件" 
111.      elseif strType="wmv" then 
112.       TitleText="<img src=""images/mediaplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>播放视频文件"    
113.      elseif strType="rm" then 
114.       TitleText="<img src=""images/realplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>播放real视频流文件"    
115.      elseif strType="ra" then 
116.       TitleText="<img src=""images/realplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>播放real音频流文件"    
117.      elseif strType="qt" then 
118.       TitleText="<img src=""images/mediaplayer.gif"" alt="""" style=""margin:0px 2px -3px 0px"" border=""0""/>播放mov视频文件"    
119.      end if 
120.               strWidth=strMatch.SubMatches(1) 
121.               strHeight=strMatch.SubMatches(2) 
122.               if (len(strWidth)=0) then  
123.                 strWidth="400" 
124.                 else 
125.                strWidth=right(strWidth,(len(strWidth)-1)) 
126.               end if 
127.               if (len(strHeight)=0) then 
128.                strHeight="300" 
129.                 else 
130.               strHeight=right(strHeight,(len(strHeight)-1)) 
131.               end if 
132.               strSRC=checkURL(strMatch.SubMatches(3)) 
133.    rndID="temp"&Int(100000 * Rnd) 
134.    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>") 
135.   Next 
136.   Set strMatchs=nothing 
137.   re.Pattern="(/[mid/])(.[^/]]*)/[//mid/]" 
138.   strContent= re.Replace(strContent,"<embed src=""$2"" height=""45"" width=""314"" autostart=""0""></embed>")  
139. '-----------常规标签---------------- 
140.    re.Pattern = "/[url=(.[^/]]*)/](.[^/[]*)/[//url]"  
141.    Set strMatchs=re.Execute(strContent) 
142.    For Each strMatch in strMatchs 
143.     tmpStr1=checkURL(strMatch.SubMatches(0)) 
144.     tmpStr2=strMatch.SubMatches(1) 
145.     strContent=replace(strContent,strMatch.Value,"<a target=""_blank"" href="""&tmpStr1&""">"&tmpStr2&"</a>",1,-1,0) 
146.    Next 
147.    re.Pattern = "/[url](.[^/[]*)/[//url]" 
148.    Set strMatchs=re.Execute(strContent) 
149.    For Each strMatch in strMatchs 
150.     tmpStr1=checkURL(strMatch.SubMatches(0)) 
151.     strContent=replace(strContent,strMatch.Value,"<a target=""_blank"" href="""&tmpStr1&""">"&tmpStr1&"</a>",1,-1,0) 
152.    Next 
153.  
154.    re.Pattern = "/[ed2k=([^/r]*?)/]([^/r]*?)/[//ed2k]" 
155.    Set strMatchs=re.Execute(strContent) 
156.    For Each strMatch in strMatchs 
157.     tmpStr1=checkURL(strMatch.SubMatches(0)) 
158.     tmpStr2=strMatch.SubMatches(1) 
159.     strContent=replace(strContent,strMatch.Value,"<img border="""" src=""images/ed2k.gif"" alt=""""/><a target=""_blank"" href="""&tmpStr1&""">"&tmpStr2&"</a>",1,-1,0) 
160.    Next 
161.  
162.    re.Pattern = "/[ed2k]([^/r]*?)/[//ed2k]" 
163.    Set strMatchs=re.Execute(strContent) 
164.    For Each strMatch in strMatchs 
165.     tmpStr1=checkURL(strMatch.SubMatches(0)) 
166.     strContent=replace(strContent,strMatch.Value,"<img border="""" src=""images/ed2k.gif"" alt=""""/><a target=""_blank"" href="""&tmpStr1&""">"&tmpStr1&"</a>",1,-1,0) 
167.    Next 
168.  
169.    re.Pattern = "/[email=(.[^/]]*)/](.[^/[]*)/[//email]" 
170.    Set strMatchs=re.Execute(strContent) 
171.    For Each strMatch in strMatchs 
172.     tmpStr1=checkURL(strMatch.SubMatches(0)) 
173.     tmpStr2=strMatch.SubMatches(1) 
174.     strContent=replace(strContent,strMatch.Value,"<a href=""mailto:"&tmpStr1&""">"&tmpStr2&"</a>",1,-1,0) 
175.    Next 
176.     
177.    re.Pattern = "/[email](.[^/[]*)/[//email]" 
178.    Set strMatchs=re.Execute(strContent) 
179.    For Each strMatch in strMatchs 
180.     tmpStr1=checkURL(strMatch.SubMatches(0)) 
181.     strContent=replace(strContent,strMatch.Value,"<a href=""mailto:"&tmpStr1&""">"&tmpStr1&"</a>",1,-1,0) 
182.    Next 
183. '-----------字体格式---------------- 
184.       re.Pattern="/[align=(/w{4,6})/]([^/r]*?)/[//align/]" 
185.    strContent=re.Replace(strContent,"<div align=""$1"">$2</div>") 
186.         re.Pattern="/[color=(#/w{3,10}|/w{3,10})/]([^/r]*?)/[//color/]" 
187.    strContent=re.Replace(strContent,"<span style=""color:$1"">$2</span>") 
188.       re.Pattern="/[size=(/d{1,2})/]([^/r]*?)/[//size/]" 
189.    strContent=re.Replace(strContent,"<span style=""font-size:$1pt"">$2</span>") 
190.       re.Pattern="/[font=([^/r]*?)/]([^/r]*?)/[//font/]" 
191.    strContent=re.Replace(strContent,"<span style=""font-family:$1"">$2</span>") 
192.    re.Pattern="/[b/]([^/r]*?)/[//b/]" 
193.    strContent=re.Replace(strContent,"<strong>$1</strong>") 
194.       re.Pattern="/[i/]([^/r]*?)/[//i/]" 
195.    strContent=re.Replace(strContent,"<i>$1</i>") 
196.       re.Pattern="/[u/]([^/r]*?)/[//u/]" 
197.    strContent=re.Replace(strContent,"<u>$1</u>") 
198.       re.Pattern="/[s/]([^/r]*?)/[//s/]" 
199.    strContent=re.Replace(strContent,"<s>$1</s>") 
200.       re.Pattern="/[sup/]([^/r]*?)/[//sup/]" 
201.    strContent=re.Replace(strContent,"^$1") 
202.       re.Pattern="/[sub/]([^/r]*?)/[//sub/]" 
203.    strContent=re.Replace(strContent,"_$1") 
204.       re.Pattern="/[fly/]([^/r]*?)/[//fly/]" 
205.    strContent=re.Replace(strContent,"<marquee width=""90%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>") 
206.  
207.   End IF 
208.  
209. '-----------特殊标签---------------- 
210.   re.Pattern = "/[down=(.[^/]]*)/](.[^/[]*)/[//down]" 
211.   Set strMatchs=re.Execute(strContent) 
212.   For Each strMatch in strMatchs 
213.    tmpStr1=checkURL(strMatch.SubMatches(0)) 
214.    tmpStr2=strMatch.SubMatches(1) 
215.    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) 
216.   Next   
217.  
218.   re.Pattern = "/[down/](.[^/[]*)/[//down]" 
219.   Set strMatchs=re.Execute(strContent) 
220.   For Each strMatch in strMatchs 
221.    tmpStr1=checkURL(strMatch.SubMatches(0)) 
222.    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) 
223.   Next 
224.   re.Pattern = "/[mDown=(.[^/]]*)/](.[^/[]*)/[//mDown]" 
225.   Set strMatchs=re.Execute(strContent) 
226.   For Each strMatch in strMatchs 
227.    tmpStr1=checkURL(strMatch.SubMatches(0)) 
228.    tmpStr2=strMatch.SubMatches(1) 
229.    if len(memName)>0 then 
230.     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) 
231.     else 
232.     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) 
233.    end if 
234.   Next 
235.   re.Pattern = "/[mDown/](.[^/[]*)/[//mDown]" 
236.   Set strMatchs=re.Execute(strContent) 
237.   For Each strMatch in strMatchs 
238.    tmpStr1=checkURL(strMatch.SubMatches(0)) 
239.    if len(memName)>0 then 
240.     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) 
241.     else 
242.     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) 
243.    end if 
244.   Next 
245.   
246.  
247.   re.Pattern="/[code/](.*?)/[//code/]" 
248.   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>") 
249.   re.Pattern="/[quote/](.*?)/[//quote/]" 
250.   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>") 
251.   re.Pattern="/[quote=(.[^/]]*)/](.*?)/[//quote/]" 
252.   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>") 
253.   re.Pattern="/[hidden/](.*?)/[//hidden/]" 
254.   if len(memName)>0 then   
255.    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>") 
256.    else 
257.    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>") 
258.   end if 
259.  
260.   re.Pattern="/[hidden=(.[^/]]*)/](.*?)/[//hidden/]" 
261.   if len(memName)>0 then   
262.    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>") 
263.    else 
264.    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>") 
265.   end if 
266.   re.Pattern="/[html/](.*?)/[//html/]" 
267.   Set strMatchs=re.Execute(strContent) 
268.   For Each strMatch in strMatchs 
269.    RAndomize 
270.    rndID="temp"&Int(100000 * Rnd) 
271.    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) 
272.   Next 
273.   Set strMatchs=nothing 
274. '-----------List标签---------------- 
275.    strContent = Replace(strContent,"[list]","<ul>") 
276.    re.Pattern = "/[list=(.[^/]]*)/]" 
277.    strContent = re.Replace(strContent,"<ul style=""list-style-type:$1"">") 
278.    re.Pattern = "/[/*/](.[^/[]*)(/n|)" 
279.    strContent = re.Replace(strContent,"<li>$1</li>") 
280.    strContent = Replace(strContent,"[/list]","</ul>") 
281.  
282. '-----------表情图标---------------- 
283.   IF Not DisSM=1 Then 
284.    dim log_Smilies,log_SmiliesContent 
285.    For Each log_Smilies IN Arr_Smilies 
286.     log_SmiliesContent=Split(log_Smilies,"|") 
287.     strContent=Replace(strContent,log_SmiliesContent(2)," <img src=""images/smilies/"&log_SmiliesContent(1)&""" border=""0"" style=""margin:0px 0px -2px 0px"" alt=""""/>") 
288.    Next 
289.   End IF 
290.  
291. '-----------关键词识别---------------- 
292.   IF AutoKEY=1 Then 
293.    dim log_Keywords,log_KeywordsContent 
294.    For Each log_Keywords IN Arr_Keywords 
295.     log_KeywordsContent=Split(log_Keywords,"$|$") 
296.     IF log_KeywordsContent(3)<>"None" Then 
297.      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>") 
298.     Else 
299.      strContent=Replace(strContent,log_KeywordsContent(1),"<a href="""&log_KeywordsContent(2)&""" target=""_blank"">"&log_KeywordsContent(1)&"</a>") 
300.     End IF 
301.    Next 
302.   End IF 
303.   Set re=Nothing 
304.   UBBCode=strContent 
305.  End IF 
306. End Function 
307. %>