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