【文章內(nèi)容簡(jiǎn)介】 tr % i=1 39。為變量賦初始值 for i=1 to % td width=576 table width=95% border=0 align=center cellpadding=1 cellspacing=0 tr td width=25% rowspan=4 valign=top div align=center %if len(rs(img))0 then% img src=manage/goods/goodspic/%=rs(img)% width=50 height=50 onClick=newwin(39。manage/goods/?Id=%=rs(Id)%39。) style=cursor:hand %else% img src=images/ width=50 height=50 onClick=newwin(39。manage/goods/?Id=%=rs(Id)%39。) style=cursor:hand %end if% /div /td td width=98% style=wordbreak:break_allb[藥品名稱 ]/b %=rs(yName)%/td /tr tr td style=wordbreak:break_allb[規(guī) 格 ]/b %=rs(Mode1)%/td/tr tr td style=wordbreak:break_allb[適應(yīng)癥 ]/b %=repstr(rs(fortill))%/td/tr tr td align=rightinput type=button value=查看詳細(xì) onClick=newwin(39。manage/goods/?Id=%=rs(Id)%39。) style=border:1px solid。bordercolor:000000。backgroundcolor:ffffff。/td/tr /table/td %if i mod 2 0 then 2020年 4 月 28 日 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 15 頁 td width=2 background=images//td end if 39。繼續(xù)執(zhí)行下一條語句 if i Mod 2 = 0 then /trtr end if if then exit for 39。當(dāng)記錄執(zhí)行到文件尾結(jié)束該循環(huán) next% /tr /table 在瀏覽藥品模塊中還有一個(gè)很關(guān)鍵的程序塊就是列表的翻頁功能。當(dāng)從各個(gè)入口進(jìn)入到瀏覽藥品程序列表頁后，如何能夠把這些參數(shù)保留住，在程序列表頁中進(jìn)行自身的傳遞以便翻頁？這就需要 ASP 程序來完成，實(shí)現(xiàn)這個(gè)功能的完整代碼如下： table border=0 width=100% tr td align=right % 該類共包含 font color=redamp。amp。/font個(gè)藥品 font color=redamp。amp。/font個(gè) /頁 當(dāng)前頁： font color=red amp。pageamp。/font/amp。 if page1 then% a href=?page=1首頁 /a a href=?page=%=(page1)%上一頁 /a %end if if page then a href=?TypeId=amp。rs(TypeId)amp。amp。page=amp。(page+1)amp。 下一頁 /a a href=?TypeId=amp。rs(TypeId)amp。amp。page=amp。amp。 最后一頁 /a end if% /td /tr /table 上述代碼中使用的函數(shù) newwin()的完整代碼如下： script language=javascript function newwin(url){ (url,查看詳細(xì),width=400,height=310,left=0,top=0,resizable=yes,scrollbars=yes)。} /script 添加對(duì)應(yīng)藥品的詳細(xì)信息【查看詳細(xì)】按鈕的程序代碼如下： input type=button value=查 看詳細(xì) onClick=newwin(39。manage/goods/?Id=%=rs(Id)%39。) style=border:1px solid。bordercolor:000000。backgroundcolor:ffffff。 2020年 4 月 28 日 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 16 頁 分類藥品展示頁面的運(yùn)行結(jié)果如圖 13 所示。 圖 13 分類藥品展示頁面的運(yùn)行效果 2．藥品詳細(xì)信息展示頁面 藥品詳細(xì)信息展示頁面是為了讓用戶對(duì)藥品有一個(gè)更全面的了解，以方便選購(gòu)。該頁面主要是根據(jù)傳遞的參數(shù)（本例為藥品 ID 號(hào)，參數(shù)名為 ming）檢索相應(yīng)的記錄信息并顯示。 藥品詳細(xì)信息展示頁面的設(shè)計(jì)效果如圖 14 所示。 圖 14 藥品詳細(xì)信息展示頁面的設(shè)計(jì)效果 根據(jù)傳遞的參數(shù)進(jìn)行數(shù)據(jù)庫檢索的代碼如下： !include file=../include/ % Id=trim((Id)) 39。接收字符串中 Id的值 if Id= then 39。判斷條件，如果 id為空，則執(zhí)行下面的語句 你想看哪一個(gè)藥品信息？ 39。輸出指定的字符串 () 39。結(jié)束語句 else 39。如果條件不成立，檢索得到對(duì)應(yīng) ID的數(shù)據(jù) set rs=(select * from tb_MedicineName where Id=amp。Id) % 當(dāng)顯示藥品的詳細(xì)信息，即主要成份、適應(yīng)癥、用法用量、詳細(xì)說明 時(shí)，觸發(fā)函數(shù) repstr()。該函數(shù)的作用是將指定數(shù)目的空字符串替換為一個(gè)空字符串，其完整代碼如下： % function repstr(str) 2020年 4 月 28 日 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 17 頁 if not isNull(str) or len(str)0 then repstr=replace(str, ) else repstr=沒有信息 end if end function % 顯示圖片信息的代碼如下： %if len(rs(img))0 then% img src=goodspic/%=rs(img)% width=150 height=150 %else% img src=/images/ width=150 height=150 %end if% 顯示藥品的詳細(xì)信息的程序代碼如下： %=rs(yName)% 39。顯示藥品名稱 %=repstr(rs(elements))% 39。顯示主要成份 %=repstr(rs(fortill))% 39。顯示適應(yīng)癥 %=repstr(rs(usesize))% 39。顯示用法用量 %=repstr(rs(medbook))% 39。顯示詳細(xì)說明 藥品詳細(xì)信息展示頁面的運(yùn)行結(jié)果如圖 15 所示。 圖 15 藥品詳細(xì)信息展示頁面的運(yùn)行結(jié)果 求醫(yī)問藥模塊設(shè)計(jì) 求醫(yī)問藥模塊作為一個(gè)完全獨(dú)立的模塊，主要包括留言列表、發(fā)表留言、查看留言、回復(fù)留言和刪除留言 5 部分。 1．留言列表 用戶可以單擊首頁主導(dǎo)航區(qū)【求醫(yī)問藥】 超鏈接，進(jìn)入到“留言列表”頁面。用戶可以在留言列表頁面填寫留言信息；單擊任意一個(gè)留言的標(biāo)題鏈接，打開查看留言頁面，瀏覽對(duì)應(yīng)留言的詳細(xì)信息。 留言列表頁面的設(shè)計(jì)效果如圖 17 所示。 2020年 4 月 28 日 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 18 頁 圖 17 留言列表頁面的設(shè)計(jì)效果 留言列表主要就是將數(shù)據(jù)中的留言信息分頁輸出到瀏覽器中，每頁顯示 2 條記錄，留言列表文件中檢索數(shù)據(jù)庫的程序代碼如下： !include virtual=manage/include/ % set rs=() sql=select * from tb_BBS where upid=0 order by id desc sql,conn,3,3 39。分頁顯示留言信息 if then trtd colspan=4 bgcolor=ffffffbrbdiv align=center 現(xiàn)在還沒有人發(fā)表提問 /div/b/td/tr else =2 39。每頁顯示 2條記錄 page=Clng((page)) 39。查找當(dāng)前顯示的頁碼 if page= or page1 then page=1 if page then page= =page 39。將記錄指針定位到指定頁 i=1 for i=1 to if then exit for 39。如果記錄尾結(jié)束循環(huán) % tr %if i mod 2 =0 then bgcolor=ffeeee% td img src=manage/images/ border=0a href=?id=%=rs(id)% %=rs(title)%/a/td !顯示留言的標(biāo)題信息 tddiv align=center%=rs(author)%/div/td !顯示作者 !顯示回復(fù) /查看 tddiv align=center%=rs(backcount)%/%=rs(readcount)%/div/td tddiv align=center%=rs(postdate)%/div/td !顯示發(fā)表時(shí)間 /tr % 當(dāng)前共 font color=redamp。amp。/font個(gè)問題 font color=redamp。amp。條 /頁 if page1 then 39。當(dāng)頁碼大于 1時(shí)，顯示首頁及上一頁超鏈接 a href=?page=1首頁 /a a href=?page=amp。page1amp。上一頁 /a end if 2020年 4 月 28 日 貴州大學(xué)本科畢業(yè)論文（設(shè)計(jì) ) 第 19 頁 if page then 39。當(dāng)頁碼小于總頁數(shù)時(shí)，顯示下一頁及最后一頁超鏈接 a href=?page=amp。page+1amp。下一頁 /a a href=?page=amp。amp。最后一頁 /a end if next end if % 在留言列表頁面中，單擊任意一個(gè)留言的標(biāo)題鏈接，打開查看留言頁面，為每條留言添加打開詳細(xì)信息展示頁面的超鏈接，通過單擊超鏈接瀏覽對(duì)應(yīng)留言的詳細(xì)信息，程序代碼如下： a href=?id