asp.txt

《初学ASP基础教材》?冻跹SP基础教材》

ACCESS数据库在ASP中的应用 

2003:3:8 ·liangfukai(原创)  


本人是计算机软件开发专业的,根据本人总结:觉得每一种语言的开发都离不开数据库的应用,所为学习编程重点在于数据库的应用及灵活的编程思想。以下本人向大家介绍一下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%>