asp 时间无法显示（时、分、秒）

<%
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"),1)%>

这是我现在使用的函数调用，问题是只显示日期，不显示其他时间。

例如：2009-11-10 00：00：00

如何才能让时、分、秒都能正常显示？请各位高手指点一下，谢谢。

你的stime是否是now() 呢 ？

我看了！问题在这里，首先的写的代码没有什么问题。你给你的代码里赋予一个初始值

rst="2008-05-03 14:47:10"

<%=FormatTime(rst("news_time"),1)%>

测试后没有任何问题

但是你有没有考虑到，这个自定函数实用的本身就不对。

因为，你所调用的时间肯定是从数据库里面的记录提取出来的，但是数据的记录有很多条你如果去选择呢？

肯本就没有办法提取到某条记录的时间.

你选一下7看看

再把

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 注掉试下

问题可能出现在以下几个环节

1：读取的时候没读取到正确的时分秒

2：写入数据库时没有正确的保存

3：数据库保存时间的字段的数据类型有误

4：读出时间有问题（可能性最小）