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 
%> 

上一个：ASP中利用execute实现动态包含文件的方法
下一个：asp读取远程文件并保存到本地代码