推薦：解析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