<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>
发表评论 取消回复