asp 时间显示 2009-1-1 变成01-01，代码是什么？谢谢了，大神帮忙啊

如题，自己参考别人答案，但是只能正确显示月份，日子无法正确显示；也就是只能显示01-1，我需要的是01-01。 " target="_blank" title="<%=rs("news_name")%>"><% dt=rs("news_time") if month(dt)>9 then response.write right(dt,5) else response.write "0" & right(dt,4) end if %>  <%=rs("news_name")%> 希望高手能给与指点，可以在源代码上作调整；或者直接提供新的代码，谢谢。

使用自定义函数 从数据库的日期字段直接读取 进行自定义转化 下面这个是 我弄的个函数 '************************************* '函数名：FormatTime '作 用：转化时间 '参 数：stime ---- 时间 ' nflag ---- 转化方式 '返回值：转化后时间 '调 用：FormatTime(now(), 1) '************************************* function FormatTime(stime, nflag) Dim y, m, d, h, mi, s FormatTime = "" if IsDate(stime) = False then Exit Function y = cstr(year(stime)) m = cstr(month(stime)) d = cstr(day(stime)) h = cstr(hour(stime)) mi = cstr(minute(stime)) s = cstr(second(stime)) if len(m) = 1 then m = "0" & m if len(d) = 1 then d = "0" & d if len(h) = 1 then h = "0" & h if len(mi) = 1 then mi = "0" & mi if len(s) = 1 then s = "0" & s select Case nflag Case 1 '格式2009-11-12 11:01:20 FormatTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case 2 '格式2009-11-12 11:01 FormatTime = y & "-" & m & "-" & d & " " & h & ":" & mi Case 3 '格式2009-11-12 FormatTime = y & "-" & m & "-" & d Case 4 '格式11-12 FormatTime = m & "-" & d Case 5 '格式11月12日 FormatTime = m & "月" & d & "日" Case 6 '格式2009年11月12日 FormatTime = y & "年" & m & "月" & d & "日" Case 7 '格式20091112110120 FormatTime = y & m & d & h & mi & s end select end function =================== 输出时候 这样就可以了 FormatTime(rs("news_time"),4)

<% dt=rs("news_time") if month(dt)>9 then '里面再加个日期的判断 response.write year(dt) & "-" & month(dt) & "-" & day(dt) else '里面再加个日期的判断 response.write year(dt) & "-0" & month(dt) & "-" & day(dt) end if %>&

没看懂 ——楼主美瞳前：　楼主美瞳后：　楼主美瞳失败：