【正文】 腦力勞動方面發(fā)揮越來越重要的作用，無論是工業(yè)還是日常生活都越來越離不開計算機(jī)，尤其是在商店里，隨著規(guī)模不斷擴(kuò)大和產(chǎn)品的不斷增加，要處理大量的產(chǎn)品數(shù)據(jù)信息顯得尤為的重要。使用動態(tài)頁面設(shè)計 ,應(yīng)用 ASP 程序進(jìn)行后臺管理操作，并用 Access 進(jìn)行后臺數(shù)據(jù)庫的連接設(shè)計。宣傳，對公司來講是個不可缺的工具，更是一個無法缺少的紐帶，它是連接消費(fèi)者與服務(wù)提供商的橋梁，是業(yè)務(wù)的來源之力。幫助員工提高工作效率，實(shí)現(xiàn) 藥店信息管理 工作流程的系統(tǒng)化、 網(wǎng)絡(luò)化、 規(guī)范化和自動化。 開發(fā)環(huán)境 ，主要利用 ASP+ACCESS 及 IIS 環(huán)境進(jìn)行開發(fā) 開發(fā)工具，主要利用 及 Access2021 進(jìn)行開發(fā) 本論文主要從系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實(shí)施與使用等幾個方面進(jìn)行介紹。 ASP 可以與 HTML 頁、腳本命令和 ActiveX 組件組合創(chuàng)建交互的 Web 頁和基于 Web 的功能強(qiáng)大的應(yīng)用程序。 通常情況下，用戶通過瀏覽器看到的網(wǎng)頁大多是靜態(tài)的，目前 Inter 上的許多站點(diǎn)，仍然提供 “靜態(tài) ”（ static）的主頁內(nèi)容。站點(diǎn)服務(wù)器收到要求執(zhí)行的應(yīng)用程序，分析表單（ form）的輸入數(shù)據(jù)，將執(zhí)行的結(jié)果以 HTML 的格式傳送給瀏覽器 。 ISAPI 針對這一缺點(diǎn)進(jìn)行了改進(jìn)，利用 dll（動態(tài)鏈接庫技術(shù)），以線程代替進(jìn)程，提高了性能和速度，但要考慮線程的同步問題，而且開發(fā)步驟煩瑣。而且最重要的一點(diǎn)是，Access 的功能足夠強(qiáng)大，足以應(yīng)付一般的數(shù)據(jù)管理及處理需要。 超級管理員可對注冊申請管理員信息進(jìn)行審核，審核通過后便可任命為正式管理員。 普通用戶可以提交定單，可以進(jìn)行留言，并且實(shí)現(xiàn)反饋到留言板上，使的管理員能收到定單，也能收到留言。 第三章 藥店信息管理的設(shè)計 介紹整個網(wǎng)站前臺的基本架構(gòu)，詳細(xì)信息如表 1。 （ 3）訂 單管理 包括對訂單的確認(rèn)與刪除。()amp。 amp。 amp。如果有記錄 ，表示有該用戶，則將用戶名和用戶類型保存到 Session 中 Session(user_name)=rs(user_name) session(user_type)=rs(user_type) Session(password)=rs(password) 39。返回 /a重新登錄 End If % 后臺界面 圖 12 超級管理員后臺界面（ ） 圖 13 普通管理員后臺界面（ ） 圖 13 普通用戶管理員后臺界面（ ） 圖四（留言版動態(tài)發(fā)布） 圖五（聯(lián)系我們） 圖六（管 理員登陸） 第五章、設(shè)計總結(jié)評價 整個系統(tǒng)已基本完成，但是由于時間不夠充分，還有許多方面不夠完善，如有些功能不能運(yùn)行 ，功能 不 齊全等等。 畢業(yè)設(shè)計終于可以告一段落了， 完成 期間，投入了許多精力，邊學(xué)邊做，積累經(jīng)驗(yàn)， 學(xué)會了較多 制作網(wǎng)站的知識。經(jīng)過一年相處，除了感謝還是感謝。 附 錄 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。檢查新用戶名與數(shù)據(jù)庫是否重復(fù) ,哈哈，終于調(diào)通了 strSql=select * from user Where user_name=39。 Set rs=(strSql) If not then 對不起，用戶名已被注冊，請 a href=39。user_nameamp。Passwordamp。realnameamp。mobiamp。amp。重新注冊 /a end if % 頁面源碼： % if (password)then dim db set db=() dbq=amp。 amp。amp。39。 dim strsql,user_name ,Password,name name=(user_name) strSql=select * from user Where user_name=39。 Set rs=(strSql) If not then 對不起，用戶名已被注冊，請 a href=39。user_nameamp。Passwordamp。重新注冊 /a end if % 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。 amp。39。39。39。查看有無該用戶 dim db,strsql,rs set db=() dbq=amp。 Where user_name=39。 And password=39。 Set rs=(strSql) If not and not Then 39。39。driver={microsoft access driver (*.mdb)}。 (user_name) amp。 (password) amp。如果是普通用戶，重定向到首頁；如果是管理員，重定向到管理員頁面 If Session(user_name)=A Then ELse End If Else 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。 query string to execute MM_editQuery = % % 39。|meirong|39。 create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) 39。 Else MM_editRedirectUrl = MM_editRedirectUrl amp。 *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request(MM_insert)) ) Then 39。 amp。) amp。 , End If MM_tableValues = MM_tableValues amp。 ( amp。 ) If (Not MM_abortEdit) Then 39。) + ORDER BY id DESC = 0 = 2 = 1 () rs2_numRows = 0 % % 39。 set the first and last displayed record rs1_first = 1 rs1_last = rs1_first + rs1_numRows 1 39。 count the total records by iterating through the recordset rs1_total=0 While (Not ) rs1_total = rs1_total + 1 Wend 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。offset39。 past end or move last If ((MM_rsCount Mod MM_size) 0) Then 39。 *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = 1) Then 39。 reset the cursor to the beginning If ( 0) Then Else End If 39。 set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount 1 And MM_offset + MM_size = MM_rsCount) % % 39。 amp。 add the URL parameters to the MM_keepURL string For Each MM_item In MM_nextItem = amp。 MM_nextItem amp。 MM_item amp。 create the Form + URL string and remove the intial 39。 MM_keepForm If (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) 1) End If If (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) 1) End If If (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) 1) End If 39。 if the page has a repeated region, remove 39。 amp。 amp。 MM_moveParam amp。 CStr(MM_offset + MM_size) If (MM_offset MM_size 0) Then MM_movePrev = MM_urlStr amp。 color: 000000。 } /style /head % dim rs,strsql set db=() dbq=amp。amp。 end MM_offset 0 % /td td width=31% align=center% If MM_offset 0 Then % a href=%=MM_movePrev%前一頁 /a % End I