最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp ubb代码转换函数
时间:2009-07-06 编辑:简简单单 来源:一聚教程网
<%
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="([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="([size=5])(.[^[]*)([/size])"
strContent=re.Replace(strContent,"$2")
re.Pattern="([center])(.[^[]*)([/center])"
strContent=re.Replace(strContent,"
set re=Nothing
UBBCode=strContent
end function
%>
-
上一个: asp 文件上传类代码
-
下一个: asp 通用UBB代码转换程序
相关文章
- asp 字节转换kb mb GB函数 11-01
- asp ubb转函数 07-03
- asp将全角转化成半角的函数 02-22
- asp之转换函数示例 01-18
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16