1
<%
2
Dim g_date
3
g_date=DateDiff("d",now(),rs("zjjxp_dqtim"))
4
if g_date<=0 then '加上當天的判斷
5
response.write"<font color=#FF0000>已過期</font>"
6
Else
7
response.write "<font color=black>距離過期還有 "&g_date&" 天</font>"
8
end if
9
%>(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)
