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下调试程序的debug类
下一个：Highlight patterns within strings