?? functions.asp
字號:
<%
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]","<img src='")
ubbimg=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)&"<a href='"&url&"' target='_blank'>"&url&"</a>"&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)&"<a href='"&url&"' target='_blank'>"&right(s_string,str_len-end_pos)
call ubburl(s_string)
end if
end if
ubburl=replace(s_string,"[/url]","</a>")
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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -