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

📄 ubbcode.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	re.Pattern = "(\<i ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]+)\>)"
	USC = re.Replace(USC,"[I]")
	USC = Replace(USC,"<i>","[I]")
	USC = Replace(USC,"<I>","[I]")
	USC = Replace(USC,"</i>","[/I]")
	USC = Replace(USC,"</I>","[/I]")

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

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

	USC = Replace(USC,"</MARQUEE>","[/FLY]")
	USC = Replace(USC,"</marquee>","[/FLY]")
	USC = Replace(USC,"<MARQUEE>","[FLY]")
	USC = Replace(USC,"<marquee>","[FLY]")

	re.Pattern="(\<\/A>)"
	USC=re.Replace(USC,"</A>" & VbCrLf)
	re.Pattern="\<A ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]?)HREF=""mailto:(.*)""([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]?)>(.*)\<\/A\>"
	USC= re.Replace(USC,"[EMAIL=$2]$4[/EMAIL]")
	re.Pattern="\<A (.*)(HREF|name)=\""(.[^\""[]*)\""([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]*)>(.*)\<\/A\>"
	USC= re.Replace(USC,"[URL=$3]$5[/URL]")
   	USC = Replace(USC,VbCrLf,"")

	USC = Replace(USC,"</div>","</P>")
	USC = Replace(USC,"</DIV>","</P>")
	USC = Replace(USC,"<div ","<P ")
	USC = Replace(USC,"<DIV ","<P ")

	re.Pattern="\<p align="
	USC=re.Replace(USC,VbCrLf & "<p align=")
	re.Pattern="\<p ([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]?)align=(center|left|right|justify)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#\ \""]?)>(.*)\<\/P\>"
	USC= re.Replace(USC,"[ALIGN=$2]$4[/ALIGN]")
   	USC = Replace(USC,VbCrLf,"")

	USC = Replace(USC,VbCrLf,"")
	USC = Replace(USC,chr(3),VbCrLf)

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

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

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

	USC = Replace(USC,"</PRE>","[/PRE]")
	USC = Replace(USC,"</pre>","[/PRE]")
	USC = Replace(USC,"<PRE>","[PRE]")
	USC = Replace(USC,"<pre>","[PRE]")

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

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

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

	re.Pattern = "(\<script>)"
	USC = re.Replace(USC,"<script>")
	re.Pattern = "(\<script )"
	USC = re.Replace(USC,"<script>")
	re.Pattern = "(\</script>)"
	USC = re.Replace(USC,"</script>")
	USC = KillHTMLLabel(KillHTMLScript(USC))
	If CheckSupervisorUserName = 0 Then
		Html2UBBCode = UBB_FiltrateBadWords(USC)
	Else
		Html2UBBCode = USC
	End If
	Set Re = Nothing

End Function

Function KillHTMLScript(str)

	Dim n,m,str2
	str2 = str
	n = inStr(str2,"<script>")
	if n > 0 Then
		m = inStr(n + 1,str2,"</script>",0)
	Else
		m = 0
	End If
	Do while n > 0 and n < m and m > 0
		str2 = Left(str2,n-1) & Mid(str2,m+9)
		n = inStr(str2,"<script>")
		if n > 0 Then
			m = inStr(n + 1,str2,"</script>",0)
		Else
			m = 0
		End If
	Loop
	KillHTMLScript = str2

End Function

Function UBB_FiltrateBadWords(tempStr)

	Dim Str
	Str = tempStr
    Dim FiltrateBadWordString_Temp,i,Temp_N
    FiltrateBadWordString_Temp = split(FiltrateBadWordString, "|")
    Temp_N = ubound(FiltrateBadWordString_Temp)
    For i = 0 to Temp_N
        Str = Replace(Str, FiltrateBadWordString_Temp(i), string(len(FiltrateBadWordString_Temp(i)),"*"), 1,-1,0)
    Next
    UBB_FiltrateBadWords = Str

End Function

Function UBB_Code_UnderWrite(str)

	Dim USC,LoopN
	USC = str
	USC = PrintTrueText(USC)
	USC = Replace(USC,VbCrLf,chr(3))
	Dim re
	Set re = New RegExp
	re.Global = True
	re.IgnoreCase = True

	re.Pattern="(javascript|jscript|js|about|file|vbscript|vbs)(:)"
	USC=re.Replace(USC,"$1&#58;")
	're.Pattern="(value)"
	'USC=re.Replace(USC,"&#118;alue")
	re.Pattern="(document)(.)(cookie)"
	USC=re.Replace(USC,"$1&#46;$3")
	re.Pattern="(on(mouse|exit|error|click|key))"
	USC=re.Replace(USC,"&#111;n$2")

	USC = Replace(USC,"[imga]","[img]")
	USC = Replace(USC,"[/imga]","[/img]")
	USC = Replace(USC,"[IMGA]","[IMG]")
	USC = Replace(USC,"[/IMGA]","[/IMG]")
    If DEF_UbbUnderwriteImages = 1 then
		re.Pattern="(\[\/IMG\])"
		USC=re.Replace(USC,"[/IMG]" & VbCrLf)
		re.Pattern="\[IMG=*([0-9]*),(absmiddle|left|right|top|middle|bottom|absbottom|baseline|texttop)\](/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)\[\/IMG]"
		USC=re.Replace(USC,"<IMG onmouseover=""javascript:if(this.width>500)this.width=500;"" src=""$3$4"" onload=""javascript:if(this.width>500)this.width=500;"" align=$2 border=$1>")
		re.Pattern="\[IMG\](/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$\(\)[\]\':+!#]+)\[\/IMG]"
		USC=re.Replace(USC,"<IMG onmouseover=""javascript:if(this.width>500)this.width=500;"" src=""$1$2"" onload=""javascript:if(this.width>500)this.width=500;"" align=absmiddle border=0>")
	   	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>$2</A>")
   	USC = Replace(USC,VbCrLf,"")
   	
	re.Pattern="(\[\/bgcolor\])"
	USC=re.Replace(USC,"[/bgcolor]" & VbCrLf)
   	re.Pattern="\[bgcolor=*(#*[a-z0-9]*),*(#*[a-z0-9]*)\](.*)\[\/bgcolor\]"
   	USC=re.Replace(USC,"<font style=""BACKGROUND-COLOR: $1"" color=$2>$3</font>")
   	USC = Replace(USC,VbCrLf,"")

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

	re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
	USC= re.Replace(USC,"<A HREF=""mailto:$2"">$2</A>")
	
	re.Pattern="(\[\/EMAIL\])"
	USC=re.Replace(USC,"[/EMAIL]" & VbCrLf)
	re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.*)(\[\/EMAIL\])"
	USC= re.Replace(USC,"<A HREF=""mailto:$2"">$3</A>")
   	USC = Replace(USC,VbCrLf,"")

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

	re.Pattern="(\[\/GLOW\])"
	USC=re.Replace(USC,"[/GLOW]" & VbCrLf)
	re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*)\[\/GLOW]"
	USC=re.Replace(USC,"<table glow width=$1><tr><td style=""filter:glow(color=$2, strength=$3)"">$4</td></tr></table glow>")
	USC = Replace(USC,VbCrLf,"")
	
	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,"")

	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>")

	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,"")

	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,"")

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

	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)

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

End Function%>
123

⌨️ 快捷键说明

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