给你个例子:
<%
' *****************************************
' These date format functions are used to ensure
' the expected format is displayed.
' *****************************************
Function format_ddmmmyyyy(dtDate)
Dim dtOut
If dtDate <> "" Then
If isDate(dtDate) Then
dtOut = pad_zeros(day(dtDate),2) & "-" & MonthName(month(dtDate),1) & "-" & Year(dtDate)
End If
End If
If dtOut = "" Then
format_ddmmmyyyy = dtDate
Else
format_ddmmmyyyy = dtOut
End If
End Function
%>