function filterhtml(byval fstring)
	if isnull(fstring) or trim(fstring)="" then
	filterhtml=""
	exit function
	end if
	'过滤html标签
	dim re
	set   re = new regexp
	re.ignorecase=true
	re.global=true
	re.pattern="<(.+?)>"
	fstring = re.replace(fstring, "")
	re.pattern="(^\s*)|(\s*$)"	'首尾空格
	fstring = re.replace(fstring, "")
	set  re=nothing
	fstring = replace(fstring, chr(13), "")
	fstring = replace(fstring, chr(32), "")
	fstring = replace(fstring, chr(9), "")
	fstring = replace(fstring, "，", ",")
	fstring = replace(fstring, "。", ".")	
	fstring = replace(fstring, "：",":")
	fstring = replace(fstring, "；",";")
	fstring = replace(fstring, "　", "")
	fstring = replace(fstring, " ", "")
	fstring = replace(fstring, ">", "&gt;")
	fstring = replace(fstring, "<", "&lt;")
	fstring = replace(fstring, "&nbsp;", "")
	filterhtml = fstring
end function
function VBDateDiff(byval d1,byval d2)
	VBDateDiff=datediff("s",d1,d2)
end function
function SumTime(byval endtime,byval endt)
	'on error resume next
	dim time_str,one_d,one_h,one_m,now_d,now_h,now_m,time_d,time_h,time_m
	if isdate(endtime)=false then
		SumTime="不是日期"
	end if
	time_str=DateDiff("s",now(),endtime)
	one_d=24*60*60
	one_h=60*60
	one_m=60
	now_d=Fix(time_str/one_d)
	now_h=time_str Mod one_d
	now_m=now_h Mod one_h
	time_d=now_d
	time_h=fix(now_h/one_h)
	time_m=fix(now_m/one_m)
	if (time_d <=0 and time_h <=0 and time_m <=0 and time_str<=0) or endt=1 then
		SumTime="<font color=red> 竞拍已结束 </font>"
    elseif endt<>1 and time_h=0 and time_d=0 and time_m<5 then
        SumTime="<font color=red>"&time_d&" 天 "&time_h&" 小时 "&time_m&"分</font><font color=red size=2> (延时中)</font>"
    else
        SumTime=time_d&" 天 "&time_h&" 小时 "&time_m&" 分"
	end if
end function