sort.asp

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

<!--#include file="top1.asp"-->
<!--#include virtual="manage/include/conn.asp"-->
<%
Response.CharSet="GB2312" 
Response.ContentType="text/html" 
function repstr(str)
  if not isNull(str) or len(str)>0 then
   repstr=replace(str,"<br>","<br>")
   repstr=replace(repstr,"&nbsp;"," ")
  else
   repstr=str1
  end if
end function
%>
  <script language="javascript">
    function newwin(url){
	  window.open(url,"查看详细","width=400,height=310,left=0,top=0,resizable=yes,scrollbars=yes");
	}
  </script>
<div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="799" bgcolor="#A4B077">
	    <tr>
		    <td height="20" valign="bottom" bgcolor="#FFFFFF"><img src="images/blue_dian.gif" width="5" height="8"> 当前位置：<a href="index.asp">首页</a> <img src="images/iconarrow3.gif"> 热销排行</td>
		</tr>
		<tr>
		   <td height="245" align="center" valign="top" bgcolor="#FFFFFF">
		     <table width="100%" border="0" cellpadding="0" cellspacing="0">
             <tr>
               <td width="151" valign="bottom" background="images/title_blue.gif">　　　　<span style="color: #FFFBF0; font-weight: bold;">热销排行</span></td>
               <td width="18" valign="top" background="images/title_blue_1.gif">&nbsp;</td>
               <td width="627" height="26" background="images/title_blue_2.gif">&nbsp;</td>
             </tr>
             <tr>
               <td valign="top" colspan="3">
                 <%
				     set rs=conn.execute("select top 10 TypeName,sum(TotalPrice) as TotalPrice,yName from tb_Sell where itType=2 and yName in (select yName from tb_MedicineName) group by TypeName,yName order by TotalPrice desc")
					 if rs.eof then
					    response.write "<br><b><div align=center>暂时还没有销售药品<br>感谢您对本公司的关注！</div></b>"
					 else
					  %>
                 <br>
                 <table width="90%" border="0" align="center" cellpadding="4" cellspacing="4">
		<%
		i=1
		do while not rs.eof
		    set rs1=conn.execute("select * from tb_MedicineName where yName='"&rs("yName")&"'")
		%>
		<tr>
                     <td>
                       <table width="100%"  border="0" align="left" cellpadding="1" cellspacing="0">
                         <tr>
                           <td width="14%" rowspan="4" valign="middle">
                           <div align="center"><IMG src="images/jiantou1.gif"> 第<%=i%>名</div></td>
                           <td width="13%" rowspan="4" valign="top"><%if len(rs1("img"))>0 then%>
                             <img src="manage/goods/goodspic/<%=rs1("img")%>" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs1("Id")%>')"  style="cursor:hand">
                             <%else%>
                             <img src="images/nopic.gif" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs1("Id")%>')" style="cursor:hand">
                           <%end if%></td>
                           <td width="73%" style="word-break:break_all"><b>[药品名称]</b>&nbsp;<%=rs("yName")%></td>
                         </tr>
                         <tr>
                           <td style="word-break:break_all"><b>[规 格]</b>&nbsp;<%=rs1("Mode1")%></td>
                         </tr>
                         <tr>
                           <td style="word-break:break_all"><b>[适应症]</b>&nbsp;<%=repstr(rs1("fortill"))%></td>
                         </tr>
                         <tr>
                           <td align="right"><input name="button" type="button" style="border:1px solid;border-color:000000;background-color:ffffff;padding-top:1px;padding-bottom:1px" onClick="newwin('manage/goods/look.asp?Id=<%=rs1("Id")%>')" value="查看详细"></td>
                         </tr>
                     </table>
			  </td>
		</tr>
		<%if not rs.eof then%>
		<tr>
		    <td><hr size="1" width="100%" style="border-color:000000;border-style:dashed"></td>
		</tr>
		<%end if%>
        <%
		rs.movenext
		i=i+1
        loop
		
		rs1.close
		set rs1=nothing
		rs.close
		set rs=nothing
		%>
                 </table>
			   <%end if%>
		       </td>
		     </tr>
			</table>
       </td>
	</tr>
</table>
</div>
<!--#include file="bottom.asp"-->