大家好，很高兴能和大家分享我在学习过程中了解到的一点小知识，希望可以帮助到大家，如果大家还有什么疑问，可以参阅：[url=http://www.bdqn1.cn]网络工程专业[/url]

<%
'=========================================
function compare(date1,date2)
select case year(date1)-year(date2)
'--------------------------------------
case 0
'--------------------------------------
select case month(date1)-month(date2)
case 0

select case day(date1)-day(date2)
case 0
response.write "date1=date2"
case else
if day(date1)-day(date2)>0 then
response.write "date1>date2"
else 
response.write "date1<date2"
end if
end select

case else
if month(date1)-month(date2)>0 then
response.write "date1>date2"
else 
response.write "date1<date2"
end if
end select
'--------------------------------------
case else
'--------------------------------------
if year(date1)-year(date2)>0 then
response.write "date1>date2"
else 
response.write "date1<date2"
end if
'--------------------------------------
end select
end function
'=========================================
date1=date()
date2="2006-6-6"
compare date1,date2
%>