推薦:解析DateDiff函數的語法參數描述返回兩個日期之間的時間間隔。 語法DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]]) DateDiff 函數的語法有以下參數: 參數描述interval 必選項。 String expression 表示用於計算date1 和date2 之間的時間間隔。有關數值
1.建立MdbRecordset對象。 MDB數據庫是一個完整的數據庫,內部可能含有若干個數據表,在此函數中,Connection的作用是連接數據庫,Recordset的作用是打開數據表。
| Function CreateMdbRecordset(數據庫文件名, 數據表名或Select語句) Dim conn,Provider,DBPath '建立Connection 對象 Set conn = Server.CreateObject (ADODB.Connection) Provider=Provider=Microsoft.Jet.OLEDB.4.0; DBPath = Data Source= & Server.MapPath(數據庫文件名) '打開數據庫 conn.Open Provider & DBPath Set CreateMdbRecordset = Server.CreateObject(ADODB.Recordset) '打開數據表 CreateMdbRecordset.Open 數據表名, conn, 2, 2 End Function |
2.建立帶密碼的MDB數據庫的Recordset對象。它的建立方式與建立不帶密碼的MDB數據庫的Recordset對像類似,只是多了一個密碼參數,即在與數據庫連接時,必須給出密碼信息。
| FunctionCreateSecuredMdbRecordset(數據庫文件名,數據表名或Select語句,password) Dimconn,Provider,DBPath '建立Connection對象 Setconn=Server.CreateObject (ADODB.Connection) Provider=Provider=Microsof.Jet.OLEDB.4.0; DBPath=DataSource=&Server.MapPath(數據庫文件名) '連接數據庫,注意要帶有密碼參數 conn.OpenProvider&DBPath&JetOLEDB:DatabasePassword=&assword SetCreateSecuredMdbRecordset=Server. CreateObject(ADODB.Recordset) '打開數據表 CreateSecuredMdbRecordset.Open數據表名,conn,2,2 EndFunction |
3.DBF文件不是一個標準的數據庫文件,只相當於標準數據庫文件中的一個數據表,所以為了使用DBF文件,可以把所有的DBF文件放在一個目錄下,這樣把目錄名看成標準數據庫,每一個DBF文件相當於標準數據庫中的數據表。下面函數中的Directory是DBF所在的目錄名。
| FunctionCreateDbfRecordset(目錄名,DBF文件名或Select語句) Dimconn,Driver,SourceType,DBPath '建立Connection對象 Setconn=Server.CreateObject (ADODB.Connection) Driver=Driver={MicrosoftVisualFoxProDriver};SourceType=SourceType=DBF; DBPath=SourceDB=&Server.MapPath(目錄名) '調用Open方法打開數據庫 conn.OpenDriver&SourceType&DBPath SetCreateDbfRecordset=Server.CreateObject(ADODB.Recordset) '打開DBF文件 CreateDbfRecordset.OpenDBF文件名或Select語句,conn,2,2 EndFunction |
4.由FoxPro生成的DBC數據庫與MDB數據庫相似,都是一個數據庫包含幾個數據表的形式,所以對DBC數據庫的存取方法與MDB數據庫相似。
| FunctionCreateDbcRecordset(DBC數據庫文件名,數據表名或Select語句) Dimconn,Driver,SourceType,DBPath '建立Connection對象 Setconn=Server.CreateObject (ADODB.Connection) Driver=Driver={MicrosoftVisualFoxProDriver}; SourceType=SourceType=DBC; DBPath=SourceDB=&Server.MapPath(DBC數據庫文件名) '連接數據庫 conn.OpenDriver&SourceType&DBPath SetCreateDbcRecordset=Server.CreateObject(ADODB.Recordset) '打開數據表 CreateDbcRecordset.Open數據表名或Select語句,conn,2,2 EndFunction |
5.將Excel生成的XLS文件(book)看成一個數據庫,其中的每一個工作表(sheet)看成一個數據庫表。
| Function CreateExcelRecordset(XLS文件名,Sheet名) Dim conn.Driver,DBPath '建立Connection對象 Set conn = Server.CreateObject (ADODB.Connection) Driver=Driver={Microsoft Excel Driver (*.xls)}; DBPath = DBQ= & Server.MapPath(XLS文件名) '調用Open 方法打開數據庫 conn.Open Driver & DBPath Set CreateExcelRecordset = Server.CreateObject(ADODB.Recordset) '打開Sheet CreateExcelRecordset.Open Select * From [&sheet&$], conn, 2, 2 End Function |
6.SQL Server
| FunctionCreateSQLServerRecordset(計算機名稱,用戶ID,用戶密碼,數據庫名稱數據表或查看表或Select指令) DimParams,conn SetCreatSQLServerConnection=Nothing Setconn=Server.CreateObject (ADODB.Connection) Params=Provider=SQLOLEDB.1 Params=Params&;DataSource=&Computer Params=Params&;UserID=&UserID Params=Params&;Password=&Password Params=Params&.InitialCatalog=&數據庫名稱 ConnopenParas SetCreateSQLServerRecordset=Server. CreateObject(ADODB.Recordset) CreateSQLServerRecordset.Opensource,conn,2,2 EndFunction |
分享:淺析一個不錯的翻頁效果代碼注:文件名應為index.asp 顯示效果如下: 共100 條,當前第8/11 頁上一翻頁頁首上一頁[6] [7] [8] [9] [10] 下一頁頁尾下一翻頁!--#includefile=conn.asp-- %PageShowSize=5'每頁顯示多少個頁MyPageSize=10'每頁顯示多少條文章IfNotIsNumeric(R