最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

Insert Date and Time into Access

 更新時(shí)間:2007年04月04日 00:00:00   作者:  
 <%
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
%>

相關(guān)文章

最新評(píng)論

富川| 安阳县| 肥城市| 浮梁县| 资溪县| 汉中市| 昌江| 曲阳县| 象山县| 康平县| 张家港市| 古田县| 湖南省| 盘锦市| 凤冈县| 崇义县| 乾安县| 黑山县| 正安县| 海原县| 宜宾县| 天长市| 岢岚县| 富蕴县| 邯郸县| 当阳市| 林西县| 芦山县| 隆回县| 渭源县| 建阳市| 桐乡市| 宁强县| 虞城县| 司法| 治多县| 湾仔区| 苗栗市| 绵竹市| 汤原县| 荔浦县|