请帮我修改一下

[xuheguan]

<%
dim y,m,d
LogTime=Now()
if cstr(month(logtime)) < 10 then
m=0+cstr(month(logtime))
else
m=cstr(month(logtime))
end if
if cstr(date(logtime)) < 10 then
d=0+ cstr(date(logtime))
else
d=cstr(date(logtime))
end if
ddate=y+"-"+m+"-"+d
sql="UPDATE dhd SET ddate=" & ddate & " "
conn.Execute sql
conn.close%>

[jinhaiou]

sql="UPDATE dhd SET ddate=" & ddate & " "
改為:
sql="UPDATE dhd SET ddate=#" & ddate & "# "

[chg_yz]

if语句中除去cstr()函数。

[pukerno3]

m=0+cstr(month(logtime))

改为
m=“0”+cstr(month(logtime))

[xuheguan]

ddate=y+"-"+m+"-"+d
这里怎么改？

[香辣五花肉]

<%
dim y,m,d
LogTime=Now()
y=cstr(year(logtime))

if month(logtime) < 10 then
m="0" & cstr(month(logtime))
else
m=cstr(month(logtime))
end if

if date(logtime) < 10 then
d="0" & cstr(date(logtime))
else
d=cstr(date(logtime))
end if

ddate=y & "-" & m & "-" & d
'如果是Sql Server
sql="UPDATE dhd SET ddate='" & ddate & "'"
'如果是Access
sql="UPDATE dhd SET ddate=#" & ddate & "#"

conn.Execute sql
conn.close
set conn=nothing
%>