回复:(anjincheng)是的,那请问老师,能给一段具体...
以下是引用anjincheng在2006-4-20 14:15:00的发言:
是的,那请问老师,能给一段具体一点的代码提示吗?
那我就写主要的部分其它分页楼主应该会写吧
'……省略分页循环初始化部分
'一下为判断过期函数
Function IsStaleDated(theDate,SDNum)
IF DateDiff("d", Now, theDate)<=10 Then
'如果药品有效期与当前日期之间相差小于10天
IF DateDiff("d", Now, theDate)<=0 Then
'如果药品有效期与当前日期之间相差小于等于0天
IsStaleDated="stale dated"
'则判定该药品过期
Else
'否则该药品即将过期
IsStaleDated="quick stale dated"
'取得过期时间
SDNum=DateDiff("d", Now, theDate)
End IF
End IF
End Function
'……省略网页其它内容代码
Dim SDNum'定义变量接收快过期的天数
SDNum=0
For iPage=0 To rs.PageSize
With Response
'……省略分页循环其它内容代码
'一下为判断过期实例代码,其他HTML代码自行补充,实例只写主要代码。
IF IsStaleDated(rs.Fields("YXRQ").Value,SDNum)="stale dated" Then
.Write "药品已过期"
Else
IF SDNum<>0 Then
.Write "药品过期还有"&CStr(SDNum)&"天"
Else
.Write "药品还未过期可以继续使用"
End IF
End IF
End With
'rs对象为分页循环对象这里是实例用途
'具体使用时请替换成网页中原有的具体循环对象
IF rs.EOF Then Exit For
Next