ubb php论坛程序,论坛UBB代码 推荐
if codeb then
for i=0 to ubound(code)
if code(i)="" then exit for
tcode=server.htmlencode(code(i))
content=replace(content,"{code"&i&"}",tcode)
next
end if
'-----处理[code] 中的[html]
re.pattern="\[html\](\r\n)?([\s\S]+?)\[\/html\]"
Set Matches = re.Execute(content) ' Execute search.
dim html2()
n=0
if re.test(content) then html2b=true
if html2b then
For Each Match in Matches ' Iterate Matches collection.
redim Preserve html2(n)
html2(n) =Match.Value
n=n+1
Next
for i=0 to ubound(html2)
if html2(i)="" then exit for
content=replace(content,html2(i),"{html2"&i&"}")
next
end if
if param="full" then
if htmlb then
for i=0 to ubound(html)
if html(i)="" then exit for
thtml=server.htmlencode(html(i))
content=replace(content,"{html"&i&"}",thtml)
next
end if
end if
re.Pattern="(\[code\])(\r\n)?([\s\S]+?)(\[\/code\])"
content=re.Replace(content,"
$3
")
if param="full" then
re.Pattern="(\[html\])(\r\n)?([\s\S]+?)(\[\/html\])"
content=re.Replace(content,"$3 [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]")
end if
if html2b then
for i=0 to ubound(html2)
if html2(i)="" then exit for
thtml2=html2(i)
content=replace(content,"{html2"&i&"}",thtml2)
next
end if
UBBCode=content
end function
function gmt(strContent)
strContent=HTMLfilter(strContent)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
if param="full" then
if not smiles then '笑脸转换
re.Pattern="(\[em(\d{1,2})\])"
strContent=re.Replace(strContent,"")
're.Pattern=":\)"
'strContent=re.Replace(strContent,"")
're.Pattern=":\("
'strContent=re.Replace(strContent,"")
're.Pattern=":o"
'strContent=re.Replace(strContent,"")
're.Pattern=":D"
'strContent=re.Replace(strContent,"")
're.Pattern=";\)"
'strContent=re.Replace(strContent,"")
're.Pattern=":p"
'strContent=re.Replace(strContent,"")
're.Pattern=":cool:"
'strContent=re.Replace(strContent,"")
're.Pattern=":rolleyes:"
'strContent=re.Replace(strContent,"")
're.Pattern=":mad:"
'strContent=re.Replace(strContent,"")
're.Pattern=":eek:"
'strContent=re.Replace(strContent,"")
're.Pattern=":confused:"
'strContent=re.Replace(strContent,"")
're.Pattern=":cry:"
'strContent=re.Replace(strContent,"")
end if
re.Pattern="(\[IMG\])(.*?)(\[\/IMG\])"
strContent=re.Replace(strContent,"document.body.clientWidth-300) {this.height=(document.body.clientWidth-300)*this.height/this.width;this.width=document.body.clientWidth-300}"" galleryImg=no>")
're.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.*?)\[\/DIR]"
'strContent=re.Replace(strContent,"")
're.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.*?)\[\/QT]"
'strContent=re.Replace(strContent,"")
re.Pattern="\[MP=(\d+),(\d+)\](.*?)\[\/MP]"
strContent=re.Replace(strContent,"")
'mp3
re.Pattern="\[MP3](.*?)\[\/MP3]"
strContent=re.Replace(strContent,"")
re.Pattern="\[RM=(\d+),(\d+)\](.*?)\[\/RM]"
strContent=re.Replace(strContent,"")
re.Pattern="(\[FLASH\])(.*?)(\[\/FLASH\])"
strContent= re.Replace(strContent,"$2")
re.Pattern="(\[FLASH=(\d+),(\d+)\])(.*?)(\[\/FLASH\])"
strContent= re.Replace(strContent,"$4")
'循环转换quote
re.Pattern="(\[QUOTE\])(.*?)(\[\/QUOTE\])"
while re.test(strContent)
strContent=re.Replace(strContent,"
引用:
$2
")
wend
re.Pattern="(\[w\])(.*?)(\[\/w\])"
strContent=re.Replace(strContent,"
页面:点这儿参观")
end if '大空间标签
re.Pattern="(\[ATTACHMENT=(.*?)\])(.*?)(\[\/ATTACHMENT\])"
strContent= re.Replace(strContent,"
$3
")
re.Pattern="(\[URL\])(.*?)(\[\/URL\])"
strContent= re.Replace(strContent,"$2")
re.Pattern="(\[URL=(http|https|ftp|rtsp|mms)(:\/\/)(.*?)\])(.*?)(\[\/URL\])"
strContent= re.Replace(strContent,"$5")
re.Pattern="(\[EMAIL\])(.*?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"$2")
re.Pattern="(\[EMAIL=(.*?)\])(.*?)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"$3")
re.Pattern = "(^|\s|
|
)(http|https|ftp|rtsp|mms)(:\/\/)(\S+)"
strContent = re.Replace(strContent,"$1$4")
re.Pattern = "(^|\s|
|
)(www.)(\S+)"
strContent = re.Replace(strContent,"$1$2$3")
'文本效果
re.Pattern="(\[list\])(.+?)(\[\/list\])"
strContent=re.Replace(strContent,"
- $2
")
re.Pattern="(\[list=)(A|1)(\])(.+?)(\[\/list\])"
strContent=re.Replace(strContent,"
- $4
")
re.Pattern="(\[\*\])"
strContent=re.Replace(strContent,"
")
re.Pattern="(\[color=(.*?)\])(.*?)(\[\/color\])"
strContent=re.Replace(strContent,"$3")
re.Pattern="(\[#(.{6}?)\])(.*?)(\[\/#\])"
strContent=re.Replace(strContent,"$3")
re.Pattern="(\[font=(.*?)\])(.*?)(\[\/font\])"
strContent=re.Replace(strContent,"$3")
re.Pattern="(\[align=(left|center|right)\])(.*?)(\[\/align\])"
strContent=re.Replace(strContent,"
")
re.Pattern="(\[fly\])(.*?)(\[\/fly\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[move\])(.*?)(\[\/move\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/GLOW]"
strContent=re.Replace(strContent,"
")
re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/SHADOW]"
strContent=re.Replace(strContent,"
")
re.Pattern="(\[i\])(.*?)(\[\/i\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[u\])(.*?)(\[\/u\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[b\])(.*?)(\[\/b\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[sup\])(.*?)(\[\/sup\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[sub\])(.*?)(\[\/sub\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="\[size=([+|-]?[0-7])\](.*?)(\[\/size\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[center\])(.*?)(\[\/center\])"
strContent=re.Replace(strContent,"
$2")
set re=Nothing
gmt=strContent
end function
Rem 过滤HTML代码
function HTMLfilter(fString)
if not isnull(fString) then
fString=server.htmlencode(fString)
fString = Replace(fString, CHR(9), " ") 'Tab
' fString = Replace(fString, CHR(34), """) '"
' fString = Replace(fString, CHR(39), "'") ''
fString = Replace(fString, CHR(13), "") '回车是一个13+10
fString = Replace(fString, CHR(10) & CHR(10), "
") '
fString = Replace(fString, CHR(10), "
")
' fString = Replace(fString, CHR(32), " ") ' 空格
HTMLfilter = fString
end if
end function
%>
Function isemail(strng)
isemail = false
Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular expression object (stupid, huh?)
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" ' Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(strng) ' Execute search.
if match.count then isemail= true
End Function
%>
ubb php论坛程序,论坛UBB代码 推荐相关推荐
- 简约论坛源码php,6kbbs - PHP简洁高效的论坛程序
说到论坛系统,那一定是大名鼎鼎的Discuz!,实在是够强大,够牛X,但缺点也很明显,够臃肿,有时我们只想要一个单纯的简单论坛,那可以考虑 6kbbs 6kbbs介绍 6kbbs 是一个采用 PHP+ ...
- html缩小网页时版块乱跑,解决动网论坛最后发表显示代码的问题(或导致首页排版错乱)...
动网论坛作为一个优秀的ASP论坛程序,两年前曾是千千万万站长的选择.虽然动网论坛官方停止了更新,但是由于我一个站用的是动网论坛,转换的话闲麻烦,而且之前做了不少个性化修改,再者我用着感觉也挺快的,也能 ...
- php 收费 论坛 程序,国内开源的PHP轻论坛程序
PHP的流行来源于开源的思想,PHP也有很多的开源程序.提到论坛大家想到的可能是PHP开发的Discuz和PHPWind等论坛,其实有时候我们的论坛根本都不需要这么复杂.下面想大家推荐一些比较好实用的 ...
- Startbbs YouBBS等轻论坛程序折腾过程
这段时间折腾了StartBBS,YouBBS,Wecenter,YouYaX,XiunoBBS,Rabel,bbPress,PHPBB等轻论坛程序,还有老牌的Discuz!和PHPwind.虽然知道现 ...
- 国内的部分免费论坛程序汇总
1.Vbb(PHP+MYSQL) http://www.chinavbb.com/ 2.LB5000(CGI) http://www.leoboard.com/cgi-bin/leoboard.cgi ...
- Android 学习论坛博客及网站推荐 1
Android 学习论坛博客及网站推荐 一.博客推荐 1)http://blog.csdn.net/android_tutor (Android开发入门基础,高级进阶) 2)http://blog.c ...
- discuz服务器500错误信息,discuz论坛程序突然出现http500错误解决方案
DISCUZ 论坛程序(以下称DZ论坛程序)突然出现http500错误,我们首先念到的是甚么?第一:程序突然有问题,第二:空间突然出问题了.固然,咱们首先会抉择第两,来讯问空间商是否是空间出问题了,果 ...
- windows主机支持php,HostEase Windows主机安装PHPWind论坛程序
对大多数国内站长们来说,比较熟悉或者正在使用的论坛程序是Discuz,其实PHPWind也是一款十分优秀的论坛程序,有兴趣的朋友可以来试试此程序.下面小编带大家一起去看看HostEase Window ...
- php修罗XiunoBBS轻论坛程序源码开源版
简介: php修罗XiunoBBS轻论坛程序源码开源版,自带99套收费插件. 修罗XiunoBBS源码采用 Bootstrap 4 + JQuery 3 作为前端类库,全面支持移动端浏览器: 后端 X ...
- 经典论坛程序 Discuz! 回归
Discuz! 社区论坛在消失的这几个月里,已经被 DNSPOD 和 腾讯云 所接纳,并进行全新的 Discuz!Q 版本研发.那些青春,那些岁月又回来了,敬请期待! 以下是原公告内容: 大家好,我是 ...
最新文章
- 处理字典值是把字典放内存还是用sql处理_SQL索引及其底层实现
- 2019全球AI人才分布图:美国占44%,中国人才净流入
- Android利用广播实现ViewPager中item之间的数据通信
- 经典复现:《统计学习方法》的代码实现(在线阅读!)
- Oracle 原理: 物化视图,快照,实体化视图。
- caffe error: #error This file requires compiler and library support for the ISO C++ 2011 standard
- internal java compiler error_Java异常处理总结
- 面试题06. 从尾到头打印链表
- HttpModule的认识
- android 快速布局,快速实现android的协同布局CoordinatorLayout
- linux ipv4 keepalive,Linux中keepalive的使用
- Geth搭建以太坊主网公有节点笔记
- IOS创建静态库Cocoa Touch Static Library
- python判断GET和POST有没有某个参数
- python tkinter 窗口位置_Python tkinter调整元件在窗口中的位置与几何布局管理
- VS2019/MFC学习笔记之一(创建对话框工程并实现简单加法运算)
- NTP详解(网络时间协议)
- 远程桌面管理工具RDCMan
- 多看系统kindle最新版_小米阅读器或将发布国际版,进军全球市场与Kindle 一争高下?...
- 医药领域知识图谱快速及医药问答项目