Question

高分求助Asp计算剩余时间问题

我知道使用 DATEDIFF 函数。别给整虚的。我要拿过来就能使的！
比如会员开通日期是：2009-09-09 我自定义会员到期时间为：2010-10-10 这些都是从库里调用的。开通日期表名 kkk 到期表为 zzz
实现功能：当前时间与到期日间对比，得出还有多久会员到期。格式出来为：*天*小时*分

一经采用追加100分。如果写的好。另追加！谢谢帮忙！
另：除写出上面解答方式。如果能写出：当会员到期日期剩余7天以内页面的。再追加100分。本人有的是分！

Answer 1

<%
Dim haha
haha=DateDiff("d",now(),rs("zzz"))
if haha<=0 then
response.write"<font color=#FF0000>已过期</font>"
Else
response.write "<font color=black>"&haha&" 天</font>"
end if
%>

Answer 2

set rs=conn.execute("select a.开通时间 as kttime,b.到期时间 as dqtime from kkk as a,zzz as b")
do while not rs.eof
response.write changetime( datediff( "s",rs("kttime"),rs("dqtime") ) )
rs.movenext
loop
set rs=nothing

function changetime(s)
dim f_return
dim f_s : f_s=clng(s)
dim f_d : f_d=f_s\86400
dim f_h : f_h=(f_s-f_d*86400)\3600
dim f_m : f_m=(f_s-(f_d*86400)-(f_h*3600))\60
f_return=f_return & f_d & "天"
f_return=f_return & f_h & "小时"
f_return=f_return & f_m & "分钟"
changetime=f_return
end function

Answer 3

没有相关字段，所以创建记录集部分就不写了啊~你自己建一个记录集吧，叫rs
<%
d=rs("dqtime")-now()
if d>0 then
h=(d-fix(d))*24
m=(h-fix(h))*60
Response.Write(fix(d)&"天"&fix(h)&"小时"&fix(m)&"分")
else
Response.Write("已过期")
end if
%>

Answer 4

不是要连数据库怎么连都要写吧，关键代码写几句还行。仔细一看，你这kkk、zzz是表名还是字段名啊，如果不在一个表里面那相关字段是什么，把问题补充下，兄弟。