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