二手影音光碟交易網站
125
0
0
全文
(2) 二手影音光碟交易網站. 目. 錄. 圖表目錄…………………………………………………………IV 第一章緒論…………………………………………………………1 1.1 背景………………………………………………………1 1.2 動機………………………………………………………1 1.3 目的………………………………………………………2 第二章系統概述……………………………………………………3 2.1 延革………………………………………………………3 2.2 組織………………………………………………………4 2.3 職責分配…………………………………………………4 2.4 分配工作與流程…………………………………………5 第三章系統分析與設計……………………………………………7 3.1 系統分析方法……………………………………………7 3.2 選用哪種方法和理由……………………………………11 3.3 系統架構…………………………………………………12 3.3.1 會員註冊……………………………………………13 3.3.2 會員登入……………………………………………17 3.3.3 會員修改……………………………………………19 3.3.4 會員購物……………………………………………21 3.3.5 管理者登入…………………………………………26 3.3.6 管理者管理會員……………………………………28 3.3.7 管理者管理商品……………………………………30 3.3.8 管理者新增商品……………………………………32 3.3.9 管理者管理訂單……………………………………34 第四章系統製作…………………………………………………36 4.1 會員功能………………………………………………36 4.2 網站管理者……………………………………………82 第五章系統評估…………………………………………………115. 2. 逢甲大學 e-Paper (92學年度).
(3) 二手影音光碟交易網站. 5.1 完成部分………………………………………………115 5.2 會員功能評估…………………………………………115 5.3 網站管理者功能評估…………………………………116 5.4 未完成部分……………………………………………116 第六章心得與未來展望…………………………………………117 6.1 心得……………………………………………………117 6.2 未來展望………………………………………………118 參考資料…………………………………………………………120. 3. 逢甲大學 e-Paper (92學年度).
(4) 二手影音光碟交易網站. 圖. 表. 目. 錄. 圖 3.1 系統架構圖…………………………………………………12 圖 3.2 會員註冊系統流程圖………………………………………13 圖 3.3 會員登入系統流程圖………………………………………17 圖 3.4 會員修改系統流程圖………………………………………19 圖 3.5 會員購物系統流程圖………………………………………21 圖 3.6 管理者登入系統流程圖……………………………………26 圖 3.7 管理者管理會員系統流程圖………………………………28 圖 3.8 管理者管理商品系統流程圖………………………………30 圖 3.9 管理者新增商品系統流程圖………………………………32 圖 3.10 管理者管理訂單系統流程圖……………………………34 圖 4.1 首頁……………………………………………………….36 圖 4.2 加入會員………………………………………………….37 圖 4.3 加入會員成功…………………………………………….37 圖 4.4 填寫會員資料錯誤訊息………………………………….42 圖 4.5 會員登入………………………………………………….43 圖 4.6 會員專區………………………………………………….43 圖 4.7 會員修改………………………………………………….46 圖 4.8 會員修改之修改資料…………………………………….46 圖 4.9 會員修改之修改成功…………………………………….46 圖 4.10 購物區…………………………………………………….53 圖 4.11 商品細目………………………………………………….53 圖 4.12 商品清單………………………………………………….57 圖 4.13 商品清單之退回商品…………………………………….62 圖 4.14 留言區…………………………………………………….75 圖 4.15 留言區留言……………………………………………….75 圖 4.16 留言區留言成功…………………………………………80 圖 4.17 管理者登入………………………………………………82 圖 4.18 管理者專區………………………………………………82 圖 4.19 管理者管理會員…………………………………………84 圖 4.20 管理者管理會員之修改…………………………………85 圖 4.21 管理者管理會員之修改完成……………………………85 圖 4.22 管理者管理會員之刪除完成……………………………86 4. 逢甲大學 e-Paper (92學年度).
(5) 二手影音光碟交易網站. 圖 4.23 管理者管理商品…………………………………………93 圖 4.24 管理者管理商品之修改…………………………………94 圖 4.25 管理者管理商品之修改完成……………………………94 圖 4.26 管理者管理商品之刪除完成……………………………95 圖 4.27 新增商品…………………………………………………103 圖 4.28 管理者管理訂單…………………………………………109 圖 4.29 管理者管理訂單之處理…………………………………109 圖 4.30 管理者管理訂單之處理完成……………………………110 表 2.1 部門分配……………………………………………………4 表 3.1 網站首頁…………………………………………………13 表 3.2 會員資料填寫頁網頁……………………………………14 表 3.3 會員登入網頁……………………………………………15 表 3.4 會員個人資料表………………………………………….15 表 3.5 會員專區網頁………………………………………………18 表 3.6 會員資料修改網頁…………………………………………19 表 3.7 會員購物區網頁……………………………………………21 表 3.8 商品細目網頁………………………………………………22 表 3.9 乓品清單網頁………………………………………………23 表 3.10 類別資料表………………………………………………24 表 3.11 商品資料表………………………………………………24 表 3.12 購物袋 protmp 資料表…………………………………24 表 3.13 管理者專區網頁…………………………………………26 表 3.14 管理者管理會員網頁……………………………………28 表 3.15 管理者管理商品網頁……………………………………30 表 3.16 管理者新增商品填寫網頁………………………………32 表 3.17 管理者管理訂單網頁……………………………………34 表 3.18 訂單 proorder 資料表…………………………………35. 5. 逢甲大學 e-Paper (92學年度).
(6) 二手影音光碟交易網站. 第一章緒論 1.1 背景 現在時下隨著電腦的價格平價化，電腦亦日趨普及，家家戶戶幾乎 都有電腦，所以電腦帶來了許多的生活便利性，電腦的影音功能的強 大，在家可以享受家庭劇院，看電影，聽著喜愛歌手的歌聲，看著喜愛 的明星所主演的日、韓劇。現在全球網路的快速發展，加上台灣寬頻網 路的蓬勃發展，台灣的寬頻網路的申裝率之高，算是榜上有名，所以孕 育出現在當紅的網路行銷，網路購物網站等等的，還有之前蟠龍花瓶廣 告吹起了二手商品的旋風，雅虎、EBAY 等二手網站買賣人數持續成長 中，但商品太多太雜，又有被騙風險等。因此我們的構想是成立一個專 門的 2 手影音光碟交易網站，提供最好的品質，最專業的的服務，達到 最經濟的需求，目的是希望能讓喜歡看影劇或是音樂的全國朋友們透過 網路的便利性，達到物近其用，貨暢其流，以期能看守住自己的荷包。. 1.2 動機 選擇做 2 手影音光碟交易網站，主要是因為覺得唱片行中所賣的商 品價格居高不下，一張新專輯動輒就要好幾百，舊專輯也沒有降價，VCD 也相同，然而一張專輯中好聽的歌曲沒有幾首，往往讓人陷入要買不買 的苦惱中，買了之後會有不划算沒那個價值的念頭，不買又感到心理頭 難過好想要買。 以我們為例，逛一次唱片行將喜歡的專輯採購起來有時就要買 2、3. 6. 逢甲大學 e-Paper (92學年度).
(7) 二手影音光碟交易網站. 張專輯，金額也就要近一千元了，而我們又支持正版，因此這對學生的 我們來說可謂是一筆不小的開銷。 另外，政府也大力宣導智慧財產權，警方的掃除盜版的行動也不曾 間斷，唱片業界也高喊“打到盜版，我要活下去＂的口號，也因此就有 了 2 手影音光碟交易網站這個 idea，希望讓大家能以最經濟實惠的價格 買到自己喜愛的正版專輯。. 1.3 目的 隨著網路的蓬勃發展，有關線上交易的電子商務網站也隨處可見， 虛擬通路提供了許多人圓夢當老闆的夢想，只要有一台電腦，一個交易 網站，不需店面，就能加入網路購物的行列中。 參考了許多線上交易網站，我們希望我們的系統能做到下列幾種功 能： 1. 線上刷卡付費功能 2. 線上交易功能 3. 商品管理功能 4. 訪客意見留言功能 5. 會員管理功能. 7. 逢甲大學 e-Paper (92學年度).
(8) 二手影音光碟交易網站. 第二章系統概述 2.1 沿革. 由於有鑒於二手商品的流行，如雅虎奇摩，以及 EBAY 的盛行，以及 消費模式的轉變，透過網路的盛行，於是有了這個架構，網路購物必是 ２１世紀的新興以及主流行業之一. 我們亦看上訪間價錢一直維持一定價錢，雖然經濟不景氣，也是少 數不降價的產品之一，又經過網路隨處可抓的ＭＰ３以及盜版在各個夜 市猖獗的情況下，被免費產品的ｍｐ３以及盜版６分之一的價錢攻擊下 也一直都堅持不降價的正版影音ＣＤ，如ＣＤ唱片，ＶＣＤ影片，以及 高畫值的ＤＶＤ影片，有鑒於滿多人有正版情節，以及流行性的關希， 產品的推陳出新速度也是很快，但是很多影音光碟都是聽過幾次或是看 過幾次而已，都還保存很好，再加上也有很多人當時沒有預算購買的人 等著別人的正版品的釋出，又由於現在影音設備的進步，加上正版品的 高品質，對於聽覺以及視覺都是一大饗宴 基於以上幾點，二手盛行，網路購物，正版影音的高品質饗宴，孕 育出這個二手影音光碟交易網站，打著不用出門，只要動動手指上網， 又加上讓人心動的便宜價錢，加上迅速的宅配到府的服務，搶攻市場， 再透過ＢＢＳ或是各大入口網站打廣告，透過網路的便捷廣告，打開市 場，迅速擁有通路，經營一個大事業. 8. 逢甲大學 e-Paper (92學年度).
(9) 二手影音光碟交易網站. 2.2 組織. 老闆. 會計部門. 出貨部門. 業務部門. 人事部門. 表 2.1 部門分配. 2.3 職責分配 這系統將整個公司劃分為四個部門─會計部門、業務部門、存貨部 門、人事部門。根據工作所求，將繁雜的資料內容輸入電腦處理， 各部門分工合作，平均分擔工作上的負擔且又能增加工作效益。更 能增加其資料正確性以及處理效率，各司其職，提供給客戶最迅速 最完整以及時的服務。 會計部： 現金收支明細 公司採購紀錄 客戶訂購明細 唱片交易明細. 9. 逢甲大學 e-Paper (92學年度).
(10) 二手影音光碟交易網站. 應收帳款明細 薪資發放 業務部： 二手影音 CD 報價 開發新的貨源 網頁管理與更新 二手影音 CD 新增、修改、刪除 、建檔 會員申請與管理 管理者網頁管理 人事部： 員工出勤紀錄 人事異動 員工資料 員工年資紀錄表 業務業績績效表 出貨部： 現有影音 CD 之明細表 客戶訂單處理表 購買貨款確認表 客戶訂貨之出貨紀錄表 訂購客戶的資料明細. 2.4.以下分配與時程 1.分配時程 時程分配主要就是用來控制發展進度。而使用甘特圖是一般用來分 配時程的主要方法。以下就是我們利用甘特圖控制時程分配的結果。. 10. 逢甲大學 e-Paper (92學年度).
(11) 二手影音光碟交易網站. 2.甘特圖. 週數. 1 1 1 1 1 1 1 1 1 1 2 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0. 工作 項目 專題討論. 詢問店家. 系統規劃. 系統分析. 系統設計. 撰寫程式. 整合測試. 報告書寫. 11. 逢甲大學 e-Paper (92學年度).
(12) 二手影音光碟交易網站. 第三章系統分析與設計 3.1 系統分析方法 各系統的分析方法： 1.編碼與修正模式 分成兩步驟：(1)先編寫部分程式碼(2)修正程式中的問題。也就 是先編寫程式碼之後再考慮需求、設計、測試和維護。. 2.階段模式 因為編碼與修正模式有其諸多缺點，因此 Benington 以他開發的 經驗，提出了階段模式來改善編碼與修正模式的缺點。. 階段模式分成 8 個階段且要依次序執行： (1)作業規劃 (2)作業規格描述 (3)程式規格描述 (4)編碼 (5)參數測試 (6)整合測試 (7)上線測試. 12 逢甲大學 e-Paper (92學年度).
(13) 二手影音光碟交易網站. (8)系統評估 階段模型是具有方法論的模型，強調系統開發前要有所規劃，程 式編碼前要有所分析和設計，系統上線之前要有所測試。. 3.瀑布模式 Royce 在 1970 年的時候提出瀑布模式，定義了一個系統由產生 到淘汰階段，整個存活期間所必須經歷的活動，其目的在於進行以下 的工作： (1)了解使用者所遇到的問題和發生問題的原因。 (2)定義系統任務和所要達成的目標。 (3)確認新系統的功能和資料需求。 (4)確認系統限制和風險。 (5)決定專案範圍。 (6)找出所有可行方案，進行可行性研究，找出最佳的分案和做 成本效益分析。 (7)撰寫可行性報告和專案計畫。. 瀑布模式是最簡單和最容易懂的系統分析方法，整個建構過程如 同瀑布般由上而下，一氣呵成，若中間步驟出現了問題，將可能導致. 13 逢甲大學 e-Paper (92學年度).
(14) 二手影音光碟交易網站. 整個專案開發的停止，這是因為瀑布模式將系統測試和除錯放在最後 階段，因此必須要事先規劃好架構，才會按照步驟來逐步完成。. 4 漸增模式 瀑布模式也有其缺點，在系統開發的各階段中，需要同時考量所 有的需求，並且系統開發要一個週期完成，因此在某些特定的情況之 下瀑布模式的執行將有其困難，為此，Mills 在 1971 年提出漸增模 式來解決此問題。. 漸增模式是系統開發的方法，把需求分成好幾個部分，然後依開 發計畫將每個需求部分訂定一個開發週期，每個週期可以依序或平行 開發。每個週期的階段都清楚的定義要做哪些工作和要繳交哪些文 件，每個週期階段要循序進行且循環一次。. 5 雛型模式 此方法在最經濟最短的時間內，很快地了解使用者的需求，並開 發一個工作雛型，經由使用者做不斷的評估和修正，可以用來辨識使 用者的動態功能需求，或將工作雛型評估修正為最終的軟體產品。一 般的軟體雛型可分成兩類：. 14 逢甲大學 e-Paper (92學年度).
(15) 二手影音光碟交易網站. (1)丟棄式雛型 a.快速規劃 b.快速分析 c.快速製作 (2)演進式雛型 a.調查階段 b.快速分析 c.雛型階段 d.製作階段. 6 螺旋模型 每個步驟都會把考慮的因素再重新核對一次，整個過程就像是同 心圓一般，由內而外顯示出過程，包含下列幾個階段： (1)計畫 (2)風險分析 (3)工程 (4)顧客評估. 15 逢甲大學 e-Paper (92學年度).
(16) 二手影音光碟交易網站. 3.2 選用哪種方法和理由 綜觀以上的各種方法，都有其優缺點，本組是選擇＂瀑布模式＂ 這個方法，瀑布模式一般適用於發展期間需求可以清楚完整表達，問 題知識容易取得且較不會改變的專案，因此才會選擇瀑布模式。. 16 逢甲大學 e-Paper (92學年度).
(17) 二手影音光碟交易網站. 3.3 系統架構. 二手影音交易網站 index.aspx. 管理者區 會員區. 訂單區. 商品區. 會員區. 會員密碼查詢 forget.aspx 加入會員 admen.aspx 會員登入 login.aspx. 訂單總覽 orderview.aspx. 會員總覽 memview.aspx. 留言區. DATA. gbook.aspx 修改會員. memview2.aspx 商品 main.aspx. 商品內容新增. addpro2.aspx. 商品類別新增. addpro.aspx. 商品總管理. viewpro.aspx. 圖 3.1 系統架構圖. 17. 逢甲大學 e-Paper (92學年度).
(18) 二手影音光碟交易網站. 3.3.1 會員註冊. Index.aspx. 加入會員. Addemem.aspx. 資料審核. DB.mdb 資料庫 Member 資料表. Login.aspx. 圖 3.2 會員註冊系統流程圖 檔案名稱：Index.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 二手 VCD 網站. 圖片. -. 2. 登入. 連結. 8. 3. 加入會員. 連結. 8. 4. 查詢密碼. 連結. 8. 5. 管理專區請輸入密碼. 文字. 20. 附註. 18 逢甲大學 e-Paper (92學年度).
(19) 二手影音光碟交易網站. 6. 登入管理專區. 連結. 8. 表 3.1 網站首頁 檔案名稱：addemem.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 附註. 1. 姓名. 文字. 20. 2. 性別. 按鈕. 2. 3. 生日. 下拉選單. 20. 4. 電話. 文字. 15. 5. 手機. 文字. 15. 6. e-mail. 文字. 30. 7. 帳號. 文字. 15. 8. 密碼. 文字. 15. 9. 郵遞區號. 文字. 5. 10. 身分字號. 文字. 10. 11. 地址. 文字. 50. 12. 送出資料. 按鈕. 20*19. 13. 錯誤訊息 1. 文字. 24. 請輸入姓名. 14. 錯誤訊息 2. 文字. 24. 請輸入帳號. 19 逢甲大學 e-Paper (92學年度).
(20) 二手影音光碟交易網站. 15. 錯誤訊息 3. 文字. 24. 請輸入電話. 16. 錯誤訊息 4. 文字. 24. 請輸入地址. 表 3.2 會員資料填寫網頁 檔案名稱：login.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 會員登入區. 圖形. 2. 帳號. 文字. 20. 3. 密碼. 文字. 20. 4. 確定送出. 按鈕. 20*19. 5. 錯誤訊息 1. 文字. 24. 附註. 請輸入正確帳號和密碼. 表 3.3 會員登入網頁 檔案名稱：db.mdb 資料庫 member 資料表 紀錄格式： 序號. 欄名. 格式. 長度. 1. MyName. 文字. 20. 2. MyNumber. 文字. 10. 3. Address. 文字. 50. 4. AreaNum. 文字. 5. 附註. 20 逢甲大學 e-Paper (92學年度).
(21) 二手影音光碟交易網站. 5. Sex. 文字. 2. 6. ID. 文字. 15. 7. Pass. 文字. 15. 8. Email. 文字. 30. 9. Mybirthday. 文字. 20. 10. Mytel. 文字. 15. 11. MyMobil. 文字. 15. 表 3.4 會員個人資料表 說明： 一開始從 index.aspx 首頁裡頭，選取加入會員選項進入 addemem.aspx 網頁來填寫資料加入會員，成功加入之後可以選取登 入來進入登入網頁 login.aspx 來登入。. 21 逢甲大學 e-Paper (92學年度).
(22) 二手影音光碟交易網站. 3.3.2 會員登入. Index.aspx. 登入. Login.aspx. DB.mdb 資料庫 Member 資料表. 驗證資料. memMain.apsx. 圖 3.3 會員登入系統流程圖 檔案名稱：index.apsx 紀錄格式：請參照表 3.1 檔案名稱：login.apsx 紀錄格式：請參照表 3.3 檔案名稱：db.mdb 資料庫 member 資料表 紀錄格式：請參照表 3.4. 22 逢甲大學 e-Paper (92學年度).
(23) 二手影音光碟交易網站. 檔案名稱：memMain.apsx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 會員專區. 圖形. 2. 瀏覽商品. 連結. 8. 3. 留言特區. 連結. 8. 4. 修改資料. 連結. 8. 附註. 表 3.5 會員專區網頁 說明： 使用者可以再 index.aspx 中選取登入選項來進入 login.aspx 網 頁，輸入正確的帳號和密碼之後就進入會員專區 memMain.apsx 網頁。. 23 逢甲大學 e-Paper (92學年度).
(24) 二手影音光碟交易網站. 3.3.3 會員修改. MemMain.aspx. 修改資料. Memview2.aspx. DB.mdb 資料庫 Member 資料表. 選取修改欄位 且修改資料. 圖 3.4 會員修改系統流程圖 檔案名稱：memMain.apsx 紀錄格式：請參照表 3.5 檔案名稱：db.mdb 資料庫 member 資料表 紀錄格式：請參照表 3.4 檔案名稱：memview2.aspx 紀錄格式： 序號 1. 欄名 姓名. 格式 文字. 長度. 附註. 20. 24 逢甲大學 e-Paper (92學年度).
(25) 二手影音光碟交易網站. 2. 性別. 文字. 2. 3. 電話. 文字. 15. 4. 帳號. 文字. 15. 5. 密碼. 文字. 15. 6. 身分字號. 文字. 15. 7. 手機. 文字. 15. 8. 生日. 文字. 20. 9. Email. 文字. 30. 10. 郵遞區號. 文字. 5. 11. 地址. 文字. 50. 12. 編輯. 連結. 8. 表 3.6 會員資料修改網頁 說明：在會員專區網頁 memmain.aspx 中，選取修改資料的選項連結 到 memview2.aspx，再選取編輯選項即可進行會員資料的修改，將所 要修改的資料修改完成之後選取完成便完成資料修改。. 25 逢甲大學 e-Paper (92學年度).
(26) 二手影音光碟交易網站. 3.3.4 會員購物. memMain.aspx. 瀏覽商品. DB.MDB 資料 庫類別資料表. Main.aspx. 選購商品類別. DB.MDB 資料 庫商品資料表. Buy.aspx. 選購商品 DB.MDB 資料庫 protmp 資料表. List.aspx. END. 圖 3.5 會員購物系統流程圖 檔案名稱：memMain.apsx 紀錄格式：請參照表 3.5 檔案名稱：Main.aspx 紀錄格式： 26 逢甲大學 e-Paper (92學年度).
(27) 二手影音光碟交易網站. 序號. 欄名. 格式. 長度. 1. 熱門影片 VCD. 按鈕. 2. 2. 熱門影片 DVD. 按鈕. 2. 3. 港劇日劇韓劇. 按鈕. 2. 4. 熱門音樂 CD. 按鈕. 2. 5. 進入購物區. 按鈕連結. 20*19. 6. 查看購物袋. 文字連結. 8. 7. 退回所有商品. 文字連結. 8. 附註. 表 3.7 會員購物區網頁. 檔案名稱：Buy.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 購買. 按鈕. 2. 2. 數量. 文字. 20. 3. 名稱. 文字. 20. 4. 價格. 文字. 20. 5. 簡介. 文字. 20. 6. 加入購物袋. 按鈕連結. 20*10. 附註. 27 逢甲大學 e-Paper (92學年度).
(28) 二手影音光碟交易網站. 7. 選擇購物區. 文字連結. 20. 8. 查看購物袋. 文字連結. 20. 9. 退回所有商品. 文字連結. 20. 表 3.8 商品細目網頁 檔案名稱：list.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 退回. 文字連結. 8. 2. 編號. 文字. 20. 3. 名稱. 文字. 20. 4. 單價. 文字. 20. 5. 數量. 文字. 20. 6. 簡介. 文字. 20. 7. 總價格. 文字. 20. 8. 選擇購物區. 文字鏈結. 8. 9. 退回所有商品. 文字鏈結. 8. 10. 送出商品. 按鈕鏈結. 20*10. 附註. 表 3.9 商品清單網頁. 28 逢甲大學 e-Paper (92學年度).
(29) 二手影音光碟交易網站. 檔案名稱：DB. Mdb 資料庫類別資料表 紀錄格式： 序號. 欄名. 格式. 長度. 1. 類別編號. 數字. 2. 2. 類別名稱. 文字. 20. 附註. 表 3.10*類別資料表 檔案名稱：DB.MDB 資料庫商品資料表 紀錄格式： 序號. 欄名. 格式. 長度. 1. 類別. 數字. 2. 2. 編號. 文字. 2. 3. 名稱. 文字. 20. 4. 類型. 文字. 2. 5. 價格. 數字. 4. 6. 簡介. 文字. 255. 附註. 表 3.11 商品資料表 檔案名稱：DB.MDB 資料庫 protmp 資料表 紀錄格式： 序號. 欄名. 格式. 長度. 附註. 29 逢甲大學 e-Paper (92學年度).
(30) 二手影音光碟交易網站. 1. 商品編號. 文字. 50. 2. 名稱. 文字. 50. 3. 數量. 文字. 50. 4. 單價. 文字. 50. 5. 總價. 文字. 50. 表 3.12 購物袋 protmp 資料表 說明： 在會員專區 memMain.aspx 網頁中，選取瀏覽商品進入 Main.aspx 網頁，可以選擇購物商品的類別，選取類別進入 Buy.aspx 網頁中就 可以進行選購商品購物，當購物完畢就選擇查看購物袋，在 list.aspx 中可以看到選購的商品。. 30 逢甲大學 e-Paper (92學年度).
(31) 二手影音光碟交易網站. 3.3.5 管理者登入. Index.aspx. 輸入管理者 帳號與密碼. Management.aspx. 圖 3.6 管理者登入系統流程圖 檔案名稱：index.aspx 紀錄格式：請參照表 3.1 檔案名稱：management.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 會員區. 文字. 20. 2. 會員總攬. 文字連結. 20. 3. 商品區. 文字. 20. 4. 商品總攬管理. 文字連結. 20. 5. 新稱類別. 文字連結. 20. 附註. 31 逢甲大學 e-Paper (92學年度).
(32) 二手影音光碟交易網站. 6. 新增商品. 文字連結. 20. 7. 訂單區. 文字. 20. 8. 訂單總攬. 文字連結. 20. 表 3.13 管理者專區網頁 說明： 在 index.aspx 首頁中，填入管理者密碼就可以進去管理者專區 網頁 management.aspx. 32 逢甲大學 e-Paper (92學年度).
(33) 二手影音光碟交易網站. 3.3.6 管理者管理會員 Management.aspx. 會員總攬. Memview.aspx DB.mdb 資料庫 member 資料表 編輯會員 資料. 圖 3.7 管理者管理會員系統流程圖 檔案名稱：management.aspx 紀錄格式：請參照表 3.13 檔案名稱：DB.mdb 資料庫 member 資料表 紀錄格式：請參照表 3.4 檔案名稱：memview.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 姓名. 文字. 20. 2. 性別. 文字. 2. 3. 電話. 文字. 15. 附註. 33 逢甲大學 e-Paper (92學年度).
(34) 二手影音光碟交易網站. 4. 帳號. 文字. 15. 5. 密碼. 文字. 15. 6. 身分字號. 文字. 15. 7. 手機. 文字. 15. 8. 生日. 文字. 20. 9. Email. 文字. 30. 10. 郵遞區號. 文字. 5. 11. 地址. 文字. 50. 12. 編輯. 文字連結. 8. 13. 刪除. 文字連結. 8. 14. 回管理者首頁. 文字連結. 8. 表 3.14 管理者管理會員網頁 說明: 在 management.aspx 選取會員總攬來進入管理者管理會員的網 頁 memview.aspx，在 memview.aspx 中選取編輯或刪除來管理會員資 料，選取編輯之後便可以進行編輯會員資料，選取刪除便可以刪除該 會員資料。. 34 逢甲大學 e-Paper (92學年度).
(35) 二手影音光碟交易網站. 3.3.7 管理者管理商品 Management.aspx. 商品總攬管理. DB.mdb 資料庫 商品資料表. Viewpro.aspx. 編輯商品資料. 圖 3.8 管理者管理商品系統流程圖 檔案名稱：management.aspx 紀錄檔案：請參照表 3.13 檔案名稱：DB.mdb 資料庫商品資料表 紀錄格式：請參照表 3.11 檔案名稱：viewpro.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 類別. 文字. 20. 2. 編號. 文字. 20. 3. 名稱. 文字. 20. 4. 類型. 文字. 20. 附註. 35 逢甲大學 e-Paper (92學年度).
(36) 二手影音光碟交易網站. 5. 價格. 文字. 20. 6. 簡介. 文字. 20. 7. 編輯. 文字連結. 8. 8. 刪除. 文字連結. 8. 表 3.15 管理者管理商品網頁 說明： 管理者在 management.aspx 中選取商品總攬管理進入 viewpro.aspx 網頁管理商品資料，透過編輯和刪除可以變動商品的 資料。. 36 逢甲大學 e-Paper (92學年度).
(37) 二手影音光碟交易網站. 3.3.8 管理者管理商品. Management.aspx. 新增商品. Addpro2.aspx. DB.mdb 資料庫 商品資料表. 填寫新商品資料. end. 圖 3.9 管理者新增商品系統流程圖 檔案名稱：management.aspx 紀錄檔案：請參照表 3.13 檔案名稱：DB.mdb 資料庫商品資料表 紀錄格式：請參照表 3.11 檔案名稱：addpro2.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 類別名稱. 下拉選單. 4. 2. 產品編號. 文字. 20. 附註. 37 逢甲大學 e-Paper (92學年度).
(38) 二手影音光碟交易網站. 3. 片名. 文字. 20. 4. 價格. 文字. 10. 5. 類型. 下拉選單. 4. 6. 簡介. 文字框架. 9*40. 7. 送出. 按鈕. 20*19. 表 3.16 管理者管理新增商品網頁 說明： 管理者在 management.aspx 中選取新增商品，進入 addpro2.aspx 網頁，在此網頁中可以填寫新的商品資料，填寫完畢按下送出即可。. 38 逢甲大學 e-Paper (92學年度).
(39) 二手影音光碟交易網站. 3.3.9 管理者管理訂單. Management.aspx. 訂單總攬. DB.MDB 資料庫訂 單 proorder 資料表. Orderview.aspx. 編輯訂單. 圖 3.10 管理者管理訂單 檔案名稱：management.aspx 紀錄格式：請參照表 3.13 檔案名稱：orderview.aspx 紀錄格式： 序號. 欄名. 格式. 長度. 1. 訂單編號. 文字. 20. 2. 客戶編號. 文字. 20. 3. 商品編號. 文字. 20. 4. 訂單日期. 文字. 20. 5. 數量. 文字. 20. 6. 單價. 文字. 20. 附註. 39 逢甲大學 e-Paper (92學年度).
(40) 二手影音光碟交易網站. 7. 總價. 文字. 20. 8. 處理. 按鈕連結. 10*10. 9. 回管理者專區. 文字連結. 8. 表 3.17 管理者管理訂單網頁 檔案名稱：DB.MDB 資料庫訂單 proorder 資料表 紀錄格式： 序號. 欄名. 格式. 長度. 1. 訂單編號. 文字. 20. 2. 客戶編號. 文字. 10. 3. 商品編號. 文字. 20. 4. 商品名稱. 文字. 20. 5. 訂購日期. 文字. 20. 6. 數量. 文字. 20. 7. 單價. 文字. 20. 8. 總價. 文字. 20. 9. 處理. 文字. 20. 附註. 表 3.18 訂單 proorder 資料表 說明：透過 management.aspx 的訂單總攬選項可以進入 orderview.aspx 來管理訂單的資料。 40 逢甲大學 e-Paper (92學年度).
(41) 二手影音光碟交易網站. 第四章系統製作 系統製作是系統開發過程中相當重要要的部分，需要花費許多時 間和精力，是把一個概念想法轉變成一個實體出來。. 4.1 會員功能 本網站採用會員制度，訪客必須先行註冊成為本網站的會員才能 使用本網站的相關會員服務。. 1.註冊. 圖 4.1 首頁 圖 4.1 首頁按加入會員之後出現圖 4.2. 41 逢甲大學 e-Paper (92學年度).
(42) 二手影音光碟交易網站. 圖 4.2 加入會員 圖 4.2 中填寫加入會員的資料之後按下送出出現圖 4.3. 圖 4.3 加入會員成功 PROCESS：圖 4.2 中按下送出鈕之後所做的處理，以 Connection-Command-DataReader 存取資料庫 DB 中的資料表 member. Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click Dim con11 As New OleDb.OleDbConnection con11.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 42 逢甲大學 e-Paper (92學年度).
(43) 二手影音光碟交易網站. Server.MapPath("DB.mdb") con11.Open(). Dim SQLStr11 As String SQLStr11 = "select * from member where ID='" & MyID.Text & "'". Dim cmd11 As New OleDb.OleDbCommand(SQLStr11, con11) Dim rd11 As OleDb.OleDbDataReader rd11 = cmd11.ExecuteReader If rd11.Read Then Response.Write("帳號已重複，請重新輸入...") Response.End() End If. Dim con As New OleDb.OleDbConnection con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb"). 43 逢甲大學 e-Paper (92學年度).
(44) 二手影音光碟交易網站. con.Open(). Dim SQLStr As String SQLStr = "insert into member(MyName,MyNumber,Address,AreaNum,sex,ID,pass,email,My birthday,MyTel,MyMobil) values(?,?,?,?,?,?,?,?,?,?,?)" Dim cmd As New OleDb.OleDbCommand(SQLStr, con). cmd.Parameters.Add("@MyName", OleDb.OleDbType.Char, 20) cmd.Parameters.Add("@MyNumber", OleDb.OleDbType.Char, 10) cmd.Parameters.Add("@Address", OleDb.OleDbType.Char, 50) cmd.Parameters.Add("@AreaNum", OleDb.OleDbType.Char, 5) cmd.Parameters.Add("@sex", OleDb.OleDbType.Char, 2) cmd.Parameters.Add("@ID", OleDb.OleDbType.Char, 15) cmd.Parameters.Add("@pass", OleDb.OleDbType.Char,. 44 逢甲大學 e-Paper (92學年度).
(45) 二手影音光碟交易網站. 15) cmd.Parameters.Add("@email", OleDb.OleDbType.Char, 30) cmd.Parameters.Add("@Mybirthday", OleDb.OleDbType.Date) cmd.Parameters.Add("@MyTel", OleDb.OleDbType.Char, 15) cmd.Parameters.Add("@MyMobil", OleDb.OleDbType.Char, 15). cmd.Parameters("@MyName").Value = MyName.Text cmd.Parameters("@MyNumber").Value = MyNumber.Text cmd.Parameters("@Address").Value() = Address.Text cmd.Parameters("@AreaNum").Value() = AreaNum.Text If boy.Checked Then cmd.Parameters("@sex").Value() = "男" ElseIf girl.Checked Then cmd.Parameters("@sex").Value = "女" End If. 45 逢甲大學 e-Paper (92學年度).
(46) 二手影音光碟交易網站. cmd.Parameters("@ID").Value() = MyID.Text cmd.Parameters("@pass").Value() = MyPass.Text cmd.Parameters("@email").Value() = email.Text cmd.Parameters("@Mybirthday").Value() = birYear.SelectedItem.Value & "/" & birMon.SelectedItem.Value & "/" & birDay.SelectedItem.Value cmd.Parameters("@Mytel").Value() = Mytel.Text cmd.Parameters("@Mymobil").Value() = MyMobil.Text. cmd.ExecuteNonQuery() con.Close() Response.Write("註冊成功，請至會員登入區登入" & "<BR>") Response.Write("<a href=login.aspx>我要登入</a>") Response.End() End Sub End Class. 46 逢甲大學 e-Paper (92學年度).
(47) 二手影音光碟交易網站. 圖 4.4 填寫會員資料錯誤訊息 Process：使用 RequiredFieldValidator 驗證欄位是否有填入資料。 <asp: RequiredFieldValidator id=＂ RequiredFieldValidator1 “ runat = “server＂ ErrorMessage=＂請輸入姓名＂ ControlToValidata=＂MyName＂>< asp: RequiredFieldValidator> 2.登入. 47 逢甲大學 e-Paper (92學年度).
(48) 二手影音光碟交易網站. 圖 4.1 首頁 圖 4.1 按下登入出現圖 4.5 會員登入. 圖 4.5 會員登入 圖 4.5 按下確定送出後出現圖 4.6 會員專區. 圖 4.6 會員專區 Process`: Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click 48 逢甲大學 e-Paper (92學年度).
(49) 二手影音光碟交易網站. Dim con As New OleDb.OleDbConnection con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb") con.Open(). Dim SQLStr As String SQLStr = "select * from member where ID='" & MyID.Text & "' and pass='" & pass.Text & "'". Dim cmd As New OleDb.OleDbCommand(SQLStr, con) Dim rd As OleDb.OleDbDataReader rd = cmd.ExecuteReader. If rd.Read Then Session("status") = "OK" Session("mynumber") = rd("MyNumber") Response.Cookies("cusnum").Value = rd("MyNumber"). 49 逢甲大學 e-Paper (92學年度).
(50) 二手影音光碟交易網站. con.Close() Response.Redirect("memMain.aspx") Else con.Close() Response.Write("帳號或密碼不對，請重新輸入") End If End Sub. 3.修改. 圖 4.6 會員專區 圖 4.6 按下修改資料後出現圖 4.7 會員修改. 50 逢甲大學 e-Paper (92學年度).
(51) 二手影音光碟交易網站. 圖 4.7 會員修改 圖 4.7 會員修改按下編輯鈕之後出現圖 4.8 會員修改之修改資料. 圖 4.8 會員修改之修改資料 圖 4.8 將要修改的欄位修改之後按下更新，出現圖 4.9 會員修改之修 改完成。. 圖 4.9 會員修改之修改完成 Process:因為 DataGrid 本身不具備將資料寫入資料庫的功能，所以 搭配 SQL 的指令使其具有修改資料的功能，按下編輯鈕之後，出現更 新和取消功能，來達到修改的功能。 51 逢甲大學 e-Paper (92學年度).
(52) 二手影音光碟交易網站. Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load. If Not IsPostBack Then BindList(). End Sub. Private Sub myDataGrid_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.EditCommand myDataGrid.EditItemIndex = e.Item.ItemIndex BindList() End Sub. Private Sub myDataGrid_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.CancelCommand. 52 逢甲大學 e-Paper (92學年度).
(53) 二手影音光碟交易網站. myDataGrid.EditItemIndex = -1 BindList() End Sub. Private Sub myDataGrid_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.UpdateCommand Dim MyName As String = CType(e.Item.Cells(1).Controls(0), TextBox).Text Dim sex As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text Dim MyTel As String = CType(e.Item.Cells(3).Controls(0), TextBox).Text Dim ID As String = CType(e.Item.Cells(4).Controls(0), TextBox).Text Dim pass As String = CType(e.Item.Cells(5).Controls(0), TextBox).Text Dim MyNumber As String =. 53 逢甲大學 e-Paper (92學年度).
(54) 二手影音光碟交易網站. CType(e.Item.Cells(6).Controls(0), TextBox).Text Dim MyMobil As String = CType(e.Item.Cells(7).Controls(0), TextBox).Text Dim MyBirthday As String = CType(e.Item.Cells(8).Controls(0), TextBox).Text Dim email As String = CType(e.Item.Cells(9).Controls(0), TextBox).Text Dim AreaNum As String = CType(e.Item.Cells(10).Controls(0), TextBox).Text Dim MyAddress As String = CType(e.Item.Cells(11).Controls(0), TextBox).Text. Dim strSQL As String strSQL = "Update member Set MyName='" & MyName & "',sex='" & sex & "' ,MyTel='" & MyTel & "',ID='" & ID & "' ,pass='" & pass & "',MyNumber='" & MyNumber & "',MyMobil='" & MyMobil & "',MyBirthday='" & MyBirthday & "',email='" & email & "',AreaNum='" & AreaNum & "',Address='" & MyAddress & "' Where " & myDataGrid.DataKeyField & "='" &. 54 逢甲大學 e-Paper (92學年度).
(55) 二手影音光碟交易網站. myDataGrid.DataKeys(e.Item.ItemIndex) & "'". Dim objConn As New OleDb.OleDbConnection objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("DB.mdb") objConn.Open() Dim objCmd As New OleDb.OleDbCommand(strSQL, objConn) objCmd.ExecuteNonQuery() myDataGrid.EditItemIndex = -1 aa = "OK". BindList(). End Sub 'strSQL 為 SQL 敘述，FileName 為資料庫檔名，TableName 為 資料表名稱。 Function CreateDataSet(ByVal strSQL As String, ByVal. 55 逢甲大學 e-Paper (92學年度).
(56) 二手影音光碟交易網站. FileName As String, ByVal TableName As String) As DataSet Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath(FileName) Dim objCmd As New OleDb.OleDbDataAdapter(strSQL, ConnString) Dim DS As New DataSet objCmd.Fill(DS, TableName) CreateDataSet = DS End Function. Sub BindList() myDataGrid.DataSource = CreateDataSet("Select * From member where MyNumber = '" & Session("mynumber") & "'", "DB.mdb", "member") myDataGrid.DataBind() End Sub. 56 逢甲大學 e-Paper (92學年度).
(57) 二手影音光碟交易網站. Private Sub myDataGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles myDataGrid.PageIndexChanged myDataGrid.CurrentPageIndex = e.NewPageIndex BindList() End Sub End Class. 4.購物. 圖 4.6 會員專區 圖 4.6 按下瀏覽商品之後出現圖 4.10 購物區. 57 逢甲大學 e-Paper (92學年度).
(58) 二手影音光碟交易網站. 圖 4.10 購物區 圖 4.10 點選其中的其中一個選項之後，出現圖 4.11 商品細目. 4.11 商品細目. 58 逢甲大學 e-Paper (92學年度).
(59) 二手影音光碟交易網站. Process:從圖 4.6 進入圖 4.10 的和圖 4.10 進入圖 4.11 的時候，會 先把類別讀進來，在依所選的類別進入圖 4.11 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在這裡放置使用者程式碼以初始化網頁 Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim Database = "Data Source=" & Server.MapPath("DB.mdb") If Not IsPostBack Then Session("IsCookieOpen") = "Set in Page_Load". Dim Conn As OleDb.OleDbConnection, Cmd As OleDb.OleDbCommand Dim Rd As OleDb.OleDbDataReader, SQL As String Conn = New OleDb.OleDbConnection(Provider & ";" & DataBase) Conn.Open() SQL = "Select * From 類別" Cmd = New OleDb.OleDbCommand(SQL, Conn). 59 逢甲大學 e-Paper (92學年度).
(60) 二手影音光碟交易網站. Rd = Cmd.ExecuteReader() Dim I As Integer While Rd.Read() Category.Items.Add(Rd.Item("類別名稱")) Category.Items(I).Value = Rd.Item("類別編號 ") I += 1 End While Conn.Close(). End If End Sub. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Msg.Text = "". If Session("IsCookieOpen") <> "Set in Page_Load" Then Msg.Text = "欲進入購物, 請先開啟瀏覽器的 Cookie,. 60 逢甲大學 e-Paper (92學年度).
(61) 二手影音光碟交易網站. " & _ "然後關閉瀏覽器, 再重新啟動瀏覽器!" Exit Sub End If. Dim Sel = Category.SelectedItem If Not Sel Is Nothing Then Response.Redirect("Buy.aspx?類別名稱=" & Sel.Text & _ "&類別編號=" & Sel.Value) End If End Sub. 61 逢甲大學 e-Paper (92學年度).
(62) 二手影音光碟交易網站. 圖 4.11 商品細目 圖 4.11 選擇所要的商品在選購物帶便可以了，出現圖 4.12 商品清單 ，結束購物時點選送出商品即可。. 圖 4.12 商品清單 Process: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 62 逢甲大學 e-Paper (92學年度).
(63) 二手影音光碟交易網站. '在這裡放置使用者程式碼以初始化網頁 Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim Database = "Data Source=" & Server.MapPath("DB.mdb") Dim 類別名稱 As String, 類別編號 As Integer 類別名稱 = Request("類別名稱") 類別編號 = Request("類別編號"). If 類別編號 = 0 Or 類別名稱 = "" Then Response.Redirect("Main.aspx") End If. If Not IsPostBack Then Dim Conn As OleDb.OleDbConnection, Adpt As OleDb.OleDbDataAdapter Dim Ds As DataSet, SQL As String, I As Integer. Conn = New OleDb.OleDbConnection(Provider & ";" & Database). 63 逢甲大學 e-Paper (92學年度).
(64) 二手影音光碟交易網站. Conn.Open() SQL = "Select * From 商品 Where 類別=" & 類別編 號 Adpt = New OleDb.OleDbDataAdapter(SQL, Conn) Ds = New DataSet Adpt.Fill(Ds, "商品"). Dim Table1 As DataTable = Ds.Tables("商品") Table1.Columns.Add(New DataColumn("購買", GetType(Boolean))) Table1.Columns.Add(New DataColumn("數量", GetType(Integer))) For I = 0 To Table1.Rows.Count - 1 Table1.Rows(I).Item("數量") = 1 Next MyGrid.DataSource = Table1.DefaultView MyGrid.DataBind() End If End Sub. 64 逢甲大學 e-Paper (92學年度).
(65) 二手影音光碟交易網站. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Hash As Hashtable, I As Integer. If Session("購物袋") Is Nothing Then Hash = New Hashtable Else Hash = Session("購物袋") End If. For I = 0 To MyGrid.Items.Count - 1 Dim cb As CheckBox = MyGrid.Items(I).FindControl("BuyIt") Dim lb As Label = MyGrid.Items(I).FindControl("ProductID") Dim tb As TextBox = MyGrid.Items(I).FindControl("Quantity"). 65 逢甲大學 e-Paper (92學年度).
(66) 二手影音光碟交易網站. If cb.Checked And Val(tb.Text) > 0 Then If Not Hash.ContainsKey(lb.Text) Then Hash.Add(lb.Text, CInt(Val(tb.Text))) Else Hash(lb.Text) += CInt(Val(tb.Text)) End If End If Next Session("購物袋") = Hash Response.Redirect("List.aspx") End Sub. 圖 4.12 商品清單 圖 4.12 點選退回商品便出現圖 4.13 商品清單之退回商品. 66 逢甲大學 e-Paper (92學年度).
(67) 二手影音光碟交易網站. 圖 4.13 商品清單之退回商品 Process Public 總價格 As Long Public k, j As Integer Public aa()() As Array Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim Database = "Data Source=" & Server.MapPath("DB.mdb"). Msg.Text = "". If Not IsPostBack Then 67 逢甲大學 e-Paper (92學年度).
(68) 二手影音光碟交易網站. 購物袋清單() End If. End Sub Sub 購物袋清單() Dim Hash As Hashtable If Session("購物袋") Is Nothing Then Hash = New Hashtable Else Hash = Session("購物袋") End If If Hash.Count = 0 Then Msg.Text = "現在購物袋是空的!". Dim ArrKey(Hash.Count - 1) As String Dim ArrVal(Hash.Count - 1) As Integer Dim Products As String Hash.Keys.CopyTo(ArrKey, 0) Hash.Values.CopyTo(ArrVal, 0) Products = "('" & Join(ArrKey, "','") & "')". 68 逢甲大學 e-Paper (92學年度).
(69) 二手影音光碟交易網站. Dim Conn As OleDb.OleDbConnection, Adpt As OleDb.OleDbDataAdapter Dim Ds As DataSet, SQL As String Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim Database = "Data Source=" & Server.MapPath("DB.mdb") Conn = New OleDb.OleDbConnection(Provider & ";" & Database) Conn.Open() SQL = "Select * From 商品 Where 編號 In " & Products Adpt = New OleDb.OleDbDataAdapter(SQL, Conn) Ds = New DataSet Adpt.Fill(Ds, "商品"). Dim Table1 As DataTable = Ds.Tables("商品") Table1.Columns.Add(New DataColumn("數量", GetType(Integer))). 69 逢甲大學 e-Paper (92學年度).
(70) 二手影音光碟交易網站. Dim Keys() As DataColumn = {Table1.Columns("編號")} Table1.PrimaryKey = Keys Dim X As String For Each X In Hash.Keys Table1.Rows.Find(X).Item("數量") = Hash.Item(X) Next Table1.Columns.Add(New DataColumn("總價", GetType(Long), _ "價格*數量")) Dim I As Integer For I = 0 To Table1.Rows.Count - 1 總價格 += Table1.Rows(I).Item("總價") j = j + 1 Next. MyGrid.DataSource = Table1.DefaultView MyGrid.DataBind(). 70 逢甲大學 e-Paper (92學年度).
(71) 二手影音光碟交易網站. Dim delStr As String delStr = "delete from protmp" Dim delcmd As New OleDb.OleDbCommand(delStr, Conn) delcmd.ExecuteNonQuery(). 'Response.Write(Table1.Rows(0).Item(0) & "<BR>") 'Response.Write(Table1.Rows(0).Item(1) & "<BR>") 'Response.Write(Table1.Rows(0).Item(2) & "<BR>") 'Response.Write(Table1.Rows(0).Item(3) & "<BR>") 'Response.Write(Table1.Rows(0).Item(4) & "<BR>") 'Response.Write(Table1.Rows(0).Item(5) & "<BR>") 'Response.Write(Table1.Rows(0).Item("總價") & "<BR>") 'Response.Write(Table1.Rows(0).Item("數量")). For k = 0 To j - 1 Dim SQLStr As String SQLStr = "insert into protmp(商品編號,名稱,數量, 單價,總額) values(?,?,?,?,?)". 71 逢甲大學 e-Paper (92學年度).
(72) 二手影音光碟交易網站. Dim cmd As New OleDb.OleDbCommand(SQLStr, Conn). cmd.Parameters.Add("@商品編號", OleDb.OleDbType.Char, 50) cmd.Parameters.Add("@名稱", OleDb.OleDbType.Char, 50) cmd.Parameters.Add("@數量", OleDb.OleDbType.Char, 50) cmd.Parameters.Add("@單價", OleDb.OleDbType.Char, 50) cmd.Parameters.Add("@總額", OleDb.OleDbType.Char, 50). cmd.Parameters("@數量").Value = Table1.Rows(k).Item("數量") cmd.Parameters("@商品編號").Value = Table1.Rows(k).Item(1). 72 逢甲大學 e-Paper (92學年度).
(73) 二手影音光碟交易網站. cmd.Parameters("@名稱").Value = Table1.Rows(k).Item(2) cmd.Parameters("@單價").Value = Table1.Rows(k).Item(4) cmd.Parameters("@總額").Value = Table1.Rows(k).Item("總價") cmd.ExecuteNonQuery(). Next Conn.Close() End Sub Sub Remove_From_Bag(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Dim Hash As Hashtable. If Session("購物袋") Is Nothing Then Hash = New Hashtable Else Hash = Session("購物袋"). 73 逢甲大學 e-Paper (92學年度).
(74) 二手影音光碟交易網站. End If. If Hash.ContainsKey(MyGrid.DataKeys(e.Item.ItemIndex)) Then Hash.Remove(MyGrid.DataKeys(e.Item.ItemIndex)) End If Session("購物袋") = Hash 購物袋清單() End Sub. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click. Dim con As New OleDb.OleDbConnection con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb") con.Open(). 74 逢甲大學 e-Paper (92學年度).
(75) 二手影音光碟交易網站. Dim cmd As New OleDb.OleDbDataAdapter("select * from proorder order by 訂單編號 desc", con) Dim ds As New DataSet cmd.Fill(ds, "proorder"). Dim MyTable As New DataTable MyTable = ds.Tables("proorder"). '取得訂單編號 Dim ordernum, tmp As String. tmp = Right(MyTable.Rows(MyTable.Rows.Count 1).Item("訂單編號"), 5). 'ordernum = Left(MyTable.Rows(0).Item("訂單編號"), 3) & Right(Str(Val(Right(MyTable.Rows(0).Item("訂單編號"), 5) + 1)), 5). 75 逢甲大學 e-Paper (92學年度).
(76) 二手影音光碟交易網站. ordernum = "pro" & tmp. '取出protmp中的所有資料 Dim procmd As New OleDb.OleDbDataAdapter("select * from protmp", con) Dim prods As New DataSet procmd.Fill(ds, "protmp"). Dim proMyTable As New DataTable MyTable = ds.Tables("protmp"). Dim aa As Object aa = Request.Cookies("cusnum").Value. Dim i, j As Integer j = 0. For i = 0 To MyTable.Rows.Count - 1. 76 逢甲大學 e-Paper (92學年度).
(77) 二手影音光碟交易網站. j += 1. '將訂單內容寫入proorder() Dim writeStr As String writeStr = "insert into proorder(訂單編號,客戶編 號,商品編號,商品名稱,數量,單價,總額,處理) values(?,?,?,?,?,?,?,?)" Dim ordercmd As New OleDb.OleDbCommand(writeStr, con). ordercmd.Parameters.Add("@訂單編號", OleDb.OleDbType.Char, 50) ordercmd.Parameters.Add("@客戶編號", OleDb.OleDbType.Char, 50) ordercmd.Parameters.Add("@商品編號", OleDb.OleDbType.Char, 50) ordercmd.Parameters.Add("@商品名稱", OleDb.OleDbType.Char, 50). 77 逢甲大學 e-Paper (92學年度).
(78) 二手影音光碟交易網站. ordercmd.Parameters.Add("@數量", OleDb.OleDbType.Char, 50) ordercmd.Parameters.Add("@單價", OleDb.OleDbType.Char, 50) ordercmd.Parameters.Add("@總額", OleDb.OleDbType.Char, 50) ordercmd.Parameters.Add("@處理", OleDb.OleDbType.Char, 2). ordercmd.Parameters("@訂單編號").Value = ordernum ordercmd.Parameters("@客戶編號").Value = aa ordercmd.Parameters("@商品編號").Value = MyTable.Rows(i).Item("商品編號") ordercmd.Parameters("@商品名稱").Value = MyTable.Rows(i).Item("名稱") ordercmd.Parameters("@數量").Value = MyTable.Rows(i).Item("數量") ordercmd.Parameters("@單價").Value =. 78 逢甲大學 e-Paper (92學年度).
(79) 二手影音光碟交易網站. MyTable.Rows(i).Item("單價") ordercmd.Parameters("@總額").Value = MyTable.Rows(i).Item("總額") ordercmd.Parameters("@處理").Value = "是" ordercmd.ExecuteNonQuery() Next. Response.Write("謝謝您的訂購，服務人員會儘快和您連絡 ") Response.End(). End Sub. 79 逢甲大學 e-Paper (92學年度).
(80) 二手影音光碟交易網站. 5.留言. 圖 4.14 留言區 圖 4.14 點選我要留言之後出現圖 4.15 留言區留言. 圖 4.15 留言區留言 Process Sub OpenDataBase_And_BindToDataGrid() Dim Conn As OleDb.OleDbConnection 80 逢甲大學 e-Paper (92學年度).
(81) 二手影音光碟交易網站. Dim Adpt As OleDb.OleDbDataAdapter Dim Ds As DataSet. Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim Database = "Data Source=" & Server.MapPath("../DB.mdb") Conn = New OleDb.OleDbConnection(Provider & ";" & Database) Conn.Open(). Dim SQL = "Select Top 50 * From GuestBook Order By 時 間 Desc" Adpt = New OleDb.OleDbDataAdapter(SQL, Conn). Ds = New DataSet Adpt.Fill(Ds, "GuestBook"). Dim Table1 As DataTable = Ds.Tables("GuestBook") Table1.Columns.Add(New DataColumn("HTML",. 81 逢甲大學 e-Paper (92學年度).
(82) 二手影音光碟交易網站. GetType(String))) Dim I As Integer For I = 0 To Table1.Rows.Count - 1 Table1.Rows(I).Item("HTML") = MakeHTML(Table1.Rows(I)) Next. MyGrid.DataSource = Table1.DefaultView MyGrid.DataBind(). Conn.Close() End Sub. Function MakeHTML(ByVal row As DataRow) As String Dim 心情 = row.Item("心情") Dim 姓名 = "<B>姓名: </B>" & Server.HtmlEncode(row.Item("姓名")) Dim 主旨 = "<B>主旨: </B>" & Server.HtmlEncode(row.Item("主旨")). 82 逢甲大學 e-Paper (92學年度).
(83) 二手影音光碟交易網站. Dim 留言 = "<pre><Font Size=+1>" & Server.HtmlEncode(row.Item("留言")) & "</Font></pre>" Dim 時間 = "<B>時間: </B>" & Server.HtmlEncode(row.Item("時間")) Dim 信箱 = Server.HtmlEncode(row.Item("信箱")) 信箱 = "<B>信箱: </B><a href='mailto: " & 信箱 & "'>" & 信箱 & "</a>". Dim HTML As String HTML = "<table border=0>" HTML &= "<tr valign=top><td Rowspan=5>" & 心情 & "</td>" HTML &= "<td>" & 姓名 & "</td></tr>" HTML &= "<tr><td>" & 信箱 & "</td></tr>" HTML &= "<tr><td>" & 主旨 & "</td></tr>" HTML &= "<tr><td>" & 時間 & "</td></tr>" HTML &= "<tr><td bgcolor=Yellow>" & 留言 & "</td></tr>" HTML &= "</table>". 83 逢甲大學 e-Paper (92學年度).
(84) 二手影音光碟交易網站. Return HTML End Function. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Redirect("Gform.aspx") End Sub Sub ChangePage(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) MyGrid.CurrentPageIndex = e.NewPageIndex OpenDataBase_And_BindToDataGrid() End Sub. 84 逢甲大學 e-Paper (92學年度).
(85) 二手影音光碟交易網站. 圖 4.15 留言區留言 圖 4.15 按下送出留言之後， 出現圖 4.16 留言區留言成功。. 圖 4.16 留言區留言成功 Process Sub SendMsg(sender As Object, e As EventArgs) If IsValid Then WriteDataToDatabase() Response.Redirect("Gbook.aspx") End If End Sub Sub WriteDataToDatabase() Dim Conn As OleDbConnection Dim Cmd As OleDbCommand Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0" Dim Database = "Data Source=" & Server.MapPath( "../DB.mdb" ) Conn = New OleDbConnection( Provider & ";" & DataBase ) Conn.Open() Dim SQL As String SQL = "INSERT INTO GuestBook (姓名, 信箱, 主旨, 留言, 心情) VALUES (?, ?, ?, ?, ?)" Cmd = New OleDbCommand( SQL, 85 逢甲大學 e-Paper (92學年度).
(86) 二手影音光碟交易網站. Conn ) Cmd.Parameters.Add( New OleDbParameter("@姓名", OleDbType.Char, 255)) Cmd.Parameters.Add( New OleDbParameter("@信箱", OleDbType.Char, 255)) Cmd.Parameters.Add( New OleDbParameter("@主旨", OleDbType.VarChar)) Cmd.Parameters.Add( New OleDbParameter("@留言", OleDbType.VarChar)) Cmd.Parameters.Add( New OleDbParameter("@心情", OleDbType.Char, 255)) Cmd.Parameters(0).Value = Name.Text Cmd.Parameters(1).Value = Email.Text Cmd.Parameters(2).Value = Subject.Text Cmd.Parameters(3).Value = Body.Text Cmd.Parameters(4).Value = Icon.SelectedItem.Text Cmd.ExecuteNonQuery() Conn.Close() End Sub. 86 逢甲大學 e-Paper (92學年度).
(87) 二手影音光碟交易網站. 4.2 網站管理者 1.管理者登入. 圖 4.17 管理者登入 圖 4.17 輸入密碼之後便進入圖 4.18 管理者專區. 圖 4.18 管理者專區 87 逢甲大學 e-Paper (92學年度).
(88) 二手影音光碟交易網站. Process Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If pass.Text = "test" Then Session("admin") = "yes" Response.Redirect("management.aspx") Else Response.Write("密碼錯誤，請重新輸入") Response.End() End If End Sub. 88 逢甲大學 e-Paper (92學年度).
(89) 二手影音光碟交易網站. 2.管理者管理會員. 圖 4.18 管理者專區 圖 4.18 點選會員總攬之後，出現圖 4.19 管理者管理會員. 圖 4.19 管理者管理會員 圖 4.19 點選編輯，出現圖 4.20 管理者管理會員之修改，將所要修改. 89 逢甲大學 e-Paper (92學年度).
(90) 二手影音光碟交易網站. 的資料欄修改；圖 4.19 點選刪除便得到圖 4.22 管理者管理會員之刪 除完成。. 圖 4.20 管理者管理會員之修改 圖 4.20 修改完之後便得到圖 4.21 管理者管理會員之修改完成. 4.21 管理者管理會員之修改完成. 90 逢甲大學 e-Paper (92學年度).
(91) 二手影音光碟交易網站. 圖 4.22 管理者管理會員之刪除完成 Process：使用 DataGrid 來顯示資料且利用 SQL 指令來做修改 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then BindList() End Sub. Private Sub myDataGrid_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.EditCommand myDataGrid.EditItemIndex = e.Item.ItemIndex BindList() End Sub. 91 逢甲大學 e-Paper (92學年度).
(92) 二手影音光碟交易網站. Private Sub myDataGrid_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.CancelCommand myDataGrid.EditItemIndex = -1 BindList() End Sub. Private Sub myDataGrid_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.UpdateCommand. Dim MyName As String = CType(e.Item.Cells(1).Controls(0), TextBox).Text Dim sex As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text Dim MyTel As String = CType(e.Item.Cells(3).Controls(0), TextBox).Text. 92 逢甲大學 e-Paper (92學年度).
(93) 二手影音光碟交易網站. Dim ID As String = CType(e.Item.Cells(4).Controls(0), TextBox).Text Dim pass As String = CType(e.Item.Cells(5).Controls(0), TextBox).Text Dim MyNumber As String = CType(e.Item.Cells(6).Controls(0), TextBox).Text Dim MyMobil As String = CType(e.Item.Cells(7).Controls(0), TextBox).Text Dim MyBirthday As String = CType(e.Item.Cells(8).Controls(0), TextBox).Text Dim email As String = CType(e.Item.Cells(9).Controls(0), TextBox).Text Dim AreaNum As String = CType(e.Item.Cells(10).Controls(0), TextBox).Text Dim MyAddress As String = CType(e.Item.Cells(11).Controls(0), TextBox).Text Dim strSQL As String strSQL = "Update member Set MyName='" & MyName & "',sex='" & sex & "' ,MyTel='" & MyTel & "',ID='" & ID &. 93 逢甲大學 e-Paper (92學年度).
(94) 二手影音光碟交易網站. "' ,pass='" & pass & "',MyNumber='" & MyNumber & "',MyMobil='" & MyMobil & "',MyBirthday='" & MyBirthday & "',email='" & email & "',AreaNum='" & AreaNum & "',Address='" & MyAddress & "' Where " & myDataGrid.DataKeyField & "='" & myDataGrid.DataKeys(e.Item.ItemIndex) & "'". Dim objConn As New OleDb.OleDbConnection objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("DB.mdb") objConn.Open() Dim objCmd As New OleDb.OleDbCommand(strSQL, objConn) objCmd.ExecuteNonQuery() myDataGrid.EditItemIndex = -1 aa = "OK". BindList(). 94 逢甲大學 e-Paper (92學年度).
(95) 二手影音光碟交易網站. End Sub 'strSQL 為 SQL 敘述，FileName 為資料庫檔名，TableName 為 資料表名稱。 Function CreateDataSet(ByVal strSQL As String, ByVal FileName As String, ByVal TableName As String) As DataSet Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath(FileName) Dim objCmd As New OleDb.OleDbDataAdapter(strSQL, ConnString) Dim DS As New DataSet objCmd.Fill(DS, TableName) CreateDataSet = DS End Function. Sub BindList() myDataGrid.DataSource = CreateDataSet("Select * From member", "DB.mdb", "member"). 95 逢甲大學 e-Paper (92學年度).
(96) 二手影音光碟交易網站. myDataGrid.DataBind() End Sub. Private Sub myDataGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles myDataGrid.PageIndexChanged myDataGrid.CurrentPageIndex = e.NewPageIndex BindList() End Sub. Private Sub myDataGrid_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.DeleteCommand 'Response.Write(myDataGrid.DataKeyField & "<BR>"). 'Response.Write(myDataGrid.DataKeys(e.Item.ItemIndex) & "<BR>"). 96 逢甲大學 e-Paper (92學年度).
(97) 二手影音光碟交易網站. Dim delstr As String = "delete from member where " & myDataGrid.DataKeyField & "=" & "'" & myDataGrid.DataKeys(e.Item.ItemIndex) & "'". 'Response.Write(delstr) 'Response.End(). Dim objcon As New OleDb.OleDbConnection objcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("DB.mdb") objcon.Open() Dim objcmd1 As New OleDb.OleDbCommand(delstr, objcon) objcmd1.ExecuteNonQuery(). myDataGrid.EditItemIndex = -1 BindList() End Sub. 97 逢甲大學 e-Paper (92學年度).
(98) 二手影音光碟交易網站. 3.管理者管理商品. 圖 4.18 管理者專區 圖 4.18 點選商品總攬管理，出現圖 4.23 管理者管理商品. 圖 4.23 管理者管理商品 圖 4.23 點選編輯，出現圖 4.24 管理者管理商品之修改，進行商品的 修改，完成出現圖 4.25 管理者管理商品之修改完成；圖 4.23 點選摻 98 逢甲大學 e-Paper (92學年度).
(99) 二手影音光碟交易網站. 除的時候，便出現圖 4.26 管理者管理商品之刪除完成. 圖 4.24 管理者管理商品之修改. 圖 4.25 管理者管理商品之修改完成. 99 逢甲大學 e-Paper (92學年度).
(100) 二手影音光碟交易網站. 圖 4.26 管理者管理商品之刪除完成 Process Public aa As String Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then BindList() End Sub. Private Sub myDataGrid_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.EditCommand myDataGrid.EditItemIndex = e.Item.ItemIndex. 100 逢甲大學 e-Paper (92學年度).
(101) 二手影音光碟交易網站. BindList() End Sub. Private Sub myDataGrid_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.CancelCommand myDataGrid.EditItemIndex = -1 BindList() End Sub. Private Sub myDataGrid_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.UpdateCommand Dim 類別 As String = CType(e.Item.Cells(0).Controls(0), TextBox).Text Dim 編號 As String = CType(e.Item.Cells(1).Controls(0), TextBox).Text. 101 逢甲大學 e-Paper (92學年度).
(102) 二手影音光碟交易網站. Dim 名稱 As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text Dim 類型 As String = CType(e.Item.Cells(3).Controls(0), TextBox).Text Dim 價格 As Integer = CType(e.Item.Cells(4).Controls(0), TextBox).Text Dim 簡介 As String = CType(e.Item.Cells(5).Controls(0), TextBox).Text. Dim strSQL As String strSQL = "Update 商品 Set 類別='" & 類別 & "',編號='" & 編號 & "' ,名稱='" & 名稱 & "',類型='" & 類型 & "' ,價格=" & 價格 & ",簡介='" & 簡介 & "' Where " & myDataGrid.DataKeyField & "='" & myDataGrid.DataKeys(e.Item.ItemIndex) & "'". Dim objConn As New OleDb.OleDbConnection objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _. 102 逢甲大學 e-Paper (92學年度).
數據
+7
相關文件
How would this task help students see how to adjust their learning practices in order to improve?..
Using this formalism we derive an exact differential equation for the partition function of two-dimensional gravity as a function of the string coupling constant that governs the
We further want to be able to embed our KK GUTs in string theory, as higher dimensional gauge theories are highly non-renormalisable.. This works beautifully in the heterotic
Hikami proposed a state integral model which gives a topological invariant for hyperbolic 3-manifold.. Saddle Point of
◆ Understand the time evolutions of the matrix model to reveal the time evolution of string/gravity. ◆ Study the GGE and consider the application to string and
It should be stressed that the four eigenvalues obtained here do not change even if we include other field outside KBc subalgebra or outside the dressed B 0 gauge, since such fields
The The extended nature extended nature of string theory introduces of string theory introduces additional degrees of freedom?. additional degrees of freedom localized
• No vector potential needed for gauge symmetry Vector potential is useful for
