<SCRIPT LANGUAGE="vbScript">
<!--
‘判断是否是日期
function thisdate(dt)
if not IsDate(dt) then
thisdate=false
elseif int(left(dt,4))<int(1750) then
thisdate=false
else
thisdate=true
end if
end function
//-->
</SCRIPT>用VBSrcipt判断是否是日期
原文：http://www.jb51.net/article/8029.htm
