UC知道ASP高手进。。求救啊
来源：百度知道 编辑：UC知道 时间：2024/05/09 13:06:05
这段代码有错， 不管用户注册了有没有过期，都显示以过期，好郁闷
。到底该怎么改，才能显示正常？ 我能否强制性的改成正常或良好？
End Sub
'个人会员信息
Sub PerInf()
%>
<!--#include virtual="/dns/dns.asp" -->
<%goname=session("persuser")
goid=session("persid")
Response.Write "<table width=100% border=0 cellspacing=0 cellpadding=0 >"
Response.Write "<tr>"&vbcrlf
Response.Write "<td height=94>"&vbcrlf
Set Rs=conn.execute("Select JOB_id,JOB_num,JOB_iname,JOB_sex,JOB_lastdate,JOB_dateandtime from JOB_job_qz where JOB_id="&Session("persid"))
If Not Rs.eof then
pktdate=rs("JOB_lastdate")
pksdate=rs("JOB_dateandtime")
pl=DateDiff("d",pktdate,Date()) '剩余天数
zpl=DateDiff("d",pksdate,pktdate) '总天数
Response.Write "<p style=line-height:20px>"
Response.Write "&
。到底该怎么改，才能显示正常？ 我能否强制性的改成正常或良好？
End Sub
'个人会员信息
Sub PerInf()
%>
<!--#include virtual="/dns/dns.asp" -->
<%goname=session("persuser")
goid=session("persid")
Response.Write "<table width=100% border=0 cellspacing=0 cellpadding=0 >"
Response.Write "<tr>"&vbcrlf
Response.Write "<td height=94>"&vbcrlf
Set Rs=conn.execute("Select JOB_id,JOB_num,JOB_iname,JOB_sex,JOB_lastdate,JOB_dateandtime from JOB_job_qz where JOB_id="&Session("persid"))
If Not Rs.eof then
pktdate=rs("JOB_lastdate")
pksdate=rs("JOB_dateandtime")
pl=DateDiff("d",pktdate,Date()) '剩余天数
zpl=DateDiff("d",pksdate,pktdate) '总天数
Response.Write "<p style=line-height:20px>"
Response.Write "&
if pl<0 then
Response.Write "<strong>已过期</strong>"
else
Response.Write "开通正常" &pl&"/"&zpl&"天"
end if
改为
if pl>0 then
Response.Write "开通正常" &pl&"/"&zpl&"天"
else
Response.Write "<strong>已过期</strong>"
end if
试试
楼主粗心了
pl=DateDiff("d",pktdate,Date()) '剩余天数
↑你把 结束日期写在前 开始日期写在后~~~
所以结果与你想要的值总是反的!
pktdate=rs("JOB_lastdate") 这个值应该是到期时间吧?!
datediff("d",startdate,enddate) 应该是开始日期在前,结束日期在后
沙发啊