返回列表 上一主題 發帖

[教學] (實戰專題) 行政公佈欄

[教學] (實戰專題) 行政公佈欄

所謂的『行政公佈欄』就類似很多網站都會有的『網站更新紀錄』一樣,一般的使用情況都是一有變動就得重新的編寫網頁,但是我們利用資料庫與ASP程式的設計,即可透過瀏覽器進行線上資料更新的動作。

程式流程

本程式範例共分為3個部分,分別是:

  • 行政公佈欄程式網頁Index.asp,此程式網頁會將的公告事項條列出來,同時利用SQL搜尋語法將較新的公告事項條列在網頁的最上面,而且在此程式網頁的最下方就同時存在著『發佈公告』的權限認證機制,不要誤會喔!它只是以表單的形式將認證密碼送出而已(下圖紅色圈框),並沒有辨證密碼的正確與否。

    14-19.png

  • 填寫新公告事項內容的addnews.asp程式網頁,本程式網頁中有一個表單,提供有權發佈新公告者填寫相關公告資料,同時真正的辨證密碼動作將在此程式網頁中完成。  

    14-20.png

  • 儲存新公告資料內容的add.asp程式,當有權發佈新公告者填寫相關公告資料者在程式網頁addnews.asp中表單內填寫好相關資料後,按下『送出公告』按鈕後,表單的資料就送將本程式寫入至資料庫檔案中,並且將網頁瀏覽連結轉向回行政公佈欄的Index.asp程式網頁。
心安,平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

當然好,而且您很細心,相關的論壇推廣連結都加上囉非常謝謝

TOP

請問是用MDB去改欄位嗎?

TOP

小誌大大!!不好意思~想要請問需要下載這個檔案需要中學生的身分!請問要如何變成中學生呢?不好意思麻煩了!

TOP

回復 8# c_c_lai


    當然好,而且您很細心,相關的論壇推廣連結都加上囉
非常感恩!!
心安,平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

回復 5# 小誌
謝謝您分享的好專題,我特意將它轉成 PDF 檔,當成備忘錄。
希望您不要介意!
教學 (實戰專題) 行政公佈欄.pdf (333.36 KB)
1

評分人數

TOP

回復 6# woody00253


    在SQL命令中加入倒序排序
  1. select ....  order by 欄位名 desc
複製代碼
心安,平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

不好意思,小誌大大,小弟有一些問題想跟你請教一下
最近小弟有在寫一個網頁,可是在網頁首頁的公告事項的部分,
事件發布之後,最新的消息都會被放在最後面,相反的最舊的消息會放在最前面,
想請問小誌大大,我這一個事件排放的問題,要如何才能解決......

TOP

建立資料庫資料表

本範例將公告事項資料建立於Access資料庫中,這個資料庫我們定名為『news.mdb』,而在資料庫中用來儲存所有公告資料的資料表則定名為『公佈欄』。

在『公佈欄』資料表中,我們建立了四個欄位:Email(公告發佈單位的聯絡信箱)、單位(公告發佈單位)、內容(公告內容)、發言日期(公告發佈日期),其欄位設定說明如下:

14-29.png

提示:

  • 我們的發言日期欄位其資料型態設定為New(),就是當我們新增公佈資料時,我們不需自己填入此欄位的資料,Access OLE驅動程式自然會幫我們取回在資料新增當時的系統時間,並且將此時間資料填入發言日期欄位中。
  • 內容欄位其資料型態設定為『備忘』,是怕我們填寫的資料長度超過255個字元,也就是說,資料型態設定為『備忘』將不會像資料型態設定為『文字』時有255個字元的限制。



(實戰專題) 行政公佈欄 完整範例壓縮檔: news.zip (19.89 KB)
心安,平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

儲存新公告資料

在新公告表單中填寫好資料後,按下『送出公告』的發送按鈕,資料將傳送給add.asp程式處理,則接下來就是要將接收自『新公告表單』中的欄位資料寫入資料庫檔案中,如下圖所示:

14-28.png

注意:

  • 要在資料表中新增一筆資料請使用資料錄的AddNew方法新增資料錄。
  • 利用rs("欄位名稱")=欄位值,將欄位資料寫入相對應的欄位,這樣的動作並沒有真正的將資料寫入資料庫中,只是將資料寫入至緩衝區,我們必須再呼叫Update方法,才能將資料真正的寫入資料庫中,切記。
  • 完成新增資料錄並利用Update方法將資料寫入資料庫後,記得將網頁連結轉向回Index.asp程式網頁,否則瀏覽者所見到的將只是一個空白網頁。



add.asp
  1. <%
  2. '建立資料庫連結物件
  3.         Set conobject = Server.CreateObject("ADODB.Connection")
  4.         DBPath = Server.MapPath("news.mdb")
  5. '連結資料庫       
  6.         conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  7. '建立資料庫存取物件       
  8.         Set RS=Server.CreateObject("ADODB.Recordset")
  9. '打開資料表       
  10.         RS.Open "公佈欄",conobject,1,3
  11. '儲存資料        
  12.    rs.AddNew
  13.    rs("單位") = Request("單位")
  14.    rs("Email") = Request("Email")
  15.    rs("內容") = Request("內容")
  16.    rs.Update
  17. Response.Redirect "index.asp"
  18. %>  
複製代碼
心安,平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

        靜思自在 : 不要隨心所欲,要隨心教育自己。
返回列表 上一主題