4.3 药品展示模块设计
药品展示模块主要是为方便用户更快捷的了解医药连锁店店内的药品详细信息进行设计的。用户可以通过站内主要功能导航进入不同的药品展示页面，浏览各种药品及药品的简要信息。当用户需要了解某药品的详细说明时，可单击【查看详细】按钮，进入到药品的查看详细信息页面，用户通过此页面对药品的主要成份、适应症、用法用量等功能做进一步的了解。
%
rs.Absolutepage=page '将记录指针定位到指定页
药品分类展示页面是专门为用户需要而设计的一个构思合理的模块。它对连锁店的全部药品信息进行分类展示。页面左侧用于展示药品的类别名称，单击相应的药品类别名称超链接，即可在右侧显示属于该类药品的所有药品信息，并且每页以2条药品信息进行显示。
药品展示页面的设计效果如图12所示。

图12 分类药品展示页面的设计效果
药品展示模块中，显示药品类别信息的程序代码如下：
药品展示页面主要包括药品分类展示（show.asp）和药品详细信息展示（look.asp）两部分。
set rs=conn.execute(select * from tb_MedicineType order by TypeId)
if page1 or page= then page=1
%
rs.open select * from tb_MedicineName where TypeId=request(TypeId),conn,3,3
a href=show.asp?TypeId=%=rs(TypeId)% %=rs(TypeName)%/a /td/tr
%rs.movenext
loop
rs.close%
药品分类展示页面功能的实现，主要是检索数据库，将药品类型字段为TypeId的数据以分页形式输出到浏览器中，每页显示2条数据。
分页显示药品信息的关键代码如下：
!--#include virtual=manage/include/conn.asp--
%
if request(TypeId) then
rs.open select * from tb_MedicineName where TypeId=request(TypeId),conn,3,3
if i Mod 2 = 0 then
response.write brbdiv align=center该类还没有药品/div/b
else
div align=center
page=clng(request.QueryString(page))
i=1 '为变量赋初始值
/div /td
end if
%
%
if request(TypeId) then
trtd align=left height=40 nbsp;nbsp;IMG src=images/blue_dian.gif
if rs.eof then
response.write td width=2 background=images/xs03.gif/td
else
rs.pagesize=2 '每页显示2条信息
page=clng(request.QueryString(page))
onClick=newwin('manage/goods/look.asp?Id=%=rs(Id)%') style=border:1px
if pagers.pagecount then page=rs.pagecount
1．药品分类展示页面
%
table border=0 cellpadding=4 cellspacing=4 width=592
tr
%
do while not rs.eof
for i=1 to rs.pagesize%
td width=576
table width=95% border=0 align=center cellpadding=1 cellspacing=0
tr
%end if%
rs.pagesize=2 '每页显示2条记录
%if len(rs(img))0 then%
img src=manage/goods/goodspic/%=rs(img)% width=50 height=50
onClick=newwin('manage/goods/look.asp?Id=%=rs(Id)%') style=cursor:hand
%else%
img src=images/nopic.gif width=50 height=50
table border=0 width={bfb}
response.write brbdiv align=center该类还没有药品/div/b
if pagers.pagecount then page=rs.pagecount
td width=98% style=word-break:break_allb[药品名称]/bnbsp;%=rs(yName)%/td
/tr
tr td style=word-break:break_allb[规 格]/bnbsp;%=rs(Mode1)%/td/tr
tr td style=word-break:break_allb[适应症]/bnbsp;%=repstr(rs(fortill))%/td/tr
下一页/a　a href=show.asp?TypeId=rs(TypeId)page=rs.pagecount
if page1 or page= then page=1
solid;border-color:000000;background-color:ffffff;/td/tr
/table/td
%if i mod 2 0 then
end if
if rs.eof then exit for '当记录执行到文件尾结束该循环
rs.movenext '继续执行下一条语句
if rs.eof then
response.write /trtr
rs.Absolutepage=page '将记录指针定位到指定页
td width=25% rowspan=4 valign=top
在浏览药品模块中还有一个很关键的程序块就是列表的翻页功能。当从各个入口进入到浏览药品程序列表页后，如何能够把这些参数保留住，在程序列表页中进行自身的传递以便翻页？这就需要ASP程序来完成，实现这个功能的完整代码如下：
/tr
/table
if pagers.pagecount then
onClick=newwin('manage/goods/look.asp?Id=%=rs(Id)%') style=cursor:hand
tr td align=rightinput type=button value=查看详细
td align=right
{zh1}一页/a
font color=redrs.pagesize/font个/页　　当前页：font color=red
/tr
/td
a href=show.asp?page=1首页/a　a href=show.asp?page=%=(page-1)%上一页/a
%end if
/table
response.write a href=show.asp?TypeId=rs(TypeId)page=(page 1)
next%
%response.write 该类共包含font color=redrs.recordcount/font个药品
end if%
if page1 then%
tr
page/font/rs.pagecount