asp连接SQL和Access数据代码(asp里的随机函数)(3)
Else
response.write"数据库连接对象未打开"
end If
cn.close
Set cn=nothing
%>
连接Access常用方法：
复制代码 代码如下:
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定义数据库连接对象
strDataPath=server.MapPath("example.mdb") '//数据库路径字符串
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath '//数据库连接
conn.open connStr
也可以用：
复制代码 代码如下:
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定义数据库连接对象
strDataPath=server.MapPath("example.mdb") '//数据库路径字符串
connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & strDataPath '//数据库连接
conn.Open connStr
注解：
因为我们想打开的是Access(.mdb)数据库，所以我们要透过Access的ODBC驱动程序{Microsoft Access Driver (*.mdb)}来存取数据库，dbp参数则是用来指定想打开的数据库文件，因为它必须是完整路径名称，所以我们上一语句用了Server.MapPath 函数 。
上面常用方法中一般为简洁起见也可一用下面一句
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/") & "xxx.mdb"
水寒意见>>
一般直接使用 Microsoft.Jet.OLEDB.4.0 一层接口:
adoConnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/") & "xxx.mdb"
避免使用 Microsoft OLEDB Provider for ODBC Drivers + Microsoft Access Driver (*.mdb)(Access 的 ODBC Driver)两层接口:
adoConnection.open "PROVIDER=MSDASQL.1;Driver=Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath ("/") & xxx.mdb"
ACCESS数据库连接代码（一）
复制代码 代码如下:
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("数据库文件路径")
%>
ACCESS数据库连接代码（二）
复制代码 代码如下:
<%
dim conn,cqie
conn="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("数据库文件路径")
set cqie=server.createobject("adodb.connection")
cqie.open conn
%>
asp里的简单随机函数
复制代码 代码如下:
<%
dim a,b,c
a=1310:b=9215
randomize
c=int((b-a+1)*rnd+a)
%>
取出上次登陆时间记录本次登陆时间