left.asp

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

<!--#INCLUDE VIRTUAL="/MANAGE/INCLUDE/CONN.ASP"-->
<style type="text/css">
<!--
.style6 {color: #003399; font-weight: bold; }
.style12 {color: #FFFFFF}
.style13 {color: #FFFFFF; font-weight: bold; }
-->
</style>
<table border="0" cellpadding="-2" cellspacing="-2" width="100%">
  <tr>
    <td width="38%" height="28" align="center" valign="middle" background="images/title_blue.gif"><span class="style13">用户登录</span></td>
    <td width="11%" align="center" valign="middle" background="images/title_blue_1.gif">&nbsp;</td>
    <td width="44%" align="center" valign="middle" background="images/title_blue_2.gif">&nbsp;</td>
    <td width="7%" align="center" valign="middle" background="images/title_blue_2.gif"><img src="images/renchai.gif" width="27" height="26"></td>
  </tr>
  <tr>
    <td height="60" colspan="4" align="center" valign="middle" style="padding-top:4px">
      <%If Session("Passed")=false or isEmpty(Session("Passed")) Then%>
      <form action="/manage/login/checklogin.asp" method="post" name="form1" onSubmit="return chkfields();">
        <table border="0" cellpadding="4" cellspacing="1" width="80%">
          <tr>
            <td>用户ID:</td>
            <td><input type="text" name="userid" size="15" style="border:1px solid;border-color:#000000; width:100px"></td>
          </tr>
          <tr>
            <td>密&nbsp;&nbsp;码:</td>
            <td><input type="password" name="userpwd" size="15" style="border:1px solid;border-color:#000000; width:100px"></td>
          </tr>
          <tr>
            <td colspan="2"><div align="center">
                <input name="submit" type="submit" value="登 录" style="border:1px solid;border-color:000000;background-color:#A7DF97">
&nbsp;
                <input name="reset" type="reset" value="重 置" style="border:1px solid;border-color:000000;background-color:#A7DF97">
            </div></td>
          </tr>
        </table>
      </form>
      <%Else%>
      <table border="0" cellpadding="2" cellspacing="2" width="88%">
        <tr>
          <td height="38"><strong><%=Session("username")%></strong></td>
          <td>您好</td>
        </tr>
        <tr>
          <td height="35" colspan="2" align="center"><a href="/manage/default.htm">进入管理页面</a></td>
        </tr>
      </table>
      <%End If%>
    </td>
  </tr>
  <tr>
    <td width="38%" height="28" align="center" valign="middle" background="images/title_blue.gif"><span class="style6"> <span class="style12">药品搜索</span></span> </td>
    <td width="11%" align="center" background="images/title_blue_1.gif">&nbsp; </td>
    <td align="center" background="images/title_blue_2.gif">&nbsp;</td>
    <td align="center" valign="bottom" background="images/title_blue_2.gif"><img src="images/xx.gif"></td>
  </tr>
  <form action="index.asp" method="post" name="form2" onSubmit="return chkwords();">
  <tr>
    <td height="45" colspan="4" valign="middle" style="padding-top:4px">

	       <div align="center">
		     <input type="text" name="keywords" size="15" style="border:1px solid;border-color:000000">
		     <input type="image" style="cursor:hand" src="images/search1.gif" width="55">
        </div></td>
  </tr>
</form>
    <tr>
    <td width="38%" height="28" align="center" valign="middle" background="images/title_blue.gif"><span class="style13">热销排行</span> </td>
    <td width="11%" align="center" valign="middle" background="images/title_blue_1.gif">&nbsp; </td>
    <td align="center" valign="middle" background="images/title_blue_2.gif"><div align="right"></div></td>
    <td align="center" valign="middle" background="images/title_blue_2.gif"><img src="images/top10.gif"></td>
  </tr>
  <tr>
    <td height="60" colspan="4" align="center" valign="middle" style="padding-top:4px">
        <table border="0" cellpadding="0" cellspacing="2" width="100%">
		  <%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 not rs.eof then
		      rs.movefirst
			  i=1
			  do while not rs.eof
		  %>
          <tr>
            <td>&nbsp;              <%=i%>、&nbsp;<%=rs("yName")%></td>
          </tr>
		  <tr>
		    <td height="10"></td>
		  </tr>
		  <%
		  rs.movenext
		  i=i+1
		  loop
		  else
		  %>
		  <tr>
            <td><div align="center">还没有药品出售</div></td>
          </tr>
		  <%
		  end if
		  rs.close
		  %>
        </table>
    </td>
  </tr>
</table>