goodsclass.asp

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

<!--#include file="../include/top.asp"-->
        <tr bgcolor="#dddddd">
            <td height="1" colspan="4"></td>
        </tr>
        <tr>
            <td height="34" colspan="2" valign="middle" bgcolor="#efefef">
                <span class="style8"><img src="../images/borrow.gif"><span class="style9"> 商品类别管理</span></span></td>
            <td height="19">&nbsp;</td>
            <td height="19">&nbsp;</td>
        </tr>
        <tr>
            <td height="184" colspan="4">
              <p>
　<script language="javascript">
    function newwin(url){
	  window.open(url,"","width=200,height=25,left=500,top=400");
	}
	function chkfields(){
	  if (document.form1.TypeName.value==''){
	    alert("请填写类别名称！");
		return false;
	  }
	  return true;
	}
  </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(TypeId) from tb_MedicineType")
			  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 TypeId,TypeName from tb_MedicineType"
				  rs1.open strsql,conn,3,3
			  %>
             </p>
             <p>&nbsp; </p>
             <table width="501" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#0099CC">
              <%do while not rs1.eof%>
                  <tr>
                      <td width="68" bgcolor="#FFFFFF"><div align="center"><strong>类别名称:</strong></div></td>
                      <td width="109" bgcolor="#FFFFFF"><%=rs1("TypeName")%></td>
                      <td width="109" bgcolor="#FFFFFF">
				        <div align="center">
                          <input name="button" type="button" style="border:1px solid;border-color:#4C99D4;background-color:#f2EBC3" onClick="return newwin('modclass.asp?action=mod&Id=<%=rs1("TypeId")%>');" value="修改">				          
                          <input type="button" value="删除" onClick="return newwin('modclass.asp?action=del&Id=<%=rs1("TypeId")%>');" style="border:1px solid;border-color:#4C99D4;background-color:#F2EBC3">
                        </div></td></tr>
              <%
				rs1.movenext
				loop
			   %>
              </table>
              <%end if%>
            <br>
            <br>
            <br>            
              <table border="0" width="100%">
                  <tr>
                      <td>
                      <form action="/manage/goods/addclass.asp" method="post" name="form1"  onsubmit="return chkfields();">
                          <div align="center"><span class="style5">添加类别：</span>
                              <input type="text" name="TypeName" size="25">
                              &nbsp;
                              <input type="submit" name="b1" value="添加" style="border:1px solid;border-color:#4c99d4;background-color:#f2ebc3">
                          </div>
                       </form>
				    </td>
                  </tr>
              </table>
		  </td>
      </tr>
  </table>