很不错的一个UBB代码

网络编程 2024/11/16 佚名

3 2 1

无为清净楼资源网 Design By www.qnjia.com

<%
Function HTMLEncode(ByVal strValue)
'忽略错误
On Error Resume Next
'定义变量
Dim strNewValue
If strValue <> "" Then
  strNewValue = Replace(strValue,"<","<")
  strNewValue = Replace(strNewValue,">",">")
  strNewValue = Replace(strNewValue,"'","'")
  strNewValue = Replace(strNewValue,"""",""")
  strNewValue = Replace(strNewValue,vbCrLf,"<br>")
  strNewValue = Replace(strNewValue," "," ")
End If
HTMLEncode = strNewValue
'输出错误
If Err.Number>0 Then
  Response.Write Err.Description
  Response.End
End If
End Function

Function UBBCode(strValue)
Dim RegExp
'strValue=HTMLEncode(strValue)
Set RegExp=New RegExp
RegExp.IgnoreCase =True
RegExp.Global=True

If strValue <> "" Then
RegExp.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
strValue=RegExp.Replace(strValue,"<a href=""$2"" target=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")

RegExp.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
strValue=RegExp.Replace(strValue,"<OBJECT codebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0"" classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400 id=ShockwaveFlash1><PARAM NAME=movie VALUE=""$2""><PARAM NAME=quality VALUE=high><embed src="/UploadFiles/2021-04-02/">") ' target=_blank rel=nofollow>http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""appl ... 00 height=400></embed></OBJECT>")

RegExp.Pattern="(\[ZIP\])(.[^\[]*)(\[\/ZIP\])"
strValue=RegExp.Replace(strValue,"<br><a href=""$2"">点击下载该文件</a>")

RegExp.Pattern="(\[RAR\])(.[^\[]*)(\[\/RAR\])"
strValue=RegExp.Replace(strValue,"<br><a href=""$2"">点击下载该文件</a>")

'RegExp.Pattern="(\[UPLOAD=(.[^\[]*)\])(.[^\[]*)(\[\/UPLOAD\])"
'strValue=RegExp.Replace(strValue,"<br><IMG SRC=""$2.gif"" border=0> <A HREF=""$3"" TARGET=_blank>点击查看或下载该文件</A>")
'strValue=RegExp.Replace(strValue,"<br><IMG SRC=""$2.gif"" border=0>此主题相关图片如下：<br><A HREF=""$3"" TARGET=_blank><IMG SRC=""$3"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")

RegExp.Pattern="(\[URL\])(http:\/\/.[^\[]*)(\[\/URL\])"
strValue=RegExp.Replace(strValue,"<A HREF=""$2"" TARGET=_blank>$2</A>")

RegExp.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strValue=RegExp.Replace(strValue,"<A HREF=""$2") ' target=_blank rel=nofollow>http://$2"" TARGET= ... t;/A>")

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

RegExp.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strValue=RegExp.Replace(strValue,"<A HREF=""[url]http://$2"" TARGET=_blank>$3</A>")

RegExp.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
strValue=RegExp.Replace(strValue,"<A HREF=""mailto:$2"">$2</A>")

RegExp.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
strValue=RegExp.Replace(strValue,"<A HREF=""mailto:$2"" TARGET=_blank>$3</A>")

RegExp.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern = "[^>=""](mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strValue=RegExp.Replace(strValue,"<a target=_blank href=$1>$1</a>")

RegExp.Pattern="(\[HTML\])(.[^\[]*)(\[\/HTML\])"
strValue=RegExp.Replace(strValue,"<table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#FFFFFF'><td><b>以下内容为程序代码:</b><br>$2</td></table>")

RegExp.Pattern="(\[code\])(.[^\[]*)(\[\/code\])"
strValue=RegExp.Replace(strValue,"<table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#FFFFFF'><td><b>以下内容为程序代码:</b><br>$2</td></table>")

RegExp.Pattern="(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])"
strValue=RegExp.Replace(strValue,"<font color=$2>$3</font>")

RegExp.Pattern="(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])"
strValue=RegExp.Replace(strValue,"<font face=$2>$3</font>")

RegExp.Pattern="(\[align=(.[^\[]*)\])(.*)(\[\/align\])"
strValue=RegExp.Replace(strValue,"<div align=$2>$3</div>")

RegExp.Pattern="(\[QUOTE\])(.*)(\[\/QUOTE\])"
strValue=RegExp.Replace(strValue,"<table cellpadding=0 cellspacing=0 border=0 WIDTH=94% bgcolor=#000000 align=center><tr><td><table width=100% cellpadding=5 cellspacing=1 border=0><TR><TD BGCOLOR='#FFFFFF'>$2</table></table><br>")

RegExp.Pattern="(\[fly\])(.*)(\[\/fly\])"
strValue=RegExp.Replace(strValue,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>")

RegExp.Pattern="(\[move\])(.*)(\[\/move\])"
strValue=RegExp.Replace(strValue,"<MARQUEE scrollamount=3>$2</marquee>")

RegExp.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
strValue=RegExp.Replace(strValue,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")

RegExp.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
strValue=RegExp.Replace(strValue,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")

RegExp.Pattern="(\[i\])(.[^\[]*)(\[\/i\])"
strValue=RegExp.Replace(strValue,"<i>$2</i>")

RegExp.Pattern="(\[u\])(.[^\[]*)(\[\/u\])"
strValue=RegExp.Replace(strValue,"<u>$2</u>")

RegExp.Pattern="(\[b\])(.[^\[]*)(\[\/b\])"
strValue=RegExp.Replace(strValue,"<b>$2</b>")

RegExp.Pattern="(\[fly\])(.[^\[]*)(\[\/fly\])"
strValue=RegExp.Replace(strValue,"<marquee>$2</marquee>")

RegExp.Pattern="(\[size=1\])(.[^\[]*)(\[\/size\])"
strValue=RegExp.Replace(strValue,"<font size=1>$2</font>")

RegExp.Pattern="(\[size=2\])(.[^\[]*)(\[\/size\])"
strValue=RegExp.Replace(strValue,"<font size=2>$2</font>")

RegExp.Pattern="(\[size=3\])(.[^\[]*)(\[\/size\])"
strValue=RegExp.Replace(strValue,"<font size=3>$2</font>")

RegExp.Pattern="(\[size=4\])(.[^\[]*)(\[\/size\])"
strValue=RegExp.Replace(strValue,"<font size=4>$2</font>")

RegExp.Pattern="(\[center\])(.[^\[]*)(\[\/center\])"
strValue=RegExp.Replace(strValue,"<center>$2</center>")
End If
Set RegExp=Nothing
UBBCode=strValue

'输出错误
If Err.Number>0 Then
  Response.Write Err.Description
  Response.End
End If
End Function
%>
调用：<%=UBBCode(Content)%>

很不错的一个UBB代码

标签：

很不错的一个UBB代码

无为清净楼资源网 Design By www.qnjia.com

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

无为清净楼资源网 Design By www.qnjia.com

评论“很不错的一个UBB代码”

暂无评论...

www.qnjia.com 无为清净楼资源网

139,976互联网资源

144,792高清电影

21,817无损音乐

631,128技术资源

很不错的一个UBB代码

很不错的一个UBB代码

ASP充分利用Err.Description

一段几乎可以让你死机的JS代码

评论“很不错的一个UBB代码”

RTX 5090要首发性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

很不错的一个UBB代码

很不错的一个UBB代码

ASP充分利用Err.Description

一段几乎可以让你死机的JS代码

评论“很不错的一个UBB代码”

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

RTX 5090要首发性能要翻倍！三星展示GDDR7显存