ACCESS数据库在ASP中的应用_电脑软硬件应用网_国内最受关注的计算机应用解决中心

首页·电脑学院·电脑故障·操作系统·硬件教程·局域网技术·QQ技巧·网络安全·办公软件· 数据库

导航·设计学院·图像处理·网页设计·软件教程·服务器技术·笔记本·专家装机·网络编程·在线问答

当前位置：电脑软硬件应用网 > 设计学院 > 网络编程 > ASP教程 > 正文

ACCESS数据库在ASP中的应用

ACCESS数据库在ASP中的应用

2011-1-6 22:27:40　　文/佚名　　出处:网页吧　　

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"　'第二个data为你想要查询的数据,也可为多个，用“，”号分开
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%>
------------------------------------------
所以必须<%定义变量a、b、c 等等
调用数据库中的位置
%><table>
<tr><td><%a%></td></tr>
<tr><td><%b%></td></tr>
<tr><td><%c%></td></tr>
<table>
<%循环调用结束%>
-----------------------------------
VB的语法格式
loop
end loop
而且JAVA一般多用CASE循环
孙彬 10:02:31
VB的语法就是开始就会有结束标记
孙彬 10:02:44
而JAVA不需要
-------------------------------------------
<%
      Dim mRs   '定义mrs
Set mRs=ExecuteCmd("select id,SortName from CB_ProductSort where Recycled=0 order by Depth asc,id desc")
      If Not mRs.eof Then
      Do While Not mRs.eof
      %>
      <tr>
        <td width="20"></td>
        <td height="30" align="center">·</td>
        <td><a href="products.asp?id=<%=mRs("id")%>" class="newpro" title="<%=mRs("SortName")%>"><%=CutoffStr(mRs("SortName"),20)%></a></td>

上一篇文章：三种中文分词算法优劣比较

下一篇文章： ASP编程中几个非常有用的例子

最新热点		最新推荐		相关文章
				ASP采集水印，缩略图实现，参考代码 ASP编程中几个非常有用的例子三种中文分词算法优劣比较 ASP教程:删除记录和链接数据库程序解… ASP生成html或者txt文件实例分享常用7款天气预报代码iframe嵌入… ASP错误信息解决:IIS启用父路径的设… 禁止网页缓存的方法及代码用ACCESS的视图导数据到EXCEL 推荐如何抓取显示防盗链图片的方法