如题,没有显示。time类型的数据。数据库中有数据显示:mysql> select * from O_Attendancedutyset;
+------+--------+-------------+-------------+-------------+-------------+-------
------+-------------+
| A_Id | A_Type | A_AddTimeAM | A_EndTimeAM | A_AddTimePM | A_EndTimePM | A_AddT
imeNM | A_EndTimeNM |
+------+--------+-------------+-------------+-------------+-------------+-------
------+-------------+
| 1 | ??? | 09:00:00 | 12:00:00 | 14:00:00 | 18:00:00 | NULL
| NULL |
+------+--------+-------------+-------------+-------------+-------------+-------
------+-------------+
1 row in set (0.00 sec)代码测试:
'连接数据库和打开表都成功;
if rssd.recordcount>0 then
if isnull(rssd("A_AddTimeAM")) then response.Write "空"
response.Write "SSS="&rssd("A_AddTimeAM")
else
response.Write "没有"
end if
end if结果:空SSS=
+------+--------+-------------+-------------+-------------+-------------+-------
------+-------------+
| A_Id | A_Type | A_AddTimeAM | A_EndTimeAM | A_AddTimePM | A_EndTimePM | A_AddT
imeNM | A_EndTimeNM |
+------+--------+-------------+-------------+-------------+-------------+-------
------+-------------+
| 1 | ??? | 09:00:00 | 12:00:00 | 14:00:00 | 18:00:00 | NULL
| NULL |
+------+--------+-------------+-------------+-------------+-------------+-------
------+-------------+
1 row in set (0.00 sec)代码测试:
'连接数据库和打开表都成功;
if rssd.recordcount>0 then
if isnull(rssd("A_AddTimeAM")) then response.Write "空"
response.Write "SSS="&rssd("A_AddTimeAM")
else
response.Write "没有"
end if
end if结果:空SSS=
sql="select * from O_AttendanceDutySet where A_ID=1"
rssd.open sql,conn,1,3'其它地方都可以(添加时间也正确),就是显示不出来。
'On Error Resume Next也注释了,不会出错。
'
用语句查出来也是这样:15:23:23
但:
response.Write "SSS="&rssd("A_AddTimeAM")
来一看:却出现结果:SSS=2009-8-10
真是令人费解。
我直接 response.Write rssd("A_AddTimeAM") 也不行。
没有用变量,没有日期转换函数呀。
用语句查出来也是这样:15:23:23
但:
response.Write "SSS="&rssd("A_AddTimeAM")
来一看:却出现结果:SSS=2009-8-10 -----------------------------
这过程中,肯定有什么地方进行了转换成今天的日期了,你仔细查查吧
TxtIP="localhost"
TxtUID="root"
TxtPWD="1"
TxtDATA="mysql"
connstr = "driver={MySQL ODBC 3.51 Driver};server="&Txtip&";uid="&TxtUID&";pwd="&TxtPWD&";database="&TxtDATA&";OPTION=3"
Set conn = Server.CreateObject("ADODB.Connection")
conn.CursorLocation=3
conn.open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "<br>错误码:8006,数据库连接出错!"
Response.End
End If
set rssd=server.CreateObject("adodb.recordset")
sql="select * from O_AttendanceDutySet where A_ID=1 "
rssd.open sql,conn,1,3
if rssd.recordcount>0 then
response.Write "<br>SSS="&rssd("A_ID")
response.Write "<br>SSS="&rssd("A_AddTimeAM")
else
response.Write "没有"
end if
rssd.close
set rssd=nothing
%>没有看到转换呀