ASP与ACCESS数据库连接的问题

ASP与ACCESS数据库连接的问题

很简单了。上面的兄弟写的不错，和我的查不多，我只是略为修改了下，保证了稳定性。呵呵
<%dim db,cn
db="./phoneno.mdb"'数据库存放的地址（相对于调用页面的地址）
set cn=server.createobject("adodb.connection")
cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db)
'以上是连接数据库的部分
sql= "select * from no"
'这里我们假定数据库phoneno.mdb中有一个表no用来存放电话号码，在no表中有两个字段一个叫id，另一个叫number；
'number中存放的是电话号码id是系统自动编号
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1'这一句是用来打开数据库并得到一个数据集rs的
'下面讲一下如何将数据集中的信息显示出来
'我们通过列表格的方式来列出数据集中的id和number（电话号码）%〉



电话号码

<%for i=1 to rs.recordcount'其中rs.recordcount是指记录集中记录的个数
If Not rs.Eof Then'这句是说如果得到的数据集不是空的就作else之前的句子%>


<%response.write(rs("number"))%>

<%rs.MoveNext'数据集的指针下移
Else '否则即数据集为空——没有记录%>
没有记录!
<%end if
Next
rs.close
set rs=nothing%>

id

<%response.write(rs("id"))%>

tai ta太简单了

dim 流氓=回答者：ftlsisme'本句不属于讲授内容
<%dim db,cn
db="./phoneno.mdb"'数据库存放的地址（相对于调用页面的地址）
set cn=server.createobject("adodb.connection")
cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db)
'以上是连接数据库的部分
sql= "select * from no"
'这里我们假定数据库phoneno.mdb中有一个表no用来存放电话号码，在no表中有两个字段一个叫id，另一个叫number；
'number中存放的是电话号码id是系统自动编号
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1'这一句是用来打开数据库并得到一个数据集rs的
'下面讲一下如何将数据集中的信息显示出来
'我们通过列表格的方式来列出数据集中的id和number（电话号码）%〉



电话号码

<%for i=1 to rs.recordcount'其中rs.recordcount是指记录集中记录的个数
If Not rs.Eof Then'这句是说如果得到的数据集不是空的就作else之前的句子%>


<%response.write(rs("number"))%>

<%rs.MoveNext'数据集的指针下移
Else '否则即数据集为空——没有记录%>
没有记录!
<%end if
Next
rs.close
set rs=nothing%>

id

<%response.write(rs("id"))%>

<%'上面说的是显示的部下面来说说向数据库里面添加数据的部分我们首先来假定一些情况：我没有两个文件一个是输入的页面p.asp，另一个是向数据库中写入电话号码的页面up.asp%>
<%'先来说说用来接收用户的电话号码的页面p.asp
其他部分略去致谢关键部分%>

请输入电话号码：



<%'下面来讲一下up.asp的部分和上面一样只讲主要部分！%>
<%dim db,cn
db="./phoneno.mdb"'数据库存放的地址（相对于调用页面的地址）
set cn=server.createobject("adodb.connection")
cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db)
'以上是连接数据库的部分
sql= "select * from no"
'这里我们假定数据库phoneno.mdb中有一个表no用来存放电话号码，在no表中有两个字段一个叫id，另一个叫number；
'number中存放的是电话号码id是系统自动编号
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,3'这一句是用来打开数据库并得到一个数据集rs的
'到这里只有一点差别rs.open sql,cn,1,1变成了rs.open sql,cn,1,3
number=request("number")'接收参数（电话号码）
rs.addnew'表示想数据集中添加一个新纪录
rs("number")=number
re.update'上传新的数据集到数据库
rs.close'关闭数据集
set rs=nothing'释放变量
cn.close'关闭数据库连接
set cn=nothing'释放变量
%>

这样写不知道你能不能看明白？
还有，拜托不要抄袭答案，很伤人的！！！
还好只是写了一半的时候被备抄袭

set conn = server.createobject("adodb.connection")
conn.connectionstring = "provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("store.mdb")
杩炴帴瀛楃?涓插湪阅岄溃
鍏朵粬镄勮嚜宸辨闷瀹氩惂锛屽簲璇ユ病链変粈涔堥棶棰桦惂