【正文】 alert(請輸入價格！ )。 } //如果輸入的 ISBN為空 if(==) {()。 return false。 alert(請輸入圖書名！ )。 分類查詢和綜合查詢代碼類似在這兒就不贅述了。%amp。id,conn,1,3 rs2(islent)=1 set rs2=nothing call MsgBox(借閱成功！ ,GoUrl,?id=amp。OrderFieldamp。enabledateamp。39。largeprice end if ‘ 如果查詢的時間下界不為空 if expiredate then expiredate=CDate(expiredate) sql=sqlamp。 end if ‘ 如果查詢的價格最小值不為空 if smallprice then smallprice=CDbl(smallprice) sql=sqlamp。and categoryid like 39。%amp。authoramp。%39。 } }} /script 在使用 javascript對信息判斷正確后就執(zhí)行信息提交，進入查詢頁面 ,主要代碼如下 : ‘ 如果搜索條件為空 if = then call MsgBox(錯誤：沒有搜索條件 !,GoUrl,) end if set rs=() name=trim((name)) author=trim((author)) manufacturer=trim((manufacturer)) enabledate=trim((enabledate)) expiredate=trim((expiredate)) smallprice=trim((smallprice)) largeprice=trim((largeprice)) OrderField=trim((OrderField)) Order=trim((Order)) code=trim((code)) 28 if OrderField= then OrderField=adddate if Order= then Order=DESC sql=select pagenum,name,mark,id,author,productdate,price from content where 1=1 ‘ 如果查詢的圖書名不為空 if name then sql=sqlamp。 } } if ((!IsWhitespace(smallprice)) amp。 } if ((!IsWhitespace(enabledate)) amp。 27 for(i=0。 return false。 } } var allNotEmpty = (!IsWhitespace(name)) || (!IsWhitespace(author)) || (!IsWhitespace(manufacturer)) || (!IsWhitespace(smallprice)) || (!IsWhitespace(largeprice))|| (!IsWhitespace(enabledate)) || (!IsWhitespace(expiredate))。 if (!IsWhitespace(enabledate)) { if (!IsDate(enabledate)) { alert(出版日期 開始日期格式錯誤 !)。frmdata39。].elements[39。largeprice39。].value。 var smallprice = [39。frmdata39。].elements[39。name39。amp。 arrDaysInMonth[11]=30。 arrDaysInMonth[7]=31。 arrDaysInMonth[3]=31。 } return true。 for (i = 0。 在會員查詢的時候需要對一些信息進行判斷，如果用戶沒輸入任何查詢條件，或者輸入的信息不合法則作出提示。當進入后面的用戶服務頁面時，后面的程序就可以直接從 cookie中讀出用 戶名進行相應的有效驗證。,conn,1,1 ‘ 輸入的用戶名或 Email地址已存在 if not and not then call MsgBox(您輸入的用戶名或 Email 地址已存在，請返回重新輸入！,Back,None) end if ‘ 增加記錄 select * from [user],conn,1,3 rs(username)=trim(request(username)) rs(password)=md5(trim(request(password))) rs(user)=trim(request(user)) rs(usertel)=trim(request(tel)) rs(userqq)=trim(request(userqq)) 23 rs(adddate)=now() rs(lastvst)=now() rs(loginnum)=0 set rs=nothing ‘ 設置 cookie (cookieName)(username)=trim(request(username)) ‘ 設置 cookie有效期為 1天 (cookieName).expires=date+1 =1 call MsgBox(注冊成功！請進入查詢！ ,GoUrl,) end if 是 否 是 否 是 圖 9—— 會員注冊 部分流程圖 開 始 查詢數據庫并返回記錄集 結 束 判斷用戶名密碼 是否為空 ,兩次密碼是否一致 判斷輸入的用戶名在記錄集中是否已存在 在表中插入數據 24 ii. 程序實現過程中出現的問題及解決方法 在文本框中輸入內容可能會在輸出的時候出現亂碼，可以在頁面中加入下面的代碼 meta equiv=ContentType content=text/html。 or user=39。 } /script ‘ 如果用戶提交注冊 if NOT isempty(request(RegSubmit)) then set rs=() select username,user from [user] where username=39。 i 。 return false。 ()。39。39。 } if( != ) { ()。 return false。 alert(用戶名不能為空，請重新輸入！ )。 ,conn,1,3 if not( and ) then 20 if password=rs(password) then (cookieName)(username)=trim(request(username)) rs(lastvst)=now() rs(loginnum)=rs(loginnum)+1 set rs=nothing else call MsgBox(對不起，您的用戶名或密碼有誤！ ,Back,None) end if else call MsgBox(對不起，您的用戶名或密碼有誤！ ,Back,None) end if end if 否 是 是 否 是 圖 8—— 會員登陸部分流程圖 開 始 獲取 提交的用戶名和密碼 查詢數據庫并返回記錄集 記錄集是否為空 判斷提交的用戶名和密碼與記錄中的內容是否相同 結 束 身份為會員 登陸成功 身份為非會員 21 c. 注冊中的程序段 在注冊中，首先應判斷必填內 容是否為空，即用戶名、密碼、確認密碼、 EMail。 and password=39。,)) set rs=() select * from [user] where username=39。 文 本輸 入框的 顯示為 ： input name=username type=text class=inputstyle id=username 密碼輸入框的顯示為： input name=password type=password class=inputstyle id=password 該部分的設計思路是首先判斷是否有 submit 事件觸發(fā)，然后對提交的數據進行處理(出于安全性的考慮我們已經在會員注冊的時候給密碼使用 md5加密 )，把可能引起安全隱患的字符過濾，登陸中用一個 if語句來判斷該用戶是否為合法用戶的。 在程序中我一般都是先用 HTML 語言寫一個首頁，讓用戶在其上的文本框中鍵入信息并點擊“提交” 來觸發(fā)其后的 ASP程序，讓它對提交的信息進行處理。 SQL語句： delete from數據表 where要進行 刪除操作的 數據表所屬的主19 索引名 =+要刪除記錄的 主索引內容名 )。dbq= amp。我們用的是 access 2020實現數據庫的設計的： a. 創(chuàng)建空數據庫 首先，啟動 access 2020，選新建數據庫，我們把數據庫命名為 。 設計中各部分功能的實現通常是通過 ASP 程序來實現的， ASP 程序負責了全部的數據庫與頁面之間的溝通和信息在頁面的輸入輸出。在這里我主要負責完成用戶注冊登陸系統(tǒng)和圖書查詢模塊。 字段名稱 字段類型 字段的說明 userid 自動編號 系統(tǒng)自動生成的用戶序號、此表主鍵 Username 文本 (50) 用戶姓名 password 文本 (50) 用戶密碼 user 文本 (50) 用戶 userqq 文本 (50) 用戶 qq usertel 文本 (50) 用戶電話