📄 splbadmin.asp

📁 超市商品信息系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Dataconn.asp" -->
<!--#include file="Inc/Funcs.asp" -->
<script language="JavaScript">
function DelRecord(LBID)
{
var ifDel = window.confirm("真的要删除吗？单击取消停止！");
if (ifDel) {
window.location="SPLBAdmin.asp?Action=DeleteSPLB&LBID=" + LBID
}else  window.alert("删除操作被取消！");
}
</script>
<%
Call CheckAdmin
Dim LBName,LBSM,SQLStr
If Request.QueryString("Action")="DeleteSPLB" Then
	LBID=Request.QueryString("LBID")
	SQLStr="Select SPName from SP where SPLBID="&LBID
	rS.open SQLStr,conn,1,1
	If not rs.eof and not rs.bof Then 
		Call eMessage("该类别下还有商品，不能删除！")
	End If
	rS.close
	SQLStr="Delete from LB where LBID="&LBID
	conn.execute SQLStr
	Call Message("类别删除成功！")
End If
If Request.Form("Action")="AddLB" Then
	LBName=Request.Form("LBName")
	if LBName="" then
		Call eMessage("商品类别名称不能为空！")
	end if
	LBSM=Request.Form("LBSM")
	SQLStr="Insert Into LB(LBName,LBSM) Values('"&LBName&"','"&LBSM&"')"
	conn.execute SQLStr
	Call Message("类别添加成功！")
End If
If Request.Form("Action")="SaveLB" Then
	Dim LBID
	LBID=Request.Form("LBID")
	LBName=Request.Form("LBName")
	if LBName="" then
		Call eMessage("商品类别名称不能为空！")
	end if
	LBSM=Request.Form("LBSM")
	SQLStr="Update LB Set LBName='"&LBName&"',LBSM='"&LBSM&"' Where LBID="&LBID
	conn.execute SQLStr
	Call Message("类别修改成功！")
End if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="Inc/css.css" rel="stylesheet" type="text/css" />
<!--#include file="Inc/hlink.asp" -->
<title></title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE2 {
	font-size: 12px;
	font-weight: bold;
}
.STYLE3 {
	color: #000000;
	font-weight: bold;
}
.STYLE4 {color: #000000}
-->
</style></head>

<body>
<table width="612" height="450" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
	<table width="350" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
    <form name="form2" method="post" action="SPLBAdmin.asp">
	  <tr>
        <td height="20" align="center" bgcolor="#FFFFFF" class="Txt"><input name="Action" type="hidden" id="Action" value="ShowAddLB" />
          <input name="Submit3" type="submit" class="Button2" value="添加商品类别" /></td>
      </tr>
	</form>
	<%if Request.form("Action")="ShowAddLB" then%>
    <form name="form1" method="post" action="SPLBAdmin.asp">
	  <tr>
        <td height="25" align="center" background="Images/tbtitle.jpg" class="Txt STYLE3">添加商品类别</td>
      </tr>
	  <tr>
        <td height="20" bgcolor="#FFFFFF" class="Txt">　类别名称：
          <input name="LBName" type="text" class="InputStyle2" id="LBName" /></td>
      </tr>
	  <tr>
	    <td height="20" valign="top" bgcolor="#FFFFFF" class="Txt2">　类别说明：	      
	      <textarea name="LBSM" rows="5" class="InputStyle2" id="LBSM"></textarea></td>
	    </tr>
	  <tr>
	    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt"><input name="Action" type="hidden" id="Action" value="AddLB" />
	      <input name="Submit" type="submit" class="Button1" value=" 添 加 " />
	     &nbsp; <input name="Submit2" type="reset" class="Button1" value=" 重 填 " /></td>
	    </tr>
    </form>
	<%end if%>
	</table>
	<%if request.querystring("Action")="ShowEditLB" then
	LBID=request.querystring("LBID")
	SQLStr="Select * from LB where LBID="&LBID
	rS.Open SQLStr,conn,1,1
	%>
	<table width="350" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
    <form name="form1" method="post" action="SPLBAdmin.asp">
		  <tr>
        <td height="25" align="center" background="Images/tbtitle.jpg" class="Txt STYLE3">编辑商品类别</td>
      </tr>
	  <tr>
        <td height="20" bgcolor="#FFFFFF" class="Txt">　类别名称：
          <input name="LBName" type="text" class="InputStyle2" id="LBName" value="<%=trim(rS(1))%>" /></td>
      </tr>
	  <tr>
	    <td height="20" valign="top" bgcolor="#FFFFFF" class="Txt">　类别说明：	      
	      <textarea name="LBSM" rows="5" class="InputStyle2" id="LBSM" ><%=trim(rS(2))%></textarea></td>
	    </tr>
	  <tr>
	    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">
		<input name="LBID" type="hidden" id="LBID"  value="<%=rS(0)%>" />
		<input name="Action" type="hidden" id="Action" value="SaveLB" />
	      <input name="Submit" type="submit" class="Button1" value=" 保 存 " />
	     </td>
	  </tr>
    </form>
	</table>
	<p class="Txt">&nbsp;</p>
	<p class="Txt">&nbsp;</p>
	<p class="Txt">
	  <%
	rS.Close
	End If
	%>
	    <span class="STYLE2">已存在的商品类别：</span>
	  </p>
	<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
	  <tr>
		<td height="25" align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">编号</td>
		<td align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">类别名称</td>
		<td align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">类别说明</td>
		<td colspan="2" align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">操作</td>
		</tr>
		<%
		SQLStr="Select * from LB"
		rS.Open SQLStr,conn,1,1
		%>
		<%For i=1 to rS.RecordCount%>
	  <tr>
		<td height="20" align="center" bgcolor="#FFFFFF" class="Txt"><%=rS(0)%></td>
		<td align="center" bgcolor="#FFFFFF" class="Txt"><%=rS(1)%></td>
		<td align="center" bgcolor="#FFFFFF" class="Txt"><%=rS(2)%></td>
		<td align="center" bgcolor="#FFFFFF" class="Txt"><a href="SPLBAdmin.asp?Action=ShowEditLB&LBID=<%=rS(0)%>" title="编辑类别">编 辑</a></td>
		<td align="center" bgcolor="#FFFFFF" class="Txt"><a href="#" onClick="DelRecord(<%=rS(0)%>)" title="删除类别">删 除</a></td>
	  </tr>
	  <%
	  rS.MoveNext
	  Next
	  %>
	</table>
	</td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -