Question

ASP计算到期时间

设置了一个任务到期时间为2009-01-10，如果计算当前日期到任务到期时间的天数。

到期时间字段名称为dqsj

大概的效果如下代码

<table border="0" width="800" cellspacing="1" style="border-collapse: collapse">
<tr>
<td bgcolor="#C0C0C0">编号</td>
<td bgcolor="#C0C0C0">任务名称</td>
<td bgcolor="#C0C0C0">到期时间</td>
<td bgcolor="#C0C0C0">剩余时间</td>
</tr>
<tr>
<td>1</td>
<td>暗暗啊</td>
<td>2009-01-10</td>
<td>30天</td>
</tr>
<tr>
<td>2</td>
<td>暗暗啊</td>
<td>2008-12-9</td>
<td>时间已过</td>
</tr>
</table>
我写了个代码：<%=DateDiff("d",now(),mrs("dqsj"))%> 但是如何让日期差小于0以后提示 已经过期呢 而不是显示 -10天这样的格式
------
<%
Dim g_date
g_date=DateDiff("d",now(),mrs("dqsj"))
if g_date<0 then
response.write"<font color=#FF0000>已过期</font>"
Else
response.write"g_date"
end if
%>

这个小于0显示过期了，但是大于0的时候现实xx天 怎么写

Answer 1

'主要是对数据的判断
Dim g_date
g_date=DateDiff("d",now(),mrs("dqsj"))
if g_date<=0 then '加上当天的判断
response.write"<font color=#FF0000>已过期</font>"
Else
response.write "<font color=black>距离过期还有 "&g_date&" 天</font>"
end if