« 如何網上訂火車票能訂到靠窗的位置?流程是什么義烏網站建設制作案例(8)--義烏市博源進出口有限公司 »

我的ASP經驗之路(4)--連接access數據庫的兩種方法、讀取數據庫內容

分類: asp入門學習代碼,asp經驗 發布: ywask 瀏覽: 日期: 2012年3月31日

這篇主要介紹以下兩個問題:asp連接access數據庫常用的兩種方法、asp創建記錄集與如何讀取數據庫的內容。
       ASP最常連接的是ACCESS與MSSQL兩種數據庫,本文先介紹簡單的連接ACCESS數據庫的兩種常用方法。
假設數據庫名稱為data.mdb,位于根目錄下,與conn.asp文件同一目錄。
連接數據庫文件conn.asp寫法如下:
第一種:
<%
dim conn  
dim connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '創建數據庫連接對象
conn.open connstr '連接數據庫
%>
第二種:
<%
dim conn  
dim connstr
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
%>
 
接下來,我們看下asp是如何創建記錄集以及如何來讀取數據庫里的內容的。
 
       首先,我們要建一個數據庫,里面放些需要讀取的內容。
1、  建立一個數據庫文件,名稱估且命為data.mdb ,里面準備存放一些公司企業的電話地址等內容。數據庫中建一個名為company的表,表設計以下四個字段:companyname,tel,address,website (公司名稱,電話,地址,網址),字段類型全部選擇“文本”,字段大小設置為250,創建好表后,打開表,自己輸入隨意輸入幾條記錄值
(所有建立數據庫的具體操作本文略過)
建好后,表設計如下圖:
 
 
打開表,內容如下:
 
 
2、新建一個文件名為index.asp
index.asp文件代碼里,首先要建立數據庫連接,代碼如上面介紹:
dim conn  
dim connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '創建數據庫連接對象
conn.open connstr '連接數據庫

創建記錄集:
set rs=server.CreateObject("adodb.recordset") '創建rs記錄集
sql="select * from [company]" '讀取數據庫的SQL語句串
rs.open sql,conn,1,1 '打開記錄集
讀取數據庫代碼:
結合前面介紹過的do while ...loop語句來循環讀取多條記錄內容
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <%do while not rs.eof
  'rs.eof意思是最后一條記錄,rs.bof的意思是第一條記錄,所以這句話的意思是:當不是最后一條記錄時,輸出下面的代碼%>
  <tr>
    <td height="24"><%=rs("companyname")%></td>
    <td><%=rs("tel")%></td>
    <td><%=rs("address")%></td>
    <td><a href="<%=rs("website")%>" target="_blank"><%=rs("website")%></a></td>
  </tr>
  <%rs.movenext '移到下一條記錄
loop%>
</table>
所有代碼放在一起就是index.asp的所有代碼。如下:
 
<%
dim conn 
dim connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '創建數據庫連接對象
conn.open connstr '連接數據庫
set rs=server.CreateObject("adodb.recordset") '創建rs記錄集
sql="select * from [company]" '讀取數據庫的SQL語句串
rs.open sql,conn,1,1 '打開記錄集
%>
<html>
<head>
<title>連接數據庫與讀取數據庫內容</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <%do while not rs.eof
  'rs.eof意思是最后一條記錄,rs.bof的意思是第一條記錄,所以這句話的意思是:當不是最后一條記錄時,輸出下面的代碼%>
  <tr>
    <td height="24"><%=rs("companyname")%></td>
    <td><%=rs("tel")%></td>
    <td><%=rs("address")%></td>
    <td><a href="<%=rs("website")%>" target="_blank"><%=rs("website")%></a></td>
  </tr>
  <%rs.movenext '移到下一條記錄
loop%>
</table>
</body>
</html>
具體運行結果請看演示地址:
 
本文原創:義烏做網站 http://www.es27f16a.icu

 

相關文章:

發表評論:

◎歡迎參與討論,請在這里發表您的看法、交流您的觀點。

Powered By 義烏亂碼網絡

Copyright 2013 www.es27f16a.icu. All Rights Reserved.浙ICP備11009494號 

如何推销兴牛牛奶