<% 
Dim g_date 
g_date=DateDiff("d",now(),rs("读取到的日期")) 
if g_date<=0 then '加上当天的判断 
response.write"<font color=#FF0000>已过期</font>" 
Else 
response.write "<font color=black>距离过期还有 "&g_date&" 天</font>" 
end if
%>