使用正则表达式进行asp时间跨度验证

<%
Dim startTime, endTime
startTime = Request.Form("start_time")
endTime = Request.Form("end_time")

' 定义时间格式为HH:MM
Dim timePattern
timePattern = "^([0-1][0-9]|2[0-3]):[0-5][0-9]$"

' 验证时间格式是否正确
If Not (RegExpTest(startTime, timePattern) And RegExpTest(endTime, timePattern)) Then
    Response.Write("时间格式不正确")
    Response.End
End If

' 将时间字符串转换为Date类型
Dim startDate, endDate
startDate = CDate("01/01/2000 " & startTime)
endDate = CDate("01/01/2000 " & endTime)

' 验证时间跨度是否符合要求（起始时间早于结束时间）
If startDate >= endDate Then
    Response.Write("起始时间必须早于结束时间")
    Response.End
End If

' 验证时间跨度是否超过一定范围（例如不超过1小时）
Dim timeSpan
timeSpan = DateDiff("n", startDate, endDate) ' 计算时间差（分钟）
If timeSpan > 60 Then
    Response.Write("时间跨度不能超过1小时")
    Response.End
End If

' 时间跨度验证通过，继续其他操作
' ...

' 正则表达式测试函数
Function RegExpTest(str, pattern)
    Dim regEx
    Set regEx = New RegExp
    regEx.Pattern = pattern
    RegExpTest = regEx.Test(str)
    Set regEx = Nothing
End Function
%>