【正文】 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。如果沒(méi)有記錄，表示沒(méi)有該用戶，請(qǐng)給出提示信息 對(duì)不起，用戶名或密碼有誤，請(qǐng) a href=39。 39。 39。 strSql=Select user_name,password From user strSql=strSql amp。返回 /a重新登錄 End If % 頁(yè)面源碼： %=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 請(qǐng)將所有信息填寫完整 A HREF=39。,39。重新注冊(cè) /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。請(qǐng)重新修改 /a end if % Sign1 頁(yè)面源碼： %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，讓你為了費(fèi)不了少的心思，也費(fèi)了你不少的時(shí)間。 當(dāng)然也讓我進(jìn)一步了解了 后臺(tái)制作， 它必需與數(shù)據(jù)庫(kù)相連 。 1） 公司簡(jiǎn)介面頁(yè)中內(nèi)容顯得有些單簿，在后期工作中還會(huì)有所補(bǔ)充。如果是普通用戶，重定向到首頁(yè)；如果是管理員，重定向到管理員頁(yè)面 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)架構(gòu) 最新動(dòng)態(tài) 產(chǎn)品世界 留言板 聯(lián)系地址 處方藥 非處方藥 甲類藥物 乙類藥物 客戶留言 留言查看 管理員登陸 藥店簡(jiǎn)介 管理員登錄 登錄 新聞管理 產(chǎn)品管理 在線定購(gòu) 留言管理 添加新聞 修改新聞 刪除新聞 發(fā)布產(chǎn)品 刪除產(chǎn)品 修改產(chǎn)品 查看留言 用戶注冊(cè) 用戶登錄 用戶注冊(cè) 表 2 網(wǎng)站后臺(tái)架構(gòu) 3， 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)名： 圖一 （數(shù)據(jù)庫(kù)中的所有表） 圖二（數(shù)據(jù)庫(kù)中的產(chǎn)品表） 圖三（數(shù)據(jù)庫(kù)中的產(chǎn)品訂購(gòu)表） 圖四（數(shù)據(jù)庫(kù)中的留言表） 圖五（數(shù) 據(jù)庫(kù)中的用戶賬號(hào)信息表） 圖六（數(shù)據(jù)庫(kù)中的管理員賬號(hào)表） 圖 7（數(shù)據(jù)庫(kù)中的新聞表） 第四章 藥店信息管理系統(tǒng)的實(shí)現(xiàn) 圖一（網(wǎng)站首頁(yè)美工設(shè)計(jì)） 圖二（新聞動(dòng)態(tài)發(fā)布） 圖三（產(chǎn)品動(dòng)態(tài)發(fā)布） 4． 2． 后 臺(tái)模塊 ． 后臺(tái)管理首頁(yè)簡(jiǎn)介 進(jìn)入后臺(tái)管理，進(jìn)行管理員登錄（ ） ，進(jìn)入管理首頁(yè) （ ） 。 ⑤、 注冊(cè)用戶、普通管理員和超級(jí) 管 理員登陸后，分別顯視登陸用戶的用戶名，且都可以修改賬號(hào)信息。 超級(jí)管理員 可以接收定單，進(jìn)行留言板管理，訂單管理，進(jìn)行新聞發(fā)布，修改賬號(hào)資料等。 Access 可以實(shí)現(xiàn)建立數(shù)據(jù)庫(kù)、報(bào)表，以及對(duì)數(shù)據(jù)庫(kù) 、報(bào)表的修改、查詢等功能。這兩種技術(shù)和另一普遍使用的開(kāi)發(fā)動(dòng)態(tài)網(wǎng)頁(yè)的技術(shù) Java 都還存在著另外一個(gè)問(wèn)題，那就是開(kāi)發(fā)困難，程序的開(kāi)發(fā)和 HTML 寫作是兩個(gè)完全不同的過(guò)程，需要專門的程序員開(kāi)發(fā)。根據(jù)用戶請(qǐng)求生成動(dòng)態(tài)主頁(yè)的傳統(tǒng)方法有 CGI、 ISAPI 等。所謂 “靜態(tài) ”，是指站點(diǎn)的主頁(yè)內(nèi)容是 “固定不變 ”的。 ASP 應(yīng)用程序很容易開(kāi)發(fā)和修改。 ASP（ Active Sever Pages 動(dòng)態(tài)網(wǎng)頁(yè)）是微軟公司推出的一種用以取代CGI(Common Gateway Interface)技術(shù)。 本系統(tǒng)全稱為 藥店信息管理 系統(tǒng)。為了更好的推銷本公司，為了更好的讓客戶了解本公司，更方便的服務(wù)客戶，且能更方便的與本公司聯(lián)系，節(jié)約時(shí)間，及時(shí)發(fā)揮效應(yīng)。主要是以這些功能進(jìn)行系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)。藥店的信息管理是藥店工作中一項(xiàng)重要的內(nèi)容。并不斷地代替和延伸