nian=year(str)

yue=month(str)

ri=day(str)

selectcaseyue

case"1"yue="Jan"

case"2"yue="Feb"

case"3"yue="Mar"

case"4"yue="Apr"

case"5"yue="May"

case"6"yue="Jun"

case"7"yue="Jul"

case"8"yue="Aug"

case"9"yue="Sep"

case"10"yue="Oct"

case"11"yue="Nov"

case"12"yue="Dec"

endselect

Shijian=ri&","&yue&","&nian

EndFunction

使用方法:

<%=Shijian(rs("Shijian"))%>