⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 spadmin.asp

📁 超市商品信息系统
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Dataconn.asp" -->
<!--#include file="Inc/Funcs.asp" -->
<script language="JavaScript">
function DelRecord(SPID)
{
var ifDel = window.confirm("真的要删除吗？单击取消停止！");
if (ifDel) {
window.location="SPAdmin.asp?Action=DeleteSP&SPID=" + SPID
}else  window.alert("删除操作被取消！");
}
</script>
<%
Call CheckAdmin
'删除商品处理代码
If Request.QueryString("Action")="DeleteSP" Then
	SPID=Request.QueryString("SPID")
	SQLStr="Delete from SP where SPID="&SPID
	conn.execute SQLStr
	Call Message("商品删除成功！")
End If
'添加商品处理代码
if request.Form("Action")="addSP" then
	SPName=request.Form("SPName")
	if SPName="" then
		Call eMessage("商品不能为空！") 
	end if
	SPLBID=request.Form("SPLBID")
	SPTXM=request.Form("SPTXM")
	if SPTXM="" then
		Call eMessage("商品条形码不能为空！") 
	end if
	SPGYSID=request.Form("SPGYSID")
	SPZZSID=request.Form("SPZZSID")
	SPSM=request.Form("SPSM")
	SPImageID=request.Form("SPImageID")
	SQLStr="Insert Into SP(SPName,SPLBID,SPTXM,SPGYSID,SPZZSID,SPSM,SPImageID,SPTJR) Values('"& SPName &"'," & SPLBID &",'"&SPTXM&"',"&SPGYSID&","&SPZZSID&",'"&SPSM&"',"&SPImageID&",'"&session("User")&"')"
	conn.execute SQLStr
	Call Message("商品添加成功！") 
end if
'商品修改处理代码
if request.Form("Action")="SaveSP" then
	SPID=request.Form("SPID")
	SPName=request.Form("SPName")
	if SPName="" then
		Call eMessage("商品不能为空！") 
	end if
	SPLBID=request.Form("SPLBID")
	SPTXM=request.Form("SPTXM")
	if SPTXM="" then
		Call eMessage("商品条形码不能为空！") 
	end if
	SPGYSID=request.Form("SPGYSID")
	SPZZSID=request.Form("SPZZSID")
	SPSM=request.Form("SPSM")
	SPImageID=request.Form("SPImageID")
	SQLStr="Update SP set SPName='"& SPName &"',SPLBID=" & SPLBID &",SPTXM='"&SPTXM&"',SPGYSID="&SPGYSID&",SPZZSID="&SPZZSID&",SPSM='"&SPSM&"',SPImageID="&SPImageID&" where SPID="& SPID
	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" />
