<％
functionAccessDateTime（dateAndTime）
Dimmyday
Dimmymonth
昏暗的人
myday = day（dateandtime）
iflen（myday）= 1thenmyday =“ 0”和我的日子
mymonth =月（dateAndTime）
iflen（mymonth）= 1 thenmymonth =“ 0”和mymonth
myYear =年（DateAndTime）
AccessDateTime = myYear＆“ - ”＆mymonth＆“ - ”＆myDay＆“＆”＆time（）
最終功能
DimConnection
Dimsql，Sconnstring
sql =“ insertintotbldate（ddate）values（＃”＆accessDateTime（now（）（））＆“＃）”
sconnstring =“ provider = microsoft.jet.oledb.4.0;”＆_
“ dataSource =”＆server.mappath（“ datedb.mdb”）
setConnection = server.createobject（“ adodb.connection”）
連接（sconnstring）
connection.execute（SQL）
連接
setConnection =沒有
％>