<%
functionaccessdateTime (dateandtime)
Dimmyday
Dimmymonth
Dimmyyear
myday = day (dateandtime)
iflen (myday) = 1thenmyday = "0"& Myday
Mymonth = Month (DateAndtime)
iflen (mymonth) = 1thenmymonth = "0"& mymonth
myyear = 년 (dateandtime)
AccessDateTime = MyYear & "-"& MyMonth & "-"& MyDay & ""& time ()
최종 기능 장애
imconnection
Dimsql, Sconnstring
sql = "insertIntOtBlDate (ddate) 값 (#"& accessDateTime (now ()) & "#)"
sconnstring = "제공자 = microsoft.jet.oledb.4.0;"& _
"DataSource ="& server.mappath ( "datedb.mdb")
setConnection = server.createObject ( "adodb.connection")
Connection.open (SCONNSTRING)
Connection.Execute (SQL)
Connection.close
setConnection = 아무것도
%>