functions.asp

网站形式的客户系统,可直接提出问题,也可以查看各种问题的答案.

<%
function unhtml(s_string)
	s_string=replace(s_string,"&","&amp;")
	's_string=replace(s_string," ","&nbsp;")
	s_string=replace(s_string,"<","&lt;")
	unhtml=replace(s_string,">","&gt;")
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
%>