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