Function CheckDate(theDate)
		CheckDate=""
		If theDate<>"" Then
			theDate=replace(theDate,"。",".")
			theDate=replace(theDate,"-",".")
			TempArray=split(theDate,".")
			arrcount=ubound(TempArray)
			if Len(theDate)>10 or Len(theDate)<8 or arrcount<>2 then 
				MsgBox "日期格式不对！应如2001.05.14形式。"
				CheckDate=""
				Exit Function
			end if
			if len(TempArray(0))<>4 or len(TempArray(1))>2 or len(TempArray(2))>2 or IsNumeric(TempArray(0))=false or IsNumeric(TempArray(1))=false or IsNumeric(TempArray(2))=false  then
				MsgBox "年份格式不对！应如2001.05.14形式。"
				CheckDate=""
				Exit Function
			end if
			if len(TempArray(1))=1 then 
				TempArray(1)="0" & TempArray(1)
			end if
			if len(TempArray(2))=1 then 
				TempArray(2)="0" & TempArray(2)
			end if
			CheckDate=TempArray(0) & "." & TempArray(1) & "." & TempArray(2)
		End If
	End Function
	'<script language="VBScript" src="../Functions.vbs"></script>
	'onblur="Caseenddate.value=CheckDate(Caseenddate.value)"

	Function CheckNumeric(theNumber)
		CheckNumeric=0
		If IsNumeric(theNumber) Then
			CheckNumeric=theNumber
		Else
			MsgBox "数字数据的格式不对!"
			CheckNumeric=0
		End If
	
	End Function