<title>商品管理</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="Inc/css.css" rel="stylesheet" type="text/css" />
<!--#include file="Inc/hlink.asp" -->
<style type="text/css">
<!--
.STYLE4 {font-size: 13px; color: #000033; }
.STYLE5 {color: #000033}
-->
</style>
</head>

<body>
<table width="612" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form name="form1" method="post" action="SPAdmin.asp">
  <tr>
    <td height="20" colspan="2" bgcolor="#FFFFFF">
	<input name="Action" type="hidden" id="Action" value="ShowAddSP" />
	<input name="Submit3" type="submit" class="Button2" value="添加商品" /></td>
  </tr>
</form>
<%if Request.form("Action")="ShowAddSP" then%>
<form name="form2" method="post" action="SPAdmin.asp">
  <tr>
    <td height="25" colspan="2" align="center" background="Images/tbtitle.jpg"><span class="STYLE4">添加商品</span></td>
  </tr>
  <tr>
    <td width="100" height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品名称</td>
    <td width="530" bgcolor="#FFFFFF"><input name="SPName" type="text" class="InputStyle" id="SPName" /></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品类别</td>
    <td bgcolor="#FFFFFF">
	<%  '初始化类别列表框
	SQLStr="select LBID,LBName from LB"
	rS.open SQLStr,conn,1,1
	%>
	<select name="SPLBID" id="SPLBID">
	<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>"><%=rS(1)%></option>
	<%rS.movenext
	next
	rS.close %>
    </select>    </td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品条形码</td>
    <td bgcolor="#FFFFFF"><input name="SPTXM" type="text" class="InputStyle" id="SPTXM" maxlength="13" /></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品供应商</td>
    <td bgcolor="#FFFFFF">
	<%  '初始化供应商列表框
	SQLStr="select GYSID,GYSName from GYS"
	rS.open SQLStr,conn,1,1
	%>
	<select name="SPGYSID" id="SPGYSID">
	<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>"><%=rS(1)%></option>
		<%rS.movenext
		next
		rS.close %>
	    </select>
	  </td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品制造商</td>
    <td bgcolor="#FFFFFF">
<%
	SQLStr="select ZZSID,ZZSName from ZZS"
	rS.open SQLStr,conn,1,1
	%>
		<select name="SPZZSID" id="SPZZSID">
		<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>"><%=rS(1)%></option>
		<%rS.movenext
		next
		rS.close %>	
		</select>
	</td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品说明</td>
    <td bgcolor="#FFFFFF"><textarea name="SPSM" rows="5" class="InputStyle2" id="SPSM">无</textarea></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品图片</td>
    <td bgcolor="#FFFFFF">
<%
	SQLStr="select SPImageID,image_name from Images"
	rS.open SQLStr,conn,1,1
	%>
	<select name="SPImageID" id="SPImageID">
		<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>"><%=rS(1)%></option>
		<%rS.movenext
		next
		rS.close %>	
	</select>    </td>
  </tr>
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#FFFFFF">
	<input name="Action" type="hidden" id="Action" value="addSP" />
      <input name="Submit" type="submit" class="Button1" value="添加" />
      <input name="Submit2" type="reset" class="Button1" value="重填" /></td>
  </tr>
  </form>
  <%end if%>
</table>
  <%if request.querystring("Action")="ShowEditSP" then   '决定是否显示下面的编辑商品列表
  SPID=request.querystring("SPID")
  SQLStr="Select * from SP where SPID="&SPID
  Set RSS=server.createobject("Adodb.recordset")
  RSS.open SQLStr,conn,1,1
  %>
<table width="612" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form name="form2" method="post" action="SPAdmin.asp">
  <tr>
    <td height="25" colspan="2" align="center" background="Images/tbtitle.jpg"><span class="STYLE4">编辑商品
      <%
	SQLStr="select LBID,LBName from LB"
	rS.open SQLStr,conn,1,1
	%>
    </span></td>
  </tr>
  <tr>
    <td width="100" height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品名称</td>
    <td width="530" bgcolor="#FFFFFF"><input name="SPName" type="text" class="InputStyle" id="SPName" value="<%=trim(RSS(1))%>" /></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品类别</td>
    <td bgcolor="#FFFFFF"><select name="SPLBID" id="SPLBID">
	<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>"  <%if RSS(2)=rS(0) then%>selected="selected"<%end if%>><%=rS(1)%></option>
	<%rS.movenext
	next
	rS.close %>
    </select>    </td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品条形码</td>
    <td bgcolor="#FFFFFF"><input name="SPTXM" type="text" class="InputStyle" id="SPTXM" value="<%=trim(RSS(3))%>" /></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品供应商</td>
    <td bgcolor="#FFFFFF">
	<%
	SQLStr="select GYSID,GYSName from GYS"
	rS.open SQLStr,conn,1,1
	%>
	<select name="SPGYSID" id="SPGYSID">
	<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>" <%if RSS(4)=rS(0) then%>selected="selected"<%end if%> ><%=rS(1)%></option>
		<%rS.movenext
		next
		rS.close %>
	    </select>		</td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品制造商</td>
    <td bgcolor="#FFFFFF">
<%
	SQLStr="select ZZSID,ZZSName from ZZS"
	rS.open SQLStr,conn,1,1
	%>
		<select name="SPZZSID" id="SPZZSID">
		<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>" <%if RSS(5)=rS(0) then%>selected="selected"<%end if%>><%=rS(1)%></option>
		<%rS.movenext
		next
		rS.close %>	
		</select>	</td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品说明</td>
    <td bgcolor="#FFFFFF"><textarea name="SPSM" rows="5" class="InputStyle2" id="SPSM"><%=trim(RSS(6))%></textarea></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FFFFFF" class="Txt">商品图片</td>
    <td bgcolor="#FFFFFF">
<%
	SQLStr="select SPImageID,image_name from Images"
	rS.open SQLStr,conn,1,1
	%>
	<select name="SPImageID" id="SPImageID">
		<%for i=1 to rS.recordcount%>
      <option value="<%=rS(0)%>" <%if RSS(7)=rS(0) then%>selected="selected"<%end if%>><%=rS(1)%></option>
		<%rS.movenext
		next
		rS.close %>	
	</select>    </td>
  </tr>
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#FFFFFF">
	  <input name="SPID" type="hidden" id="SPID" value="<%=RSS(0)%>" />
	  <input name="Action" type="hidden" id="Action" value="SaveSP" />
      <input name="Submit" type="submit" class="Button1" value="保存修改" /></td>
  </tr>
  </form>
</table>
  <%end if%>
<table width="612" height="450" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td valign="top" bgcolor="#FFFFFF">
	<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
      <tr>
        <td height="25" align="center" background="Images/tbtitle.jpg" class="Txt"><span class="STYLE5"><a href="SPAdmin.asp?ActionSort=SortByID">商品编号</a></span></td>
        <td align="center" background="Images/tbtitle.jpg" class="Txt"><span class="STYLE5"><a href="SPAdmin.asp?ActionSort=SortByName">商品名称</a></span></td>
        <td align="center" background="Images/tbtitle.jpg" class="Txt"><span class="STYLE5"><a href="SPAdmin.asp?ActionSort=SortByLB">商品类别</a></span></td>
        <td colspan="2" align="center" background="Images/tbtitle.jpg" class="Txt"><span class="STYLE5">操作</span></td>
        </tr>
<%   '实现排序功能
if request.QueryString("ActionSort")="SortByLB" then  '按类别排序
	if session("SortByLB")=False then
		session("SortByLB")=true
	else
		session("SortByLB")=False
	end if
	if session("SortByLB")=true then
		SQlStr="Select SPID,SPName,SPLBID from SP order by SPLBID asc"
	else
		SQlStr="Select SPID,SPName,SPLBID from SP order by SPLBID Desc"
	end if
end if
if request.QueryString("ActionSort")="SortByName" then  '按名称排序
	if session("SortByName")=False then
		session("SortByName")=true
	else
		session("SortByName")=False
	end if
	if session("SortByName")=true then
		SQlStr="Select SPID,SPName,SPLBID from SP order by SPName asc"
	else
		SQlStr="Select SPID,SPName,SPLBID from SP order by SPName desc"
	end if
end if
if request.QueryString("ActionSort")="SortByID" then
	if session("SortByID")=False then
		session("SortByID")=true
	else
		session("SortByID")=False
	end if
	if session("SortByID")=true then
		SQlStr="Select SPID,SPName,SPLBID from SP order by SPID asc"
	else
		SQlStr="Select SPID,SPName,SPLBID from SP order by SPID desc"
	end if
end if
if request.QueryString("ActionSort")="" then
	SQlStr="Select SPID,SPName,SPLBID from SP"
end if
rS.open SQLStr,conn,1,1
for i=1 to rS.recordcount
%>
      <tr>
        <td height="20" align="center" bgcolor="#FFFFFF" class="Txt"><a href="ViewSP.asp?SPID=<%=rS(0)%>"><%=rS(0)%></a></td>
        <td align="center" bgcolor="#FFFFFF" class="Txt"><a href="ViewSP.asp?SPID=<%=rS(0)%>"><%=rS(1)%></a></td>
        <td align="center" bgcolor="#FFFFFF" class="Txt"><%=GetLBNameByLBID(rS(2))%></td>
        <td align="center" bgcolor="#FFFFFF" class="Txt"><a title="编辑商品信息" href="SPAdmin.asp?Action=ShowEditSP&SPID=<%=rS(0)%>">编 辑</a></td>
        <td align="center" bgcolor="#FFFFFF" class="Txt"><a href="#" onClick="DelRecord(<%=rS(0)%>)">删 除</a></td>
        </tr>
		<%rS.movenext
		next%>
    </table>
	</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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