<
功能accessdatetime（dateandtime）
朦胧的我的日子
昏暗的mymonth
昏暗的myyear

我的日子=天（dateandtime）
如果Len（我的日子）= 1然后我的日子= 0 我的日子

mymonth =月（dateandtime）
如果Len（mymonth）= 1然后mymonth =0mymonth

myyear =年（dateandtime）

accessdatetime = myyear mymonth 我很快乐时间（）
端功能

昏暗的连接
sql，sconnstring

SQL插入tbldate（日）值（#（现在）（accessdatetime ）#）

sconnstring =商=微软。飞机。OLEDB。4；_
数据源=server.mappath（datedb .mdb）
设置连接server.createobject（数据连接）
（sconnstring）打开连接。
connection.execute（SQL）

关闭连接。
设置连接=无
%>