ubb转换html,ubb 转换成html代码

function unhtml(s_string)

s_string=replace(s_string,"&","&")

's_string=replace(s_string," "," ")

s_string=replace(s_string,"

unhtml=replace(s_string,">",">")

end function

function ubbimg(s_string)

s_string=replace(s_string,"[img]","

")

end function

function ubb_url(s_string)

str_len=len(s_string)

start_pos=instr(s_string,"[url]")

if start_pos>0 then

end_pos=instr(start_pos,s_string,"[/url]")

if end_pos>0 then

url=mid(s_string,start_pos+5,end_pos-start_pos-5)

s_string=left(s_string,start_pos-1)&""&url&""&right(s_string,str_len-end_pos-5)

call ubb_url(s_string)

end if

end if

ubb_url=s_string

end function

function ubburl(s_string)

s_string=ubb_url(s_string)

str_len=len(s_string)

start_pos=instr(s_string,"[url=")

if start_pos>0 then

end_pos=instr(start_pos,s_string,"]")

end_pos2=instr(start_pos,s_string,"[/url]")

if end_pos>0 and end_pos2>end_pos then

url=mid(s_string,start_pos+5,end_pos-start_pos-5)

s_string=left(s_string,start_pos-1)&""&right(s_string,str_len-end_pos)

call ubburl(s_string)

end if

end if

ubburl=replace(s_string,"[/url]","")

end function

function unquot(s_string)

s_string=replace(s_string,chr(34),chr(34)&chr(34))

unquot=replace(s_string,chr(39),chr(39)&chr(39))

end function

function fbdwords(s_string,s_fbdwords)

a_string=split(s_fbdwords," ")

n=ubound(a_string)

for i=0 to n

if trim(a_string(i))<>"" then

s_string=replace(s_string,trim(a_string(i)),"*")

end if

next

fbdwords=s_string

end function

function existswords(s_string,s_fbdwords)

isexist=false

a_string=split(s_fbdwords," ")

n=ubound(a_string)

for i=0 to n

if trim(a_string(i))<>"" and instr(s_string,a_string(i))>0 then

isexist=true

exit for

end if

next

existswords=isexist

end function

%>

本文链接：

阅读(442) | 评论(0) | 转发(0) |