一个将字符串转换为'yyyy-mm-dd'形式标准日期的函数:
我自己写的,湊合可以用。比较保守的用法是在调用前先用 isdate() 判断一下是否可转换为日期型,否则会出错!

<%
Function stddate(riqi)
riqi0 = Cdate(riqi)
riqi1 = year(riqi0)
riqi2 = month(riqi0)
riqi3 = day(riqi0)
If len(riqi2) = 1 Then
riqi2 = "0" & riqi2
End if
If len(riqi3) = 1 Then
riqi3 = "0" & riqi3
End if
stddate = riqi1 & "-" & riqi2 & "-" & riqi3
End function
%>