最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ubb转换成html
时间:2008-08-05 编辑:简简单单 来源:一聚教程网
<%
function encodestr(str)
str=trim(str)
str=replace(str,"<","<")
str=replace(str,">",">")
str=replace(str,"'","""")
str=replace(str,vbCrLf&vbCrlf,"
")
str=replace(str,vbCrLf,"
")
encodestr=replace(str," "," ")
end function
function UBBCode(strContent)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
strContent=encodestr(strContent)
re.Pattern="([IMG])(.[^[]*)([/IMG])"
strContent=re.Replace(strContent,"screen.width-333)this."> ")
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=*([0-9]*),*([0-9]*)](.[^[]*)[/MP]"
strContent=re.Replace(strContent,"
re.Pattern="[RM=*([0-9]*),*([0-9]*)](.[^[]*)[/RM]"
strContent=re.Replace(strContent,"
re.Pattern="([FLASH])(.[^[]*)([/FLASH])"
strContent= re.Replace(strContent,"")
re.Pattern="([URL])(.[^[]*)([/URL])"
strContent= re.Replace(strContent,"$2")
re.Pattern="([URL=(.[^[]*)])(.[^[]*)([/URL])"
strContent= re.Replace(strContent,"$3")
re.Pattern="([EMAIL])(.[^[]*)([/EMAIL])"
strContent= re.Replace(strContent,"$2")
re.Pattern="([EMAIL=(.[^[]*)])(.[^[]*)([/EMAIL])"
strContent= re.Replace(strContent,"$3")
re.Pattern = "^(http://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(http://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "([^>=""])(http://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2")
re.Pattern = "^(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "([^>=""])(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2")
re.Pattern = "^(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "([^>=""])(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2")
re.Pattern = "^(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "([^>=""])(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1$2")
re.Pattern="([color=(.[^[]*)])(.[^[]*)([/color])"
strContent=re.Replace(strContent,"$3")
re.Pattern="([align=(.[^[]*)])(.*)([/align])"
strContent=re.Replace(strContent,"
re.Pattern="([QUOTE])(.*)([/QUOTE])"
strContent=re.Replace(strContent,"
|
")
re.Pattern="([fly])(.*)([/fly])"
strContent=re.Replace(strContent,"")
re.Pattern="([move])(.*)([/move])"
strContent=re.Replace(strContent,"")
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="([size=1])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"$2")
re.Pattern="([size=2])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"$2")
re.Pattern="([size=3])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"$2")
re.Pattern="([size=4])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"$2")
re.Pattern="([center])(.[^[]*)([/center])"
strContent=re.Replace(strContent,"
set re=Nothing
UBBCode=strContent
end function
%>
-
上一个: asp把html转换成html编码
-
下一个: asp 会员注册系统程序一
相关文章
- python实现html代码转义转换的例子 12-18
- HTML与UBB代码互相转换 07-19
- html转换成UBB代码 05-24
- ubb 转换成html代码 04-29
- ubb转换成html 代码 03-15
- ubb代码转化html代码 01-12