28,391
社区成员
发帖
与我相关
我的任务
分享
rs("date1")=request.Form("date1")
rs("date2")=request.Form("date2")
rs("date3")=request.Form("date3")
rs("date4")=request.Form("date4")
rs("date5")=request.Form("date5")
rs("date6")=request.Form("date6")
rs("date7")=request.Form("date7")
Dim maxDate,tempDate:maxDate=""
For i=1 To 7
If trim(rs("date"&i)&"")<>"" And IsDate(rs("date"&i)) Then'防止为空和不是cdate能转换的类型时防止出错
If maxDate="" Then
maxDate=CDate(rs("date"&i"))
Else
tempDate=CDate(rs("date"&i))
If tempDate>maxDate Then maxDate=tempDate
End If
End If
Next
rs("jjdate")=maxDate
<%
arr = Array(#2008-1-3#,#2008-12-2#,#2008-3-4#,#2008-9-8#,#2008-1-1#,#2008-7-6#)
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation=3
rs.Fields.Append "dt",7
rs.Open
For i=0 To UBound(arr)
rs.AddNew
rs("dt") = arr(i)
Next
rs.sort="dt DESC"
rs.MoveFirst
Response.Write "最大:" & rs(0)
rs.Close
Set rs = Nothing
%>