ASP逐條讀取ACCESS資料庫裡面的資料__資料庫

來源:互聯網
上載者:User
< %@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> 
相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.