ASP中的日期函数

<%
'日期函数包DataPackage
%>
<script language="javascript">
function IsDateString(Str)
<!--
{
// 校验是否YYYY-MM-DD格式的日期型数据，返回值为True成功，否则返回False
// 如果传递的是空字符串则返回False
// 定义分隔符
var sSplit="-"
var iYearPos=Str.indexOf(sSplit);
if (iYearPos==-1) return false;
var iMonthPos=Str.indexOf(sSplit,iYearPos+1);
if (iMonthPos==-1) return false;
// 分离出年份
sYear=Str.substr(0,iYearPos);
// 分离出月份
sMonth=Str.substr(iYearPos+1,iMonthPos-iYearPos-1);
//月份长度为二
if (sMonth.length!=2) return false;
if (sMonth.substr(0,1)=="0") sMonth=sMonth.substr(1);
// 分离出日期
sDay=Str.substr(iMonthPos+1);
//日长度为二
if (sDay.length!=2) return false;
if (sDay.substr(0,1)=="0") sDay=sDay.substr(1);
// 年份是否数字？
if (isNaN(sYear)) return false;
var iYear=parseInt(sYear);
// 年份是否整数？
if (sYear!=iYear) return false;
// 年份是否在1000-9999之间？
if (iYear<1000 || iYear>9999) return false;
// 月份是否数字？
if (isNaN(sMonth)) return false;
var iMonth=parseInt(sMonth);
// 月份是否整数？
if (sMonth!=iMonth) return false;
// 月份是否在1-12之间？
if (iMonth<1 || iMonth>12) return false;
// 日期是否数字？
if (isNaN(sDay)) return false;
var iDay=parseInt(sDay);
// 日期是否整数？
if (sDay!=iDay) return false;
// 日期是否在1-31之间？
if (iDay<1 || iDay>31) return false;
if (iDay<29) return true;
// 日期数据是否合法的？
switch (iMonth)
{
case 1:
if (iDay>31) return false;
break;
case 2:
if (IsLeapYear(iYear))
{
if (iDay>29) return false;
}
else
{
if (iDay>28) return false;
}
break;
case 3:
if (iDay>31) return false;
break;
case 4:
if (iDay>30) return false;
break;
case 5:
if (iDay>31) return false;
break;
case 6:
if (iDay>30) return false;
break;
case 7:
if (iDay>31) return false;
break;
case 8:
if (iDay>31) return false;
break;
case 9:
if (iDay>30) return false;
break;
case 10:
if (iDay>31) retu