asp的ubb函数（推荐）

asp的ubb函数（推荐）

function unHtml(content)
unHtml=content
if content <> "" then
unHtml=replace(unHtml,"&","&")
unHtml=replace(unHtml,"<","<")
unHtml=replace(unHtml,">",">")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13)," ")
unHtml=replace(unHtml,chr(32)," ")
''unHtml=ubb(unHtml)
end if
end function

function ubb(content)
Dim nowtime,i
ubb=content
nowtime=now()
UBB=Convert(ubb,"code")
UBB=Convert(ubb,"html")
UBB=Convert(ubb,"url")
UBB=Convert(ubb,"color")
UBB=Convert(ubb,"font")
UBB=Convert(ubb,"size")
UBB=Convert(ubb,"quote")
UBB=Convert(ubb,"email")
UBB=Convert(ubb,"img")
UBB=Convert(ubb,"swf")

UBB=AutoURL(ubb)
ubb=replace(ubb,"[b]","",1,-1,1)
ubb=replace(ubb,"[/b]","",1,-1,1)
ubb=replace(ubb,"[i]","",1,-1,1)
ubb=replace(ubb,"[/i]","",1,-1,1)
ubb=replace(ubb,"[u]","",1,-1,1)
ubb=replace(ubb,"[/u]","",1,-1,1)
ubb=replace(ubb,"[blue]","",1,-1,1)
ubb=replace(ubb,"[/blue]","",1,-1,1)
ubb=replace(ubb,"[red]","",1,-1,1)
ubb=replace(ubb,"[/red]","",1,-1,1)
for i=1 to 28
ubb=replace(ubb,"{:em"&i&"}","<IMG SRC=/uploadfile/200912/4/C485235376.gif></img>",1,6,1)
ubb=replace(ubb,"{:em"&i&"}","",1,-1,1)
next
ubb=replace(ubb,"["&chr(176),"[",1,-1,1)
ubb=replace(ubb,chr(176)&"]","]",1,-1,1)
ubb=replace(ubb,"/"&chr(176),"/",1,-1,1)
'' ubb=replace(ubb,"{;em","{:em&quo

1 2 3 4 5 下一页

<< 为字符串中的网址加上链接的程序例子用规则公式确认表单输入 >>

▪ 为字符串中的网址加上链接的程序例子
▪ asp的ubb函数（推荐）
▪ 用规则公式确认表单输入
▪ 正则表达式练习器
▪ 用正则表达式突出显示字符串中查询到的单词的函数
▪ 一个新版本的ubb转化程序
▪ 一个功能更强大的函数，也是用正则表达式写的
▪ 用正则表达式写的HTML分离函数
▪ ASP中正则表达式的应用（二）
▪ ASP中正则表达式的应用（一）
▪ 转换文本为超联和Email格式的代码
▪ 打印Web的完全技术版

查看所有评论