【正文】 end MM_offset 0 % /td td width=31% align=center% If MM_offset 0 Then % a href=%=MM_movePrev%前一頁 /a % End If 39。 } /style /head % dim rs,strsql set db=() dbq=amp。 CStr(MM_offset + MM_size) If (MM_offset MM_size 0) Then MM_movePrev = MM_urlStr amp。 amp。 if the page has a repeated region, remove 39。 create the Form + URL string and remove the intial 39。 MM_nextItem amp。 amp。 reset the cursor to the beginning If ( 0) Then Else End If 39。 past end or move last If ((MM_rsCount Mod MM_size) 0) Then 39。 *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = rs1 MM_rsCount = rs1_total MM_size = rs1_numRows MM_uniqueCol = MM_paramName = MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName ) Then MM_paramIsDefined = ((MM_paramName) ) End If % % 39。 set the first and last displayed record rs1_first = 1 rs1_last = rs1_first + rs1_numRows 1 39。 ) If (Not MM_abortEdit) Then 39。 , End If MM_tableValues = MM_tableValues amp。 amp。 Else MM_editRedirectUrl = MM_editRedirectUrl amp。|meirong|39。 *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr((SCRIPT_NAME)) If ( ) Then MM_editAction = MM_editAction amp。 (password) amp。driver={microsoft access driver (*.mdb)}。 Set rs=(strSql) If not and not Then 39。 Where user_name=39。39。39。重新注冊 /a end if % 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。user_nameamp。 dim strsql,user_name ,Password,name name=(user_name) strSql=select * from user Where user_name=39。amp。重新注冊 /a end if % 頁面源碼： % if (password)then dim db set db=() dbq=amp。mobiamp。Passwordamp。 Set rs=(strSql) If not then 對不起，用戶名已被注冊，請 a href=39。 附 錄 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。 畢業(yè)設計終于可以告一段落了， 完成 期間，投入了許多精力，邊學邊做，積累經驗， 學會了較多 制作網站的知識。如果有記錄 ，表示有該用戶，則將用戶名和用戶類型保存到 Session 中 Session(user_name)=rs(user_name) session(user_type)=rs(user_type) Session(password)=rs(password) 39。 amp。 （ 3）訂 單管理 包括對訂單的確認與刪除。 普通用戶可以提交定單，可以進行留言，并且實現反饋到留言板上，使的管理員能收到定單，也能收到留言。而且最重要的一點是，Access 的功能足夠強大，足以應付一般的數據管理及處理需要。站點服務器收到要求執(zhí)行的應用程序，分析表單（ form）的輸入數據，將執(zhí)行的結果以 HTML 的格式傳送給瀏覽器 。 ASP 可以與 HTML 頁、腳本命令和 ActiveX 組件組合創(chuàng)建交互的 Web 頁和基于 Web 的功能強大的應用程序。幫助員工提高工作效率，實現 藥店信息管理 工作流程的系統化、 網絡化、 規(guī)范化和自動化。使用動態(tài)頁面設計 ,應用 ASP 程序進行后臺管理操作，并用 Access 進行后臺數據庫的連接設計。藥店的信息管理是藥店工作中一項重要的內容。為了更好的推銷本公司，為了更好的讓客戶了解本公司，更方便的服務客戶，且能更方便的與本公司聯系，節(jié)約時間，及時發(fā)揮效應。 ASP（ Active Sever Pages 動態(tài)網頁）是微軟公司推出的一種用以取代CGI(Common Gateway Interface)技術。所謂 “靜態(tài) ”，是指站點的主頁內容是 “固定不變 ”的。這兩種技術和另一普遍使用的開發(fā)動態(tài)網頁的技術 Java 都還存在著另外一個問題，那就是開發(fā)困難，程序的開發(fā)和 HTML 寫作是兩個完全不同的過程，需要專門的程序員開發(fā)。 超級管理員 可以接收定單，進行留言板管理，訂單管理，進行新聞發(fā)布，修改賬號資料等。 杭州蕭山慧飛窗簾網 表 1 網站前臺架構 最新動態(tài) 產品世界 留言板 聯系地址 處方藥 非處方藥 甲類藥物 乙類藥物 客戶留言 留言查看 管理員登陸 藥店簡介 管理員登錄 登錄 新聞管理 產品管理 在線定購 留言管理 添加新聞 修改新聞 刪除新聞 發(fā)布產品 刪除產品 修改產品 查看留言 用戶注冊 用戶登錄 用戶注冊 表 2 網站后臺架構 3， 數據庫設計 數據庫名： 圖一 （數據庫中的所有表） 圖二（數據庫中的產品表） 圖三（數據庫中的產品訂購表） 圖四（數據庫中的留言表） 圖五（數 據庫中的用戶賬號信息表） 圖六（數據庫中的管理員賬號表） 圖 7（數據庫中的新聞表） 第四章 藥店信息管理系統的實現 圖一（網站首頁美工設計） 圖二（新聞動態(tài)發(fā)布） 圖三（產品動態(tài)發(fā)布） 4． 2． 后 臺模塊 ． 后臺管理首頁簡介 進入后臺管理，進行管理員登錄（ ） ，進入管理首頁 （ ） 。driver={microsoft access driver (*.mdb)}。 (password) amp。 1） 公司簡介面頁中內容顯得有些單簿，在后期工作中還會有所補充。從 Dreamweaver 到 ASP，讓你為了費不了少的心思，也費了你不少的時間。 amp。39。39。39。 Password amp。請重新修改 /a end if % Sign1 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。39。39。 (user_name) amp。,39。()amp。 amp。返回 /a重新登錄 End If % 頁面源碼： %=True% % 39。 39。如果沒有記錄，表示沒有該用戶，請給出提示信息 對不起，用戶名或密碼有誤，請 a href=39。 *** Insert Record: set variables If (CStr(Request(MM_insert)) = 3) Then MM_editConnection = MM_coon_STRING MM_editTable = xinwen MM_editRedirectUrl = MM_fieldsStr = 1|value|2|value MM_columnsStr = biaoti|39。 set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr((MM_fields(MM_i))) Next 39。 create the sql insert statement MM_tableValues = MM_dbValues = For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),) MM_delim = MM_typeArray(0) If (MM_delim = none) Then MM_delim = MM_altVal = MM_typeArray(1) If (MM_altVal = none) Then MM_altVal = MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = none) Then MM_emptyVal = If (MM_formVal = ) Then MM_formVal = MM_emptyVal Else If (MM_altVal ) Then MM_formVal = MM_alt