ubb.asp

二月小说 看小说必备工具 默认的管理路径为:admin/index.asp 用户名：admin 密码：admin

<%
Public Function Ubbcode(strcontent)
	dim re
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.pattern="\[img\](http|https|ftp):\/\/(.[^\[]*)\[\/img\]"
	strcontent=re.replace(strcontent,"<a onfocus=""this.blur()"" href=""$1://$2"" target=new><img src=""$1://$2"" border=""0"" alt=""按此在新窗口浏览图片"" onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")
	re.pattern="\[img=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/img]"
	strcontent=re.replace(strcontent,"<a href=""$3"" target=new><img src=""$3"" border=""0"" alt=""按此在新窗口浏览图片"" width=""$1"" height=""$2""></a>")
	re.pattern="(\[url\])(.[^\[]*)(\[url\])"
	strcontent= re.replace(strcontent,"<a href=""$2"" target=""new"">$2</a>")
	re.pattern="\[url=(.[^\[]*)\]"
	strcontent= re.replace(strcontent,"<a href=""$1"" target=""new"">")
	re.pattern="(\[email\])(.*?)(\[\/email\])"
	strcontent= re.replace(strcontent,"<img align=""absmiddle"" ""src=images/email1.gif""><a href=""mailto:$2"">$2</a>")
	re.pattern="\[email=(.[^\[]*)\]"
	strcontent= re.replace(strcontent,"<img align=""absmiddle"" src=""images/email1.gif""><a href=""mailto:$1"" target=""new"">")
	re.pattern="\[qq=([1-9]*)\]([1-9]*)\[\/qq\]"
	strcontent= re.replace(strcontent,"<a target=""new"" href=""tencent://message/?uin=$2&Site=www.2yue.com.cn&Menu=yes""><img border=""0"" src=""http://wpa.qq.com/pa?p=1:$2:$1"" alt=""点击这里给我发消息""></a>")
	re.pattern="\[color=(.[^\[]*)\]"
	strcontent=re.replace(strcontent,"<font color=""$1"">")
	re.pattern="\[font=(.[^\[]*)\]"
	strcontent=re.replace(strcontent,"<font face=""$1"">")
	re.pattern="\[size=([1-7])\]"
	strcontent=re.replace(strcontent,"<font size=""$1"">")
	re.pattern="\[align=(center|left|right)\]"
	strcontent=re.replace(strcontent,"<div align=""$1"">")
	re.pattern="\[table=(.[^\[]*)\]"
	strcontent=re.replace(strcontent,"<table width=""$1"" class=""t_table"">")
	re.pattern="(\[flash\])(http://.[^\[]*(.swf))(\[\/flash\])"
	strcontent= re.replace(strcontent,"<a href=""$2"" target=""new""><img src=""images/swf.gif"" border=""0"" alt=""点击开新窗口欣赏该flash动画!"" height=""16"" width=""16"">[全屏欣赏]</a><br><center><object codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" width=""300"" height=""200""><param name=""movie"" value=""$2""><param name=""quality"" value=""high""><embed src=""$2"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveflash"" type=""application/x-shockwave-flash"" width=""300"" height=""200"">$2</embed></object></center>")
    
	re.pattern="(\[flash=*([0-9]*),*([0-9]*)\])(http://.[^\[]*(.swf))(\[\/flash\])"
	strcontent= re.replace(strcontent,"<a href=""$4"" target=""new""><img src=""images/swf.gif"" border=""0"" alt=""点击开新窗口欣赏该flash动画!"" height=""16"" width=""16"">[全屏欣赏]</a><br><center><object codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" width=""$2"" height=""$3""><param name=""movie"" value=""$4""><param name=quality value=high><embed src=""$4"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveflash"" type=""application/x-shockwave-flash"" width=""$2"" height=""$3"">$4</embed></object></center>")
	re.pattern="\[wmv\](.[^\[]*)\[\/wmv]"
	strcontent=re.replace(strcontent,"<object align=""middle"" classid=""clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" class=""object"" id=""mediaplayer"" width=""300"" height=""200"" ><param name=""showstatusbar"" value=""-1""><param name=""filename"" value=""$1""><embed type=""application/x-oleobject"" codebase=""http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#version=5,1,52,701"" flename=""mp"" src=""$1""  width=""300"" height=""200""></embed></object>")

	re.pattern="\[wmv=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/wmv]"
	strcontent=re.replace(strcontent,"<object align=""middle"" classid=""clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" class=""object"" id=""mediaplayer"" width=""$1"" height=""$2"" ><param name=""showstatusbar"" value=""-1""><param name=""filename"" value=""$3""><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=""$2""></embed></object>")
    re.pattern="\[rm\](.[^\[]*)\[\/rm]"
	strcontent=re.replace(strcontent,"<object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" class=""object"" id=""raocx"" width=""300"" height=""200""><param name=""src"" value=""$1""><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=""300""><param name=""src"" value=""$1""><param name=""autostart"" value=""-1""><param name=""controls"" value=""controlpanel""><param name=""console"" value=""clip1""></object>")

	re.pattern="\[rm=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/rm]"
	strcontent=re.replace(strcontent,"<object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" class=""object"" id=""raocx"" width=""$1"" height=""$2""><param name=""src"" value=""$3""><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=""$1""><param name=""src"" value=""$3""><param name=""autostart"" value=""-1""><param name=""controls"" value=""controlpanel""><param name=""console"" value=""clip1""></object>")

    strcontent=replace(strcontent,vbcrlf,"<BR/>")
	re.pattern="\[code\]((.|\n)*?)\[\/code\]"
	Set tempcodes=re.Execute(strcontent)
	For i=0 To tempcodes.count-1
	  re.pattern="<BR/>"
	  tempcode=Replace(tempcodes(i),"<BR/>",vbcrlf)
	  strcontent=replace(strcontent,tempcodes(i),tempcode)
	next

    searcharray=Array("[/url]","[/email]","[/color]", "[/size]", "[/font]", "[/align]", "[b]", "[/b]","[i]", "[/i]", "[u]", "[/u]", "[list]", "[list=1]", "[list=a]","[list=A]", "[*]", "[/list]", "[indent]", "[/indent]","[code]","[/code]","[quote]","[/quote]","[table]","[tr]","[td]","[/tr]","[/td]","[/table]")
	replacearray=Array("</a>","</a>","</font>", "</font>", "</font>", "</div>", "<b>", "</b>", "<i>","</i>", "<u>", "</u>", "<ul>", "<ol type=1>", "<ol type=a>","<ol type=A>", "<li>", "</ul></ol>", "<blockquote>", "</blockquote>","<div><textarea name=""codes"" id=""codes"" rows=""12"" cols=""65"">","</textarea><br/><input type=""button"" value=""运行代码"" onclick=""RunCode()""> <input type=""button"" value=""复制代码"" onclick=""CopyCode()""> <input type=""button"" value=""另存代码"" onclick=""SaveCode()""> &nbsp;提示：您可以先修改部分代码再运行</div>","<div style=""background:#E2F2FF;width:99%;clear:both;border:1px solid #3CAAEC;padding-left: 4px;line-height:2;WORD-WRAP: break-word;TABLE-LAYOUT: fixed;word-break:break-all;"">","</div>","<table>","<tr>","<td>","</tr>","</td>","</table>")
	For i=0 To UBound(searcharray)
		strcontent=replace(strcontent,searcharray(i),replacearray(i))
	next
	set re=Nothing
	Ubbcode=strcontent
End Function
'======================================================================
'=              Copyright (c) 2008-2010 ,老四(QQ7280091)开发          =
'=                      All rights reserved.                          =
'=--------------------------------------------------------------------=
'=                    　　　　 二月小说 v_1.0   　                    =
'=                    　　　　                  　                    =
'=                     演示网址：www.2yue.com.cn                      =
'=                     官方网址：vip.2yue.com.cn =
'=                     官方QQ群：7500701                              =
'=--------------------------------------------------------------------=
'=                     用   途：小说、小说连载                        =
'=                     最后更新：2008-11-1                            =
'======================================================================
%>