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

1. $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,"

$3

")

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

%>