function ShowNew(startTime,lasting,img)
		dim mDate
		'document.write startTime
		if len(startTime)<10 then exit function
		mDate=DateValue(startTime)
		
		dim interval
		select case lasting
			case "一周"
				interval=7
			case "一天"
				interval=1
			case "三天"
				interval=3
			case "10天"
				interval=10
			case else
				interval=0
		end select
		'document.write interval
		NewDate = DateAdd("d", interval, startTime)
		if NewDate>now then document.write img
		'if DateAdd("d"，interval,startTime)<now then
		'	document.write "new"
		'end if
end function
			
function DisplayNewIcon(startTime,lasting,img)
	dim mDate
	'document.write startTime
	
	if len(startTime)<10 then exit function
	on error resume next
	mDate=DateValue(startTime)
	if err.number<>0 then
			err.clear
			exit function
	end if
	NewDate = DateAdd("d", lasting, startTime)
	if NewDate>now then document.write img
end function