⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ubbcode.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
		re.Pattern="(\[\/SHADOW\])"
		USC=re.Replace(USC,"[/SHADOW]" & VbCrLf)
	    re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*)\[\/SHADOW]"
	    USC=re.Replace(USC,"<table shadow width=$1><tr><td style=""filter:shadow(color=$2, strength=$3)"">$4</td></tr></table shadow>")
	   	USC = Replace(USC,VbCrLf,"")
	End If

	re.Pattern="(\[\/FLY\])"
	USC=re.Replace(USC,"[/FLY]" & VbCrLf)
	re.Pattern="\[FLY\](.*)\[\/FLY]"
	USC=re.Replace(USC,"<MARQUEE>$1</MARQUEE>")
	USC = Replace(USC,VbCrLf,"")

	USC = Replace(USC,"[b]","<b>")
	USC = Replace(USC,"[B]","<b>")
	USC = Replace(USC,"[/b]","</b>")
	USC = Replace(USC,"[/B]","</b>")
	
	USC = Replace(USC,"[u]","<u>")
	USC = Replace(USC,"[U]","<u>")
	USC = Replace(USC,"[/u]","</u>")
	USC = Replace(USC,"[/U]","</u>")
	
	USC = Replace(USC,"[i]","<i>")
	USC = Replace(USC,"[I]","<i>")
	USC = Replace(USC,"[/i]","</i>")
	USC = Replace(USC,"[/I]","</i>")

	re.Pattern="(\[\/align\])"
	USC=re.Replace(USC,"[/align]" & VbCrLf)
   	re.Pattern="\[align=(center|left|right|justify)\](.*)\[\/align]"
	USC=re.Replace(USC,"<p align=$1>$2</p>")
   	USC = Replace(USC,VbCrLf,"")

	re.Pattern="(\[\/size\])"
	USC=re.Replace(USC,"[/size]" & VbCrLf)
	re.Pattern="\[size=*([0-9]*)\](.*)\[\/size]"
	USC=re.Replace(USC,"<font size=$1>$2</font>")
   	USC = Replace(USC,VbCrLf,"")
	
	USC = Replace(USC,"[sup]","<sup>")
	USC = Replace(USC,"[SUP]","<sup>")
	USC = Replace(USC,"[/sup]","</sup>")
	USC = Replace(USC,"[/SUP]","</sup>")
	
	USC = Replace(USC,"[sub]","<sub>")
	USC = Replace(USC,"[SUB]","<sub>")
	USC = Replace(USC,"[/sub]","</sub>")
	USC = Replace(USC,"[/SUB]","</sub>")
	
	USC = Replace(USC,"[strike]","<STRIKE>")
	USC = Replace(USC,"[STRIKE]","<STRIKE>")
	USC = Replace(USC,"[/strike]","</STRIKE>")
	USC = Replace(USC,"[/STRIKE]","</STRIKE>")
	
	USC = Replace(USC,"[ul]","<UL>")
	USC = Replace(USC,"[UL]","<UL>")
	USC = Replace(USC,"[/ul]","</UL>")
	USC = Replace(USC,"[/UL]","</UL>")
	
	USC = Replace(USC,"[ol]","<OL>")
	USC = Replace(USC,"[OL]","<OL>")
	USC = Replace(USC,"[/ol]","</OL>")
	USC = Replace(USC,"[/OL]","</OL>")
	
	USC = Replace(USC,"[*]","<LI>")
	USC = Replace(USC,"[/*]","</LI>")
	If ConvertFlag = 1 Then
		re.Pattern="(\[\/CODE\])"
		USC=re.Replace(USC,"[/CODE]" & VbCrLf)
		re.Pattern="\[CODE\](.*)\[\/CODE]"
		USC=re.Replace(USC,"<table code width=100% bgcolor=" & DEF_BBS_LightestColor & " cellpadding=5 cellspacing=2 class=TBBG9><tr><td bgcolor=" & DEF_BBS_LightColor & " class=TBBG1>$1</td></tr></table code>")
		USC = Replace(USC,VbCrLf,"")

		re.Pattern="(\[\/QUOTE\])"
		USC=re.Replace(USC,"[/QUOTE]" & VbCrLf)
		re.Pattern="\[QUOTE\](.*)\[\/QUOTE]"
		USC=re.Replace(USC,"<table width=100% bgcolor=" & DEF_BBS_DarkColor & " cellpadding=5 cellspacing=1 class=TBone><tr><td bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9>$1</td></tr></table>")
		USC = Replace(USC,VbCrLf,"")

		re.Pattern="(\[\/LIGHT\])"
		USC=re.Replace(USC,"[/LIGHT]" & VbCrLf)
		re.Pattern="\[LIGHT\](.*)\[\/LIGHT]"
		USC=re.Replace(USC,"<span style=""behavior:url(font.htc)"">$1</span>")
		USC = Replace(USC,VbCrLf,"")
	End If

	re.Pattern="(\[\/URL\])"
	USC=re.Replace(USC,"[/URL]" & VbCrLf)
	re.Pattern="(\[URL=(.[^\[]*)\])(.*)(\[\/URL\])"
	USC= re.Replace(USC,"<A HREF=""$2"" TARGET=_blank>$3</A>")
   	USC = Replace(USC,VbCrLf,"")

	re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)"
	USC = re.Replace(USC,"<a target=_blank href=$1>$1</a>")
	re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!]+)$"
	USC = re.Replace(USC,"<a target=_blank href=$1>$1</a>")
	re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!]+)"
	USC = re.Replace(USC,"$1<a target=_blank href=$2>$2</a>")

	If MyHomeUrl <> "" Then
		re.Pattern="(" & MyHomeUrl & ")"
		USC=re.Replace(USC,"../")
	End If

	If ConvertFlag = 1 Then
		re.Pattern="(\[\/nulltable\])"
		USC=re.Replace(USC,"[/nulltable]" & VbCrLf)
		re.Pattern="\[nulltable\](.*)\[\/nulltable]"
		USC=re.Replace(USC,"<table border=0 cellspacing=0 cellpadding=0>$1</table>")
		USC = Replace(USC,VbCrLf,"")

		re.Pattern="(\[\/nulltr\])"
		USC=re.Replace(USC,"[/nulltr]" & VbCrLf)
		re.Pattern="\[nulltr\](.*)\[\/nulltr]"
		USC=re.Replace(USC,"<tr>$1</tr>")
		USC = Replace(USC,VbCrLf,"")

		re.Pattern="(\[\/nulltd\])"
		USC=re.Replace(USC,"[/nulltd]" & VbCrLf)
		re.Pattern="\[nulltd\](.*)\[\/nulltd]"
		USC=re.Replace(USC,"<td>$1</td>")
		USC = Replace(USC,VbCrLf,"")
	End If

	re.Pattern="(\[\/table\])"
	USC=re.Replace(USC,"[/table]" & VbCrLf)
	re.Pattern="\[table\](.*)\[\/table]"
	'USC=re.Replace(USC,"<table border=1 bordercolor=gray cellspacing=0 cellpadding=3>$1</table>")
	USC=re.Replace(USC,"<table border=0 cellspacing=0 cellpadding=3>$1</table>")
	USC = Replace(USC,VbCrLf,"")

	re.Pattern="(\[\/table\])"
	USC=re.Replace(USC,"[/table]" & VbCrLf)
	re.Pattern="\[table=*(#*[a-z0-9]*),*([0-9]*),*([0-9]*),*([0-9%|\""&quot;]*),(left|center|right),*(#*[a-z0-9]*),*([0-9]*)\](.*)\[\/table]"
	USC=re.Replace(USC,"<table borderColor=$1 cellSpacing=$2 cellPadding=$3 width=$4 align=$5 bgColor=$6 border=$7>$8</table>")
   	USC = Replace(USC,VbCrLf,"")
   	
	re.Pattern="(\[\/table\])"
	USC=re.Replace(USC,"[/table]" & VbCrLf)
	re.Pattern="\[table=*(#*[a-z0-9]*),*([0-9]*),*([0-9]*),*([0-9%|\""&quot;]*),*(#*[a-z0-9]*),*([0-9]*)\](.*)\[\/table]"
	USC=re.Replace(USC,"<table borderColor=$1 cellSpacing=$2 cellPadding=$3 width=$4 bgColor=$5 border=$6>$7</table>")
   	USC = Replace(USC,VbCrLf,"")
	
	USC = Replace(USC,"[pre]","<PRE>")
	USC = Replace(USC,"[PRE]","<PRE>")
	USC = Replace(USC,"[/pre]","</PRE>")
	USC = Replace(USC,"[/PRE]","</PRE>")

	USC = Replace(USC,"[tr]","<TR>")
	USC = Replace(USC,"[TR]","<TR>")
	USC = Replace(USC,"[/tr]","</TR>")
	USC = Replace(USC,"[/TR]","</TR>")

	USC = Replace(USC,"[td]","<TD>")
	USC = Replace(USC,"[TD]","<TD>")
	USC = Replace(USC,"[/td]","</TD>")
	USC = Replace(USC,"[/TD]","</TD>")

	USC = Replace(USC,"[pp]","<p>")
	USC = Replace(USC,"[/pp]","</p>")
	USC = Replace(USC,"[PP]","<p>")
	USC = Replace(USC,"[/PP]","</p>")
	USC = Replace(USC,chr(3),VbCrLf)
	USC = Replace(USC,"[HR]","<HR>")

	If CheckSupervisorUserName = 0 Then
		UBB_Code = UBB_FiltrateBadWords(USC)
	Else
		UBB_Code = USC
	End If
	Set Re = Nothing

End Function

Function ResumeUBBCode(Tstr)

	Dim str
	str = Tstr
	Str = Replace(str,"&nbsp;"," ")
	Str = Replace(str,VbCrLf,"")
	Str = Replace(str,"<br>" & VbCrLf,VbCrLf)
	Str = Replace(str,"<BR>" & VbCrLf,VbCrLf)
	Str = Replace(str,"<br>",VbCrLf)
	Str = Replace(str,"<BR>",VbCrLf)
	ResumeUBBCode = Str

End Function

Function Html2UBBCode(str)

	Dim USC,LoopN
	USC = str

	USC = ResumeUBBCode(USC)

	USC = Replace(USC,VbCrLf,chr(3))
	dim re
	set re = New RegExp
	re.Global = True
	re.IgnoreCase = True

	re.Pattern="\<IMG "
	USC=re.Replace(USC,VbCrLf & "<IMG ")
	If DEF_UBBiconNumber > 0 then
		re.Pattern="\<IMG src=\""(\UBBicon/em|" & MyHomeUrl & "images/UBBicon/em|" & MyHomeUrl & "images/UBBicon/em|" & MyHomeUrl & "images/UBBicon/em)([0-9]+).gif([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)>"
		USC=re.Replace(USC,"[EM$2]")
	End If
	're.Pattern="\<IMG onmouseover=""javascript:if\(this.width>500\)this.width=500;"" style=""CURSOR: hand"" onclick=javascript:window.open\(this.src\); src=""(/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)"" onload=""javascript:if\(this.width>500\)this.width=500;"" align=(absmiddle|left|right|top|middle|bottom|absbottom|baseline|texttop) border=*([0-9]*)>"
	'USC=re.Replace(USC,"[IMGA=$4,$3]$1$2[/IMGA]")
	re.Pattern="\<IMG (.*)style=""CURSOR: hand"" (.*)src=""(/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)"" onload=""javascript:if\(this.width>500\)this.width=500;"" align=(absmiddle|left|right|top|middle|bottom|absbottom|baseline|texttop) border=*([0-9]*)>"
	USC=re.Replace(USC,"[IMGA=$6,$5]$3$4[/IMGA]")
    	re.Pattern="\<IMG onmouseover=""javascript:if\(this.width>500\)this.width=500;"" src=""(/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)"" onload=""javascript:if\(this.width>500\)this.width=500;"" align=(absmiddle|left|right|top|middle|bottom|absbottom|baseline|texttop) border=*([0-9]*)>"
	USC=re.Replace(USC,"[IMG=$4,$3]$1$2[/IMG]")
	USC = Replace(USC,"if(this.width>","if(this.width")
	'(.[^\[]*)
	're.Pattern="\<IMG (.*)src=\""(/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)(.[A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]*)>"
	're.Pattern="\<IMG (.*)src=\""(/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)(.[^\[>]*)>"
	re.Pattern="\<IMG (.*)src=\""(/|../|http://|https://|ftp://)(.[^\[\ \"">]*)(.[^\[>]*)>"
	USC=re.Replace(USC,"[IMGA]$2$3[/IMGA]")
	USC = Replace(USC,VbCrLf,"")

	re.Pattern="(\[\/FIELDSET\])"
	USC=re.Replace(USC,"[/FIELDSET]" & VbCrLf)
   	re.Pattern="\<FIELDSET><LEGEND>(.*)</LEGEND>(.*)</FIELDSET>"
   	USC = re.Replace(USC,"[FIELDSET=$1]$2[/FIELDSET]")
   	USC = Replace(USC,VbCrLf,"")

	re.Pattern="(\<\/table>)"
	USC=re.Replace(USC,"</table>" & VbCrLf)

	re.Pattern="<table borderColor=*(#*[a-z0-9]*) cellSpacing=*([0-9]*) cellPadding=*([0-9]*) width=*([0-9%]*) align=(left|center|right) bgColor=*(#*[a-z0-9]*) border=*([0-9]*)>(.*)</table>"
	USC= re.Replace(USC,"[TABLE=$1,$2,$3,$4,$5,$6,$7]$8[/TABLE]")

	re.Pattern="<table borderColor=*(#*[a-z0-9]*) cellSpacing=*([0-9]*) cellPadding=*([0-9]*) width=""*([0-9%]*)"" align=(left|center|right) bgColor=*(#*[a-z0-9]*) border=*([0-9]*)>(.*)</table>"
	USC= re.Replace(USC,"[TABLE=$1,$2,$3,$4,$5,$6,$7]$8[/TABLE]")

	re.Pattern="<table borderColor=*(#*[a-z0-9]*) cellSpacing=*([0-9]*) cellPadding=*([0-9]*) width=*([0-9%]*) bgColor=*(#*[a-z0-9]*) border=*([0-9]*)>(.*)</table>"
	USC= re.Replace(USC,"[TABLE=$1,$2,$3,$4,$5,$6]$7[/TABLE]")

	re.Pattern="<table borderColor=*(#*[a-z0-9]*) cellSpacing=*([0-9]*) cellPadding=*([0-9]*) width=""*([0-9%]*)"" bgColor=*(#*[a-z0-9]*) border=*([0-9]*)>(.*)</table>"
	USC= re.Replace(USC,"[TABLE=$1,$2,$3,$4,$5,$6]$7[/TABLE]")

	re.Pattern="\<table (.[^\[>]*)\>(.*)</table>"
	USC= re.Replace(USC,"[TABLE]$2[/TABLE]")
	
	re.Pattern="\<table\>(.*)\<\/table>"
	USC=re.Replace(USC,"[TABLE]$1[/TABLE]")

   	USC = Replace(USC,VbCrLf,"")

	re.Pattern = "\<tr ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>"
	USC = re.Replace(USC,"[TR]")
	USC = Replace(USC,"<TR>","[TR]")
	USC = Replace(USC,"<tr>","[TR]")
	USC = Replace(USC,"</TR>","[/TR]")
	USC = Replace(USC,"</tr>","[/TR]")

	re.Pattern = "\<td ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>"
	USC = re.Replace(USC,"[TD]")
	USC = Replace(USC,"<TD>","[TD]")
	USC = Replace(USC,"<td>","[TD]")
	USC = Replace(USC,"</TD>","[/TD]")
	USC = Replace(USC,"</td>","[/TD]")

	re.Pattern = "\<sup ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>"
	USC = re.Replace(USC,"[SUP]")
	USC = Replace(USC,"<sup>","[SUP]")
	USC = Replace(USC,"<SUP>","[SUP]")
	USC = Replace(USC,"</SUP>","[/SUP]")
	USC = Replace(USC,"</sup>","[/SUP]")
	
	re.Pattern = "\<sub ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>"
	USC = re.Replace(USC,"[SUB]")
	USC = Replace(USC,"<SUB>","[SUB]")
	USC = Replace(USC,"<sub>","[SUB]")
	USC = Replace(USC,"</SUB>","[/SUB]")
	USC = Replace(USC,"</sub>","[/SUB]")
	
	re.Pattern = "\<ul ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>"
	USC = re.Replace(USC,"[UL]")
	USC = Replace(USC,"<UL>","[UL]")
	USC = Replace(USC,"<ul>","[UL]")
	USC = Replace(USC,"</ul>","[/UL]")
	USC = Replace(USC,"</UL>","[/UL]")
	
	re.Pattern = "\<ol ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>"
	USC = re.Replace(USC,"[OL]")
	USC = Replace(USC,"<OL>","[OL]")
	USC = Replace(USC,"<ol>","[OL]")
	USC = Replace(USC,"</ol>","[/OL]")
	USC = Replace(USC,"</OL>","[/OL]")

	re.Pattern = "\<li ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>"
	USC = re.Replace(USC,"[*]")
	USC = Replace(USC,"<LI>","[*]")
	USC = Replace(USC,"<li>","[*]")
	USC = Replace(USC,"</LI>","[/*]")
	USC = Replace(USC,"</li>","[/*]")

	re.Pattern="\</font>"
	USC=re.Replace(USC,"</font>" & VbCrLf)
	re.Pattern="\<font size=([0-9])>(.*)\<\/font\>"
	USC= re.Replace(USC,"[SIZE=$1]$2[/SIZE]")
   	USC = Replace(USC,VbCrLf,"")
	re.Pattern="\<font "
	USC=re.Replace(USC,VbCrLf & "<font ")
	'//re.Pattern="\<font face=(.*)>(.*)\<\/font\>"
	'//USC= re.Replace(USC,"[FACE=$1]$2[/FACE]")
   	USC = Replace(USC,VbCrLf,"")

	re.Pattern="\<\/font>"
	USC=re.Replace(USC,"</font>" & VbCrLf)
	re.Pattern="\<font color=*(#*[a-z0-9]*)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]*)>(.*)\<\/font\>"
	USC= re.Replace(USC,"[COLOR=$1]$3[/COLOR]")
   	USC = Replace(USC,VbCrLf,"")

	re.Pattern="\<\/font>"
	USC=re.Replace(USC,"</font>" & VbCrLf)
	re.Pattern="\<font style=""BACKGROUND-COLOR: *(#*[a-z0-9]*)"" color=*(#*[a-z0-9]*)>(.*)(\<\/font\>)"
	USC= re.Replace(USC,"[BGCOLOR=$1,$2]$3[/BGCOLOR]")
   	USC = Replace(USC,VbCrLf,"")
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -