Insert Date and Time into Access
更新時間: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
%>
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基礎入門第六篇(ASP內(nèi)建對象Request)
從本篇開始作者從 ASP 內(nèi)建對象著手,為大家詳細剖析 ASP 的六個內(nèi)建對象和各種組件的特性和方法,需要的朋友可以參考下2015-10-10
JScript中調(diào)用ActiveX獲取訪客網(wǎng)卡MAC地址實現(xiàn)代碼
這篇文章主要介紹了JScript中調(diào)用ActiveX獲取訪客網(wǎng)卡MAC地址實現(xiàn)代碼,注意本文代碼只適應運行在IE瀏覽器上,需要的朋友可以參考下2014-08-08
ASP刪除img標簽的style屬性只保留src的正則函數(shù)
做手機網(wǎng)站的時候圖片要做自適應,由于手機網(wǎng)站跟PC網(wǎng)站共用1個數(shù)據(jù)庫,導致文章內(nèi)的圖片有部分帶有:style=""等屬性,導致手機端圖片width:100%失效,去掉mg標簽style屬性只保留src即可解決問題2020-09-09

