ASP與ACCESS數據庫

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- ASP與ACCESS數據庫 (http://www.webasp.net/article/18/17576.htm)

-- 作者：未知
-- 發佈日期： 2005-04-18

1 可以定制一個表格，讓它從數據庫中調出數據：
<% set rs=server.CreateObject("adodb.recordset")
 rs.Open "select * from ad order by bs",conn,1,1
 do while not rs.EOF
 response.Write "<a href="&trim(rs("url"))&" target=_blank>"&trim(rs("wordlink"))&"</a> "
 rs.MoveNext
 loop
 rs.Close
 set rs=nothing
 %>
註：「wordlink」是表裡面的一個字段名。
2 連接數據庫一般都用這條語句：

Conn.asp代碼如下：
<%@ CODEPAGE = "936" %> //這句話可以不要的
<%
 dim conn
 dim connstr
 dim db
 db="db/my.mdb"
 Set conn = Server.CreateObject("ADODB.Connection")
 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
 conn.Open connstr
startime=timer()
%>
3例如：下面為添加留言的頁面：(次文件名是tianjia.asp)

<%
set rs=server.createobject("adodb.recordset")
name = Request("name")
mail = Request("email")
face = Request("face")
sql="select * from message" （message是表名）
 rs.open sql,conn,3,3
 rs.addnew
 rs("A_Name")=name
 rs("A_Mail")=mail
 rs("face")=face //這個是選擇的圖像，在數據庫表的字段中可以用image/1.jpg就可以了
 rs.update
 rs.close
Response.Redirect "xianshi.asp" //這句話是重定向頁面，即跳轉到xianshi.asp
%>
<%
set rs=nothing
conn.close
set conn=nothing
%>
在寫留言的頁面只要加這條語句：<FORM action=tianjia.asp method=post>則提交時就調用tianjia.asp
4 <%
 set RS=server.createobject("adodb.recordset") //要對表進行操作就要這條語句就可以。
SQLcmd = "Select * From message Order By A_Time Desc" //按時間排序（A_Time）是一個字段
RS.Open SQLcmd, conn, adOpenStatic, adLockPessimistic
page = CLng(Request("txtpage"))
RS.PageSize = 5 //每頁顯示五條信息
If page < 1 Then page = 1
If page > RS.PageCount Then page = RS.PageCount //總頁數
RS.AbsolutePage = page
%>
●當想顯示總頁數時只需要這條語句：　<%=RS.PageCount%>
●要顯示當前頁面為第幾頁時只要這條語句：　<%=page%>
●下面是執行上一頁、下一頁的顯示辦法
<%
If page <> 1 Then
 Response.Write "<td >" &_
 "<a href=xianshi.asp?txtpage=1>首頁</a>"
 Response.Write "<td >" &_
 "<a href=xianshi.asp?txtpage=" & (page - 1) & ">上一頁</a>"
End If
If page <> RS.PageCount Then
 Response.Write "<td >" &_
 "<a href=xianshi.asp?txtpage=" & (page + 1) & ">下一頁</a>"
 Response.Write "<td >" &_
 "<a href=xianshi.asp?txtpage=" & RS.PageCount & ">尾頁</a>"
End If %>
來自廣東
圖像
|
|
|
|
|圖像
名字來自<%=RS("area")%> 就可以從數據庫中調出「廣東」兩字
<IMG src="<%=RS("face")%>" width="90" height="90" border=0>調出圖片
同樣下面的123 也是從數據庫中調出的<%=RS("A_Name")%>
***要掉出什麼內容只需要把光標移到哪裡然後「取數」最後不需要對數據表操作了要關掉表以及數據庫的連接。代碼如下所示：只要表沒有關掉就可以隨時對數據庫操作，即可以用到下面的語句<%=RS("face")%>來取數。

<%
 RS.MoveNext
 If RS.EOF Then Exit For
Next
RS.Close
conn.Close
%>

webasp.net