goodslist.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include file="../include/top.asp"--> 
            <table width="100%"> 
              <tr> 
                <td height="34" colspan="2" valign="middle" bgcolor="#efefef"><div align="left"><span class="style8"><img src="../images/borrow.gif"><span class="style9"> 药品列表</span></span></div></td> 
              </tr> 
              <tr> 
                <td height="184" colspan="4" valign="top"> <p> 
                    <script language="javascript">
    function newwin(url){
	  window.open(url,"","width=400,height=400,left=0,top=0,resizable=yes,scrollbars=yes");
	}
  </script> 
                    <%
			   If Session("flag")<>1 Then
                   Response.Write "<script language=javascript>window.history.back();</script>"
                   Response.End()
               End If
			   Set conn=Server.CreateObject("ADODB.Connection")
               conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa;database=DB_lsmanage"
               conn.open
			   set rs3=conn.execute("select count(Id) from tb_MedicineName")
			   if rs3(0)=0 or isnull(rs3(0)) then
			       response.write "<center>暂时没有药品</center><br><br><br><br>"
			   else
			       set rs1=server.CreateObject("adodb.recordset")
				   strsql="select * from tb_MedicineName order by TypeId"
				   rs1.open strsql,conn,3,3
rs1.pagesize = 5 
page=Clng(request.QueryString("page"))
if page = "" or page <= 0 then page=1
if page > rs1.pagecount then page = pagecount
rs1.Absolutepage = page
			   end if
			  %> 
                  </p> 
                  <br> 
                  <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#0099CC"> 
                    <tr> 
                      <td width="9%" bgcolor="#f5f5f5" align="center">类别</td> 
                      <td width="19%" bgcolor="#f5f5f5" align="center">药品名称</td> 
                      <td width="5%" bgcolor="#f5f5f5" align="center">单位</td> 
                      <td width="12%" bgcolor="#f5f5f5" align="center">规格</td> 
                      <td width="9%" bgcolor="#f5f5f5" align="center">单价</td> 
                      <td width="15%" bgcolor="#f5f5f5" align="center">上传时间</td> 
                      <td width="5%" bgcolor="#f5f5f5" align="center">推荐</td> 
                      <td width="13%" bgcolor="#f5f5f5" align="center">操作</td> 
                      <td width="9%" bgcolor="#f5f5f5" align="center">图片信息</td> 
                    </tr> 
                    <%
for i=1 to rs1.pagesize
if rs1.eof then exit for
%> 
                    <tr bgcolor="#FFFFFF"> 
                      <td> <div align="center"> 
                          <%
					     set rs2=conn.execute("select TypeName from tb_MedicineType where TypeId="&rs1("TypeId"))
                         response.write rs2("TypeName")
					     %> 
                        </div></td> 
                      <td align="center"><a href="#" onClick="return newwin('look.asp?Id=<%=rs1("Id")%>');"><%=rs1("yName")%></a></td> 
                      <td align="center"><%=rs1("Mode")%></td> 
                      <td align="center"><%=rs1("Mode1")%></td> 
                      <td width="9%" align="center"><%=rs1("Price")%>元</td> 
                      <td width="15%" align="center"><%=year(rs1("intime"))&"-"&month(rs1("intime"))&"-"&day(rs1("intime"))%></td> 
                      <td width="9%" align="center"> <%if rs1("Grade")=0 then%> 
                        <a href="/manage/goods/grade.asp?id=<%=rs1("id")%>&action=yes">推荐</a> 
                        <%else%> 
                        <a href="/manage/goods/grade.asp?id=<%=rs1("id")%>&action=no">取消推荐</a> 
                        <%end if%> </td> 
                      <td width="13%" align="center"><input type="button" value="修改" onClick="return newwin('/manage/goods/savemodname.asp?action=mod&Id=<%=rs1("Id")%>');" style="border:1px solid;border-color:#4c99d4;background-color:#f2ebc3"> 
&nbsp; 
                        <input type="button" value="删除" onClick="return newwin('/manage/goods/savemodname.asp?action=del&Id=<%=rs1("Id")%>');" style="border:1px solid;border-color:#4c99d4;background-color:#f2ebc3"> </td> 
                      <td width="9%" align="center"> <%
					  if isNUll(rs1("img")) or len(rs1("img"))=0 then
                        %> 
                        <a href="#" onclick=newwin("/manage/goods/file_upload.asp?Id=<%=rs1("Id")%>")>上传</a> 
                        <%
                            else
                        %> 
                        <a href="#" onclick=newwin("/manage/goods/goodspic/<%=rs1("img")%>")>查看</a>&nbsp;<a href="#" onclick=newwin("/manage/goods/file_upload.asp?Id=<%=rs1("Id")%>")>修改</a> 
                        <%					  
                           end if
					  %> </td> 
                    </tr> 
                    <%
			   rs1.movenext
			   next
			    %> 
                  </table> 
                  <table border="0" width="90%" align="center">
                    <tr>
                      <td align="right"><%
response.write "共<font color=red>"&rs1.recordcount&"</font>个药品&nbsp;当前:<font color=red>"&page&"</font>/"&rs1.pagecount&" "
if page>1 then
  response.write "<a href=goodslist.asp?page=1>首页</a> "
  response.write "<a href=goodslist.asp?page="&(page-1)&">上一页</a> "
else
  response.write " 首页 "
end if
if page<rs1.pagecount then
  response.write "<a href=goodslist.asp?page="&(page+1)&">下一页</a> "
  response.write "<a href=goodslist.asp?page="&rs1.pagecount&">最后一页</a>"
end if
%></td>
                    </tr>
                  </table></td>
              </tr> 
            </table> 
            <!--#include file="../include/bottom.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">