ACCESS数据库在ASP中的应用

　　本人是计算机软件开发专业的,根据本人总结:觉得每一种语言的开发都离不开数据库的应用,所为学习编程重点在于数据库的应用及灵活的编程思想。以下本人向大家介绍一下ASP语言中ACCESS数据库的连接及其几个操作：

数据库的连接：
<%
datafile="data.mdb"
set rs=server.createobject("adodb.connection")
conn="DRIVER={Microsoft Access Driver (*.mdb)}; data source=" & server.mappath(""& datafile &"")
rs.open conn
%>

添加数据：
<%
set rs=server.createobject("adodb.recordset")
sql="select*from tablename"　　'tablename为数据中表的名称
rs.open sql,conn,1,1
rs.addnew
rs("data1")="new1"
rs("data2")="new2"
rs("data3")="new3"
……
rs("datan")="newn"
rs.update
rs.close
conn.close
set rs=nothing
set sql=nothing
%>

删除数据：
<%
set rs=server.createobject("adodb.recordset")
sql="select*from tablename where del=del"　'第二个del为你想要删除的数据
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "数据不存在"
else
rs.delete
response.write "数据已经删除"
end if
%>

数据查询：
<%
set rs=server.createobject("adodb.recordset")
sql="select*from tablename where data=data"　'第二个del为你想要查询的数据,也可为多个，用“，”号分开
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "数据不存在"
else
rs.delete
response.write rs("data")　'如果有多个相同的数据，这可用for ……next 循环语句
end if
%>

数据显示：
<%
set rs=server.createobject("adodb.recordset")
sql="select*from tablename"　　
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "数据库中没有数据"
else
while not rs.eof
response.write rs("data1")　
response.write rs("data2")
response.write rs("data3")
……
response.write rs("datan")
rs.movenext
wend
end if%>

（出处：清风学院）