书签 分享 收藏 举报 版权申诉 / 44

类型医药连锁店管理系统.docx

  • 文档编号:9232069
  • 上传时间:2023-05-17
  • 格式:DOCX
  • 页数:44
  • 大小:587.18KB
"

else

rs.pagesize=2'每页显示2条记录

page=clng(request.QueryString("page"))

ifpage<1orpage=""thenpage=1

ifpage>rs.pagecountthenpage=rs.pagecount

rs.Absolutepage=page'将记录指针定位到指定页

%>

<%

ifrequest("TypeId")<>""then

rs.open"select*fromtb_MedicineNamewhereTypeId="&request("TypeId"),conn,3,3

ifrs.eofthen

response.write"
该类还没有药品

"

else

rs.pagesize=2'每页显示2条信息

page=clng(request.QueryString("page"))

ifpage<1orpage=""thenpage=1

ifpage>rs.pagecountthenpage=rs.pagecount

rs.Absolutepage=page'将记录指针定位到指定页

%>

<%

i=1'为变量赋初始值

fori=1tors.pagesize%>

<%iflen(rs("img"))>0then%>

"width="50"height="50"

onClick="newwin('manage/goods/look.asp?

Id=<%=rs("Id")%>')"style="cursor:

hand">

<%else%>

onClick="newwin('manage/goods/look.asp?

Id=<%=rs("Id")%>')"style="cursor:

hand">

<%endif%>

break_all">[药品名称] <%=rs("yName")%>

break_all">[规格] <%=rs("Mode1")%>

break_all">[适应症] <%=repstr(rs("fortill"))%>

onClick="newwin('manage/goods/look.asp?

Id=<%=rs("Id")%>')"style="border:

1px

solid;border-color:

000000;background-color:

ffffff;">

<%ifimod2<>0then

response.write""

endif

rs.movenext'继续执行下一条语句

ifiMod2=0then

response.write""

endif

ifrs.eofthenexitfor'当记录执行到文件尾结束该循环

next%>

在浏览药品模块中还有一个很关键的程序块就是列表的翻页功能。

当从各个入口进入到浏览药品程序列表页后,如何能够把这些参数保留住,在程序列表页中进行自身的传递以便翻页?

这就需要ASP程序来完成,实现这个功能的完整代码如下:

<%response.write"该类共包含"&rs.recordcount&"个药品

"&rs.pagesize&"个/页  当前页:

"&page&"/"&rs.pagecount

ifpage>1then%>

page=1>首页 

page=<%=(page-1)%>>上一页

<%endif

ifpage

response.write"

TypeId="&rs("TypeId")&"&page="&(page+1)&">

下一页 

TypeId="&rs("TypeId")&"&page="&rs.pagecount&">

最后一页"

endif%>

上述代码中使用的函数newwin()的完整代码如下:

functionnewwin(url){

window.open(url,"查看详细","width=400,height=310,left=0,top=0,resizable=yes,scrollbars=yes");}

添加对应药品的详细信息【查看详细】按钮的程序代码如下:

Id=<%=rs("Id")%>')"style="border:

1pxsolid;border-color:

000000;background-color:

ffffff;">

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
医药 连锁店 管理 系统
提示  冰点文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:医药连锁店管理系统.docx
链接地址:https://www.bingdoc.com/p-9232069.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2


收起
展开