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