【正文】 epForm = MM_keepForm amp。 ((MM_item)) End If Next 39。 amp。 amp。 *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem 39。 move the cursor to the selected record MM_index = 0 While (Not And MM_index MM_offset) MM_index = MM_index + 1 Wend End If % % 39。 walk to the end of the display range for this page MM_index = MM_offset While (Not And (MM_size 0 Or MM_index MM_offset + MM_size)) MM_index = MM_index + 1 Wend 39。 last page not a full repeat region MM_offset = MM_rsCount (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount MM_size End If End If End If 39。 parameter if (Not MM_paramIsDefined And MM_rsCount 0) then 39。 *** Move To Record: handle 39。 reset the cursor to the beginning If ( 0) Then Else End If 39。 if we have the correct record count, check the other stats If (rs1_total 1) Then If (rs1_first rs1_total) Then rs1_first = rs1_total End If If (rs1_last rs1_total) Then rs1_last = rs1_total End If If (rs1_numRows rs1_total) Then rs1_numRows = rs1_total End If End If % % 39。 *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rs1_total Dim rs1_first Dim rs1_last 39。 execute the insert Set MM_editCmd = () = MM_editConnection = MM_editQuery If (MM_editRedirectUrl ) Then (MM_editRedirectUrl) End If End If End If % % Dim rs1 Dim rs1_numRows Set rs1 = () = MM_coon_STRING = SELECT * FROM dinggou ORDER BY id DESC = 0 = 2 = 1 () rs1_numRows = 0 % % Dim rs2__MMColParam rs2__MMColParam = 1 If ((id) ) Then rs2__MMColParam = (id) End If % % Dim rs2 Dim rs2_numRows Set rs2 = () = MM_coon_STRING = SELECT * FROM ly WHERE id = + Replace(rs2__MMColParam, 39。 MM_tableValues amp。 MM_columns(MM_i) MM_dbValues = MM_dbValues amp。 39。 Replace(MM_formVal,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_altVal ElseIf (MM_delim = 39。 amp。 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。,none,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。 ? amp。如果沒有記錄，表示沒有該用戶，請給出提示信息 對不起，用戶名或密碼有誤，請 a href=39。 39。 39。 strSql=Select user_name,password From user strSql=strSql amp。返回 /a重新登錄 End If % 頁面源碼： %=True% % 39。如果有記錄，表示有該用戶，則將用戶名和用戶類型保存到 Session 中 Session(user_name)=rs(user_name) session(user_type)=rs(user_type) Session(password)=rs(password) 39。 amp。 amp。()amp。) (strsql) end if else 請將所有信息填寫完整 A HREF=39。,39。重新注冊 /a else user_name=(user_name) Password=(Password) strsql=insert into users(user_name ,Password)values(39。 (user_name) amp。()amp。39。39。39。 amp。請重新修改 /a end if % Sign1 頁面源碼： %option explicit% % If (user_name)and (password)then dim db,rs set db=() dbq=amp。session(user_name)amp。 Password amp。()amp。39。39。39。39。39。39。 amp。(data/)amp。從 Dreamweaver 到 ASP，讓你為了費不了少的心思，也費了你不少的時間。 當然也讓我進一步了解了 后臺制作， 它必需與數(shù)據(jù)庫相連 。 1） 公司簡介面頁中內(nèi)容顯得有些單簿，在后期工作中還會有所補充。如果是普通用戶，重定向到首頁；如果是管理員，重定向到管理員頁面 If Session(user_type)=A Then ELse End If Else 39。 (password) amp。 (user_name) amp。driver={microsoft access driver (*.mdb)}。 （ 4） 留言管理 包括刪除留言內(nèi)容。 杭州蕭山慧飛窗簾網(wǎng) 表 1 網(wǎng)站前臺架構 最新動態(tài) 產(chǎn)品世界 留言板 聯(lián)系地址 處方藥 非處方藥 甲類藥物 乙類藥物 客戶留言 留言查看 管理員登陸 藥店簡介 管理員登錄 登錄 新聞管理 產(chǎn)品管理 在線定購 留言管理 添加新聞 修改新聞 刪除新聞 發(fā)布產(chǎn)品 刪除產(chǎn)品 修改產(chǎn)品 查看留言 用戶注冊 用戶登錄 用戶注冊 表 2 網(wǎng)站后臺架構 3， 數(shù)據(jù)庫設計 數(shù)據(jù)庫名： 圖一 （數(shù)據(jù)庫中的所有表） 圖二（數(shù)據(jù)庫中的產(chǎn)品表） 圖三（數(shù)據(jù)庫中的產(chǎn)品訂購表） 圖四（數(shù)據(jù)庫中的留言表） 圖五（數(shù) 據(jù)庫中的用戶賬號信息表） 圖六（數(shù)據(jù)庫中的管理員賬號表） 圖 7（數(shù)據(jù)庫中的新聞表） 第四章 藥店信息管理系統(tǒng)的實現(xiàn) 圖一（網(wǎng)站首頁美工設計） 圖二（新聞動態(tài)發(fā)布） 圖三（產(chǎn)品動態(tài)發(fā)布） 4． 2． 后 臺模塊 ． 后臺管理首頁簡介 進入后臺管理，進行管理員登錄（ ） ，進入管理首頁 （ ） 。 ⑤、 注冊用戶、普通管理員和超級 管 理員登陸后，分別顯視登陸用戶的用戶名，且都可以修改賬號信息。 超級管理員 可以接收定單，進行留言板管理，訂單管理，進行新聞發(fā)布，修改賬號資料等。 Access 可以實現(xiàn)建立數(shù)據(jù)庫、報表，以及對數(shù)據(jù)庫 、報表的修改、查詢等功能。這兩種技術和另一普遍使用的開發(fā)動態(tài)網(wǎng)頁的技術 Java 都還存在著另外一個問題，那就是開發(fā)困難，程序的開發(fā)和 HTML 寫作是兩個完全不同的過程，需要專門的程序員開發(fā)。根據(jù)用戶請求生成動態(tài)主頁的傳統(tǒng)方法有 CGI、 ISAPI 等。所謂 “靜態(tài) ”，是指站點的主頁內(nèi)容是 “固定不變 ”的。 ASP 應用程序很容易開發(fā)和修改。 ASP（ Active Sever Pages 動態(tài)網(wǎng)頁）是微軟公司推出的一種用以取代CGI(Common Gateway Interface)技術。 本系統(tǒng)全稱為 藥店信息管理 系統(tǒng)。為了更好的推銷本公司，為了更好的讓客戶了解本公司，更方便的服務客戶，且能更方便的與本公司聯(lián)系，節(jié)約時間，及時發(fā)揮效應。主要是以這些功能進行系統(tǒng)的設計和實現(xiàn)。藥店的信息管理是藥店工作中一項重要的內(nèi)容。并不斷地代替和延伸