【下载文档:  Insert_Date_and_Time_into_Access.txt 】

---

Insert Date and Time into Access
<% Function AccessDateTime (dateandtime) Dim myDay Dim myMonth Dim myYear myDay = Day(dateandtime) If Len(myDay)=1 Then myDay="0" & myDay myMonth = Month(dateandtime) If Len(myMonth)=1 Then myMonth="0" & myMonth myYear = Year(dateandtime) AccessDateTime = myYear & "-" & myMonth & "-" & myDay & " " & Time() End Function Dim connection Dim SQL, sConnString SQL="Insert INTO tblDate (dDate) VALUES (#" & AccessDateTime(NOW()) & "#)" sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("datedb.mdb") Set connection = Server.CreateObject("ADODB.Connection") connection.Open(sConnString) connection.execute(SQL) Connection.Close Set Connection = Nothing %>