asp鏈接acces數據庫

===============================

'conn.asp

<%
Dim connstr
connstr="provider=microsoft.ACE.oledb.12.0;data source=" & server.MapPath("database/Config.mdb")
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
%>

===============================

show_config.asp

<!--#include file=conn.asp--> 
        <%
         set rs=server.CreateObject("adodb.recordset")  '(創建recordset對象)
         sqlstr="select * from config"  '---->(message爲數據庫中的一個數據表，即你要顯示的數據所存放的數據表)
         rs.open sqlstr,conn,1,3        ' ---->(表示打開數據庫的方式)

  

         rs.movefirst                    '---->(將指針移到第一條記錄)
         while not rs.eof                '---->(判斷指針是否到末尾)
         response.write(rs("web_name"))   '   ---->(顯示數據表message中的name字段)
   'response.write(rs("info"))
   'Response.write("<br/>")
         rs.movenext                     '---->(將指針移動到下一條記錄)
         wend                            '---->(循環結束)

  
'------------------------------------------------------        
         rs.close
         conn.close                    '這幾句是用來關閉數據庫
         set rs=nothing
         set conn=nothing
'-------------------------------------------------------
        %>