【正文】 =%=rs(id)% /a 在上述代碼中， newwin()是筆者自定義的函數(shù)，其作用就是調用一個新窗口，該函數(shù)的完整代碼如下： script language=javascript function newwin(url){ (url,NEW,width=480,height=260,left=0,top=0,resizable=yes,scrollbars=yes)。 } /script 留言列表頁面的運行結果如圖 18 所示。 圖 18 留言列表頁面的運行結果 2．發(fā)表留言 用戶可以在留言列表頁面中單擊【發(fā)表新留言】按鈕，進入到“發(fā)表留言”頁面發(fā)表留言信息。 在設計發(fā)表留言頁時，為了使用 戶的留言信息保存后，留言內容的文字和標點符號能夠統(tǒng)一，在查看留言信息時，不影響閱讀效果，所以在此，將不規(guī)則字符“ ’”通過函數(shù) replace()替換為字符“’”，同時控制用戶輸入的任一主題內容不為空，如果為空，將給予信息提示。 發(fā)表留言頁面的設計效果如圖 19 所示。 2020年 4 月 28 日 貴州大學本科畢業(yè)論文（設計 ) 第 20 頁 圖 19 發(fā)表留言頁面的設計效果 發(fā)表留言頁面 中涉及的 HTML 表單元素 如表 3 所示。 表 3 發(fā)表留言 頁面中涉及的 HTML 表單元素 名稱 類型 含義 重要屬性 form1 form 表單 action=%=(PATH_INFO)% onSubmit=return chkfields()。 author text 昵稱 style=border:1px solid。bordercolor:000000 title text 標題 style=border:1px solid。bordercolor:000000 content textarea 內容 b1 submit 【提交】按鈕 b2 reset 【取消】按鈕 onClick=()。 發(fā)表留言信息 時的數(shù)據(jù)處理頁主要是 將 用戶提交的表單信息 保存到數(shù)據(jù)庫中， 數(shù)據(jù)處理頁的程序代碼如下： !include virtual=manage/include/ %if (CONTENT_LENGTH)0 then% % title=trim(request(title)) 39。用于除去字符串中的空格 title=replace(title,39。,‘) 39。用于將字符串中的指定字符替換 content=trim(request(content)) content=replace(content,39。,‘) content=replace(content,chr(13),br) content=replace(content, , ) author=trim(request(author)) author=replace(author,39。,’) if title= or content= or author= then % script language=javascript alert(請準確填寫留言信息 )。 setTimeout(()。,10)。 /script % () end if postdate=now() 39。獲取系統(tǒng)當前的日期和時間 set rs=(insert into tb_BBS (title,content,backcount,readcount,author,postdate,upid) values (39。amp。titleamp。39。,39。amp。contentamp。39。,0,0,39。amp。authoramp。39。,39。amp。postdateamp。39。,0)) centerbrh3留言成功 /h3/center % script language=javascript 2020年 4 月 28 日 貴州大學本科畢業(yè)論文（設計 ) 第 21 頁 ()。 //刷新當前窗 口的父窗口 setTimeout(()。,800)。 /script 發(fā)表留言頁面的運行結果如圖 20 所示。 圖 20 發(fā)表留言頁面的運行結果 3．查看留言 用戶可以在“留言列表”頁面中單擊任意一條留言的標題鏈接，打開查看留言頁面，瀏覽對應留言的詳細信息。用戶可以在該頁面實現(xiàn)留言信息的回復、留言信息的刪除及回復信息的刪除功能。 查看留言頁面的設計效果如圖 21 所示。 圖 21 查看留言頁面的設計效果 查看留言頁面主要就是將數(shù)據(jù)中的留言信息輸出到瀏覽器中，通過傳遞 的參數(shù) id，在數(shù)據(jù)表中檢索留言信息，來判斷訪問留言信息的人數(shù)，如果檢索到參數(shù) id，則說明訪問一次id 所對應的留言信息，這時通過更新數(shù)據(jù)表對訪問人數(shù)做自加 1 操作。留言列表文件中的檢索數(shù)據(jù)庫的程序代碼如下： % id=(id) if id= then 39。如果 id為空 brcenter請選擇留言！ /center () 39。結束語句 end if 2020年 4 月 28 日 貴州大學本科畢業(yè)論文（設計 ) 第 22 頁 set rs=(select * from tb_BBS where Id=amp。id) if then 39。如果到記錄尾 brcenter沒有該留言！ /center () else (update tb_BBS set readcount=readcount+1 where Id=amp。id) end if % 查看留言頁面的運行結果如圖 22 所示。 圖 22 查看留言頁面的運行結果 4．回復留言 用戶在“留言列表”頁面中單擊【回復該留言】按鈕，進入到“回復該留言”頁面，進行回復留言信息的添加。 回復留言頁面所涉及的方法和上面講解的發(fā)表留言頁面中實現(xiàn)的方法基本類似，這里不再贅述。 在“查看留言”頁面，單擊【回復該留言】按鈕，程序代碼如下： input type=button value=回復該留言 onClick=return newwin(39。?id=%=id%39。)。 style=border:1px solid。bordercolor:000000。backgroundcolor:ffffff 通過上面的代碼可以看出，操作被提交到處理頁后，處理頁將根據(jù)傳遞過來的 id 值對回復的留言信息進行存儲，其關鍵代碼如下： % id=request(id) if (CONTENT_LENGTH)0 then content=trim(request(content)) if len(content)=0 then script language=javascript alert(請?zhí)顚懥粞詢热荩?)。 ()。 /script () end if content=replace(content,chr(13),br) content=replace(content, , ) 2020年 4 月 28 日 貴州大學本科畢業(yè)論文（設計 ) 第 23 頁 author=trim(request(author)) postdate=now() 39?；貜土粞匀掌诤蜁r間 sql=insert into tb_BBS (content,author,postdate,upid) values (39。amp。contentamp。39。,39。amp。authoramp。39。,39。amp。postdateamp。39。,amp。idamp。) 39。向數(shù)據(jù)表中添加回復留言信息 set rs=(sql) sql1=update tb_BBS set backcount=backcount+1 where id=amp。id (sql1) centerbrh3回復信息成功！ /h3/center % script language=javascript ()。 setTimeout(()。,800)。 /script %else% ?? 39。此處省略了判斷昵稱及回復留言內容是否為空的代碼 end if % 5．刪除留言 在查看留言 頁面中，單擊【刪除】按鈕，進行相應的留言信息或回復信息的刪除操作。 刪除留言信息是在每條留言記錄后添加一個【刪除】按鈕，可以在瀏覽完留言信息后對于沒有價值的留言信息做刪除操作，其關鍵代碼如下： % if Session(Passed)=true and Session(Flag)=1 then % input type=image src=images/ onClick=return newwin1(39。?id=%=id%39。)。 %else% input type=image src=images/ onClick=javascript:alert(39。是管理員請登錄！ 39。)。 =39。39。 %end if% 刪除回復信息是在每條記錄后添加一個【刪除】按鈕，可以在瀏覽完留言的回復信息后對于沒有價值的留言回復信息做刪除操作，代碼如下： %if Session(Passed)=true and Session(Flag)=1 then% a href=?id=%=rs1(id)%img src=images/ border=0/a %else% a href= onClick=javascript:alert(39。是管理員請先登錄！ 39。)。=39。39。 img src=images/ border=0/a %end if% 當操作被提交到處理頁后，首先通過標記 Flag 來判斷用戶是否有操作權限，如果該用戶為管理員級別，則處理頁將根據(jù)傳遞過來的 id 值對相應的記錄進行刪除，其關鍵代碼如下： !include virtual=manage/include/ %if Session(Flag)1 then% 2020年 4 月 28 日 貴州大學本科畢業(yè)論文（設計 ) 第 24 頁 script language=javascript alert(您無權刪除！ )。 setTimeout(()。,10)。 /script %else id=(id) set rs=(delete from tb_BBS where Id=amp。idamp。 or upid=amp。id)% script language=javascript alert(刪除留言信息成功！ )。 =。 /script %end if% 5 程序調試與錯誤處理 利用代碼正確控制 Check控件被選中狀態(tài) 在醫(yī)藥連鎖店管理系統(tǒng)中，在刪除公告信息時，公告列表中只有一條公告記錄，這時，單擊【全選】按鈕并不能將復選框選中，如圖 42 所示。 圖 42 單擊【全選】按鈕時，復選框不能被選中 根據(jù)以上的情形進行分析，當單擊【全選】按鈕時，調用 selall()函數(shù)判斷復選框的個數(shù)時，沒有考慮到 1 個復選框時如何進行處理，因此會出現(xiàn)上面的情況。 源代碼如下： function selall(){ var nn=(delit) for(j=0。j。j++){ (delit,j).checked=true。 } 解決方法： 首先筆者利用【全選】按鈕調用 selall()函數(shù)來判斷當前記錄是否小于 2，如果條件成立，則當前復選框處于選中狀態(tài)。更改后的代碼如下： function selall(){ var nn=(delit) if(=2){ for(j=0。j。j++){ (delit,j).checked