asp网页如何访问数据库

在asp动态语言页面中连接数据库是通过asp内部的ADO组件通过ODBC完成。

1、首先应创建 Connection 对象的实例。

下面的脚本创建 Connection 对象

<%

'Create a connection object

Set cn = Server.CreateObject("ADODB.Connection")

'Open a connectionthe string refers to the DSN

%>

2、接着打开数据库连接：

cn.Open "FILEDSN=MyDatabase.dsn"

注意：无论在等号 (=) 之前还是之后，DSN 字符串都不能包含空格。

在这种情况下，Connection 对象的 Open 方法引用基于 DSN 的文件，其中包含关于数据库的位置和配置信息。也可以不引用 DSN，直接显式引用供应程序、数据源、用户 ID 和密码。

3、连接过程：

<%

Set cn = Server.CreateObject("ADODB.Connection")'创建数据库连接对象

Set rsCustomers = Server.CreateObject("ADODB.Recordset")'创建数据库查询对象

cn.Open "FILEDSN=SQLlink.dsn" '打开数据库

strSQL = "SELECT username,password FROM [myDatabase].[dbo].[user] where username='duguying'"

rsCustomers.Open strSQL, cn'运行SQL语句

%>

4、处理数据库返回数据

Set username1= rsCustomers("username") '获取username字段的返回结果

Set password1= rsCustomers("password") '获取password字段的返回结果

Do Until rsCustomers.EOF

Response.Write username1 &" " &password1 &"<BR>"

rsCustomers.MoveNext

Loop '通过循环获取所有返回记录

能不能详细点啊。

access数据库是mdb文件，如果你用access打开时不能编辑，那就检查一下这个文件是否设置为只读了。

而如果是在ASP中打开这个mdb文件进行数据库的读写，步聚如下：

一、创建Adodb.Connection对象用来连接数据库

使用以下语句：Set Conn=Server.CreateObject("Adodb.Connection")

打开数据库连接：Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source="&server.mappath("xxx.mdb")

其中的xxx.mdb就是你的access数据库名称(可以加上路径例如：/data/xxx.mdb。

二、创建adodb.recordset记录集对象来打开数据表并获取记录集

使用以下语句：

set rs=server.createobject("adodb.recordset")

rs.open "select * from xxtable",conn,1,3

这样就打开了xxtable这个表，并返回了其中的所有记录，并且是以可编辑状态打开的。其中的conn即是你的数据库连接对象的名称，后面紧跟着的1是recordset记录集对象的游标类型，此处为1表示你通过此SQL语句获得的记录集的游标可以前后移动，这样你就可以进行记录集的循环等 *** 作。最后面的一个数字3，是记录集的锁定类型，3表示可编辑

关于游标类型及锁定类型可以百度搜索一下

通过上面两步，你已经获得了一些记录集并且处于可编辑这些记录集的状态了

接下来就可以使用rs.addnew,rs.update进行记录的新增，更新 *** 作。

比如新增：

rs.addnew() '表示新增一条记录

rs("name")="test1"

rs("pass")="1234"

rs.update()

这样就新增了一条记录，其中的rs.addnew()表示新增一条记录，紧接着用rs("name"),rs("pass")来写入数据到name,pass这两个字段中，然后使用rs.update来保存一下你刚才的写入，这样一条新记录的插入就完成了。

而如果你只是修改一条已有的记录，则不需要rs.addnew()，后面的代码一样即可完成。不过修改记录一般是会先查询指定条件的某一条记录再进行rs.updae

当然你也可以不使用recordset记录集对象，而直接用sql语句的insert,update等来完成。

另外补充说明一点：

如果你发现用recordset或是sql的insert,update不能成功增加记录或修改记录，那么你就检查一下你的这个数据库连接代码是否连接成功（也就是数据库文件的路径是否写对）。如果这些都对，那么你再检查这个数据库文件是否是只读状态，如果也不是只读状态，那么就应该是文件权限的问题了。当你的MDB文件在NTFS格式的磁盘分区中时，需要设置文件的权限才可以写入数据，否则就只能读取。

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

连接access数据库

asp数据库

一、

<%

dim conn

dim dbpath

set conn=server.createobject("adodb.connection")

DBPath = Server.MapPath("8301")

conn.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath

%>

二、

<%

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("rc/lzh")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

Conn.Open connstr

%>

dim ipconn

set ipconn=server.createobject("ADODB.CONNECTION")

ipconn.open "DBQ="&server.mappath("ip.mdb")&"DRIVER={Microsoft Access Driver (*.mdb)}"

dim rs,sql

Set rs = Server.CreateObject("ADODB.Recordset")

sql="select top 1 ip_b,ip_c from ip where (ip_s<=" &ip &" and ip_e>=" &ip &")"

rs.Open sql,ipconn,1,1

if rs.eof or rs.bof then

getaddress="未知|未知"

Else

getaddress=rs(0)&"|"&rs(1)

end if

mdb数据库

一、

<%dim coon

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("***********/123.mdb")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

Conn.Open connstr

%>

二、

dim conn

set conn = server.createobject("adodb.connection")

conn.open = "provider=microsoft.jet.oledb.4.0" &"data source = " &server.mappath("../db/bbs.mdb")

三、

<%@ language=VBs cript%>

<%

dim conn,mdbfile

mdbfile=server.mappath("数据库名称.mdb")

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)}uid=adminpwd=数据库密码dbq="&mdbfile

%>

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath

SQL="select * from auth where id='" &user_id &"'"

SET uplist=dbconnection.EXECUTE(SQL)

2.

set dbconnection=Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

SET uplist=dbconnection.EXECUTE(SQL)

3.

DBPath = Server.MapPath("customer.mdb")

set session("rs")=Server.CreateObject("ADODB.Recordset")

' rs=Server.CreateObject("ADODB.Recordset")

connstr="provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

session("rs").Open sql,connstr,1,3

4.

建odbc源xxx

set conn=server.createobject("Adodb.connection")

conn.open "DSN=xxxUID=PWD=Database=customer

SetConn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("aaa/bbspp1.mdb")+"DefaultDir=

DRIVER={Microsoft AccessDriver(*.mdb)}DriverId=25FIL=MSAccess

ImplicitCommitSync=Yes

MaxBufferSize=512MaxScanRows=8PageTimeout=5SafeTransactions=0

Threads=3UserCommitSync=Yes"

Conn.Openconnstr

说明： 其中SetConn=Server.CreateObject("ADODB.Connection")为建立一个访问数据的对象， server.mappath(aaa/bbspp1.mdb)是告诉服务器access数据库访问的路径

conn的内容如下：

<%

dim conn,rs

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)}dbq="&server.mappath("mdb/mfkiqpl.mdb ")

set rs=server.createobject("adodb.recordset")

set rs.activeconnection=conn

%>

还不懂啊 加偶的QQ 直接问吧

---