ASP與ACCESS資料庫

來源:互聯網
上載者:User
access|資料|資料庫|access 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><br>"
      rs.MoveNext
      loop
      rs.Close
      set rs=nothing
      %>
註:“wordlink”是表裡面的一個欄位名。
2 串連資料庫一般都用這條語句: 
<!--#include file="conn.asp"-->
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) 
<!--#include file="conn.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 ><font size=4>" &_
    "<a href=xianshi.asp?txtpage=1>首頁</a>" 
   Response.Write "<td ><font size=4>" &_
    "<a href=xianshi.asp?txtpage=" & (page - 1) & ">上一頁</a>" 
End If
If page <> RS.PageCount Then 
   Response.Write "<td ><font size=4>" &_
    "<a href=xianshi.asp?txtpage=" & (page + 1) & ">下一頁</a>" 
   Response.Write "<td ><font size=4>" &_
    "<a href=xianshi.asp?txtpage=" & RS.PageCount & ">尾頁</a>" 
End If   %>
 來自廣東
圖象
|
|
|
|
|圖象
名字<font>來自<%=RS("area")%> </font> 就可以從資料庫中調出“廣東”兩字
<IMG src="<%=RS("face")%>" width="90" height="90" border=0>調出圖片
同樣下面的123 也是從資料庫中調出的<%=RS("A_Name")%>
***要掉出什麼內容只需要把游標移到哪裡然後“取數”&n



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

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

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