<% 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实现的7xi音乐网的采集源代码

共5个文件： 2个是配置文件： 配置文件： cfg.txt '---保存检测ID信息的，第一次采集时设为1，从小到大检测 cfg.asp '---ASP的配置信息，内容如下： 复制代码 代码如下:<% ''' '''╔===========================>>>详细阅读

本文标题：Insert Date and Time into Access

地址：http://www.17bianji.com/kaifa2/ASP/32593.html

 1/2    1