dim dateStrdateStr = "2007-11-3 0:00:00"Dim y,m,dy = Split(dateStr,"-")(0)m = Split(Split(dateStr,"-")(1),"-")(0)d = Split(Split(Split(SateStr,"-")(1),"-")(1),"-")(0)Dim a,b,ca = Split(Split(dateStr," ")(1),":")(0)b = Split(Split(Split(dateStr," ")(1),":")(1),":")(0)c = Split(Split(Split(Split(dateStr," ")(1),":")(1),":")(1),":")(0)response.write y&"年"&m&"月"&d&"日" |