ASP逐条读取ACCESS数据库里面的数据

< %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>lovehui</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
 dim conn,sql,rs
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("lovehui.mdb")
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="Select * From lovehui"
 rs.Open sql,conn,1,1
 do while not rs.EOF
   response.Write"<br>"
   for i=0 to rs.Fields.count-1
     Response.Write rs.Fields(i).value
   next
  response.Write"<br>"
  rs.MoveNext
 loop
 rs.Clone
 set rs=nothing
 conn.Close
 set conn=nothing
%>
</html> 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值