已过期 dr("过期日期") < Date.Today
Dim t As TimeSpan
t = dr("过期日期") - Date.Today
t.day < 30 一个月内
t.day < 90 1至3个月内
加好友 
发短信
Post By：2013/1/22 12:10:00 [只看该作者]
