📄 admin_shop.asp

📁 后台登陆admin.asp
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="mdb.asp"-->
<%Admin="shop"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>管理中心——商品管理</TITLE>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%

'****************************************************
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
if request.form("MM_insert") then
if request.form("action")="newscat" then
dim scatname,sid
sid=clng(request.form("id"))
scatname=trim(replace(request.form("scat_name"),"'",""))
if scatname="" then
  Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
  response.end
end if
  conn.Execute ("Insert Into scat(scat_name,sid) Values('"&scatname&"',"&sid&")")
  response.redirect "admin_shop.asp?action=scat"
'================www.ynsky.com.cn===============
elseif request.form("action")="editscat" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的商品分类id参数。');history.back(1);</script>")
    response.End
  end if
end if
scatname=trim(replace(request.form("scat_name"),"'",""))
if scatname="" then
  Response.Write("<script language=javascript>alert('你必须填写商品分类名称！');history.back(1);</script>")
  response.End
end if
  conn.Execute ("Update scat Set scat_name='"&scatname&"',sid="&clng(request.form("lid"))&" where scat_id="&cint(request.form("id"))&"")
  response.redirect "admin_shop.asp?action=scat"
'================www.ynsky.com.cn===============
elseif request.form("action")="delscat" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的商品分类id参数。');history.back(1);</script>")
    response.End
  end if
end if
if request.Form("sid")="0" then
sql="select scat_id from scat where sid="&clng(request.form("id"))
set rsd=conn.execute(sql)
do while not rsd.eof
   Conn.Execute "DELETE * FROM shop WHERE scat_id="&rsd(0)
rsd.movenext
loop
rsd.close
set rsd=nothing
   Conn.Execute "DELETE * FROM scat WHERE sid="&clng(request.form("id"))
   Conn.Execute "DELETE * FROM scat WHERE scat_id="&clng(request.form("id"))
else
   Conn.Execute "DELETE * FROM scat WHERE scat_id="&clng(request.form("id"))
   Conn.Execute "DELETE * FROM shop WHERE scat_id="&clng(request.form("id"))
end if
   response.redirect "admin_shop.asp?action=scat"
'================www.ynsky.com.cn===============
elseif request.form("action")="news" then
dim scatid,sname,spic,sdesc,sisbest,s_user,stock,ss_desc,price_1,price_2,price_3,price_4,s_count
dim commend,tjuser,d_unit,sistj,sishot,ziduan,n_ziduan,hg,price_5,tupic
scatid=request.form("scatid")
sname=trim(replace(request.form("name"),"'",""))
spic=trim(replace(request.form("pic"),"'",""))
sdesc=trim(replace(request.form("desc"),"'",""))
sisbest=request.form("isbest")
sistj=request.form("istj")
sishot=request.form("ishot")
s_user=trim(replace(request.form("s_user"),"'",""))
stock=trim(replace(request.form("stock"),"'",""))
ss_desc=trim(replace(request.form("desc1"),"'",""))
price_1=trim(replace(request.form("price_1"),"'",""))
price_2=trim(replace(request.form("price_2"),"'",""))
price_3=trim(replace(request.form("price_3"),"'",""))
price_4=cint(request.form("price_4"))
price_5=cint(request.form("price_5"))
s_count=request.form("s_count")
commend=trim(replace(request.form("commend"),"'",""))
tjuser=trim(replace(request.form("tjuser"),"'",""))
d_unit=trim(replace(request.form("d_unit"),"'",""))
hg=cint(request.form("hg"))
tupic=trim(replace(request.form("tupic"),"'",""))
if sname="" then
  Response.Write("<script language=javascript>alert('你必须填写商品名称！');history.back(1);</script>")
  response.end
end if
if not isInteger(scatid) then
  Response.Write("<script language=javascript>alert('你必须选择商品所属分类！');history.back(1);</script>")
  response.end
end if
if spic="" then
  Response.Write("<script language=javascript>alert('你必须填写商品的缩图图片地址！');history.back(1);</script>")
  response.end
end if
if sdesc="" then
  Response.Write("<script language=javascript>alert('你必须填写商品的详细介绍！');history.back(1);</script>")
  response.end
end if
if not (isnumeric(price_1)=true and isnumeric(price_2)=true and isnumeric(price_3)=true) then
  Response.Write("<script language=javascript>alert('你必须填写商品的价格！');history.back(1);</script>")
  response.end
end if
  sql="select * from shop"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,3
  rs.addnew
  rs("s_name")=sname
  rs("scat_id")=scatid
  rs("s_pic")=spic
  rs("s_desc")=sdesc
  rs("price_1")=price_1
  rs("price_2")=price_2
  rs("price_3")=price_3
  rs("isbest")=clng(sisbest)
  rs("istj")=clng(sistj)
  rs("ishot")=clng(sishot)
  rs("s_user")=s_user
  rs("stock")=stock
  rs("ss_desc")=ss_desc
  if price_4>0 then
    rs("price_4")=price_4
  else
    rs("price_4")=0
  end if
  if hg=1 and price_5>0 then
     rs("hg")=1
     rs("price_5")=price_5
  else
     rs("hg")=0
     rs("price_5")=0
  end if
  rs("s_count")=clng(s_count)
  rs("commend")=commend
  rs("tjuser")=tjuser
  rs("d_unit")=d_unit
  rs("tupic")=tupic
  rs.update
  rs.close
  set rs=nothing
  conn.execute("update allcount set shopcount = shopcount + 1")
  response.redirect "admin_shop.asp?action=sites"
'================www.ynsky.com.cn===============
elseif request.form("action")="edits" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的商品id参数。');history.back(1);</script>")
    response.End
  end if
end if
scatid=request.form("scatid")
sql="select * from shop where s_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sname=trim(replace(request.form("name"),"'",""))
spic=trim(replace(request.form("pic"),"'",""))
sdesc=trim(replace(request.form("desc"),"'",""))
sisbest=request.form("isbest")
sistj=request.form("istj")
sishot=request.form("ishot")
s_user=trim(replace(request.form("s_user"),"'",""))
stock=trim(replace(request.form("stock"),"'",""))
ss_desc=trim(replace(request.form("desc1"),"'",""))
price_1=trim(replace(request.form("price_1"),"'",""))
price_2=trim(replace(request.form("price_2"),"'",""))
price_3=trim(replace(request.form("price_3"),"'",""))
price_4=clng(request.form("price_4"))
price_5=clng(request.form("price_5"))
s_count=trim(replace(request.form("s_count"),"'",""))
commend=trim(replace(request.form("commend"),"'",""))
tjuser=trim(replace(request.form("tjuser"),"'",""))
d_unit=trim(replace(request.form("d_unit"),"'",""))
hg=cint(request.form("hg"))
tupic=trim(replace(request.form("tupic"),"'",""))
if sname="" then
  Response.Write("<script language=javascript>alert('你必须填写商品名称！');history.back(1);</script>")
  response.end
end if
if not isInteger(scatid) then
  Response.Write("<script language=javascript>alert('你必须选择商品所属分类！');history.back(1);</script>")
  response.end
end if
if spic="" then
  Response.Write("<script language=javascript>alert('你必须填写商品的图片地址！');history.back(1);</script>")
  response.end
end if
if sdesc="" then
  Response.Write("<script language=javascript>alert('你必须填写商品的详细说明！');history.back(1);</script>")
  response.end
end if
if not (isnumeric(price_1)=true and isnumeric(price_2)=true and isnumeric(price_3)=true) then
  Response.Write("<script language=javascript>alert('你必须填写商品的价格！');history.back(1);</script>")
  response.end
end if
  rs("s_name")=sname
  rs("scat_id")=scatid
  rs("s_pic")=spic
  rs("s_desc")=sdesc
  rs("price_1")=price_1
  rs("price_2")=price_2
  rs("price_3")=price_3
  rs("isbest")=clng(sisbest)
  rs("istj")=clng(sistj)
  rs("ishot")=clng(sishot)
  rs("s_user")=s_user
  rs("stock")=stock
  rs("ss_desc")=ss_desc
  if price_4>0 then
     rs("price_4")=price_4
  else
     rs("price_4")=0
  end if
  if hg=1 and price_5>0 then
     rs("hg")=1
     rs("price_5")=price_5
  else
     rs("hg")=0
     rs("price_5")=0
  end if
  rs("s_count")=clng(s_count)
  rs("commend")=commend
  rs("tjuser")=tjuser
  rs("d_unit")=d_unit
  rs("tupic")=tupic
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_shop.asp?action=sites"
'================www.ynsky.com.cn===============
elseif request.form("action")="dels" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的商品id参数。');history.back(1);</script>")
    response.End
  end if
end if
  Conn.Execute "DELETE * FROM shop WHERE s_id="&clng(request.form("id"))
  conn.execute("update allcount set shopcount=shopcount-1")
  response.redirect "admin_shop.asp?action=sites"
end if
end if
'================www.ynsky.com.cn===============
if request.querystring("action")="scat" then
%> 
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr> 
<td colspan="4" class=Hxcmsss>商品移动、合并管理(请慎重操作，操作后不可还原!)</font></td>
</tr>
<form method="post" action="?action=moves">
<tr align="center"> 
<td height=22 align=center class=Hxcmsqs>将：
<select size="1" name="cat1">
<%
sql="select * from scat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("scat_name")&"'>"
sql="select * from scat where sid="&rs1("scat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("scat_id")%>">├ <%=rs2("scat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
</select> 分类商品，移动到： 
<select size="1" name="cat2">
<%
sql="select * from scat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("scat_name")&"'>"
sql="select * from scat where sid="&rs1("scat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("scat_id")%>">├ <%=rs2("scat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
</select>分类里。
<input type="submit" value="移动合并" name="B2" class="button">
</td></tr>
</form>
</table>
<%
sql="select * from scat where sid=0 order by scat_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
 <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
  <tr class=Hxcmsss> <td colspan="4">商品分类管理</td></tr>
  <tr align="center" class=Hxcmsqs>
   <td width="10%">编号</td>
   <td width="50%" class=Hxcmsqs>商品分类名称</td>
   <td width="20%" class=Hxcmsqs>商品子分类</td>
   <td width="20%">操作</td>
  </tr>
  <%do while not rs.eof%>
  <tr class=Hxcmsds>
  <td align="center"><%=rs("scat_id")%></td>
  <td><font color=#008000><%=rs("scat_name")%></font>  [<a href="admin_shop.asp?id=<%=rs("scat_id")%>&action=newscat">添加子分类</a>]</a>[<a title='点击在新窗口中编辑此分类的自定义属性！' href="javascript:newwin=window.open('admin_Hxcms_err.asp','admin_shop_ziduan','toolbar=no,location=no,status=no, menubar=no,scrollbars=yes,resizable=no,width=800,height=600');newwin.focus();">编辑自定义属性</a>]</td>
  <td class=Hxcmsds align="center"><%
           sql3 = "select * from scat where sid="&rs("scat_id")&""
           Set rs3 = Server.CreateObject("ADODB.RecordSet")
           rs3.Open sql3,conn,1,1
           response.write rs3.recordcount&"个"%></td>
  <td align="center"><a href="admin_shop.asp?id=<%=rs("scat_id")%>&action=editscat">编辑</a> <a href="admin_shop.asp?id=<%=rs("scat_id")%>&sid=<%=rs("sid")%>&action=delscat">删除</a></td></tr>
<%sql="select * from scat where sid="&rs("scat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<tr class=Hxcmsds><td align="right"></td><td>├ <%=rs2("scat_name")%></td>
        <td align="left">本分类商品：<%
		    sql4 = "select * from shop where scat_id="&rs2("scat_id")&" order by scat_id desc"
		    Set rs4 = Server.CreateObject("ADODB.RecordSet")
		    rs4.Open sql4,conn,1,1
12 3 下一页
⌨️ 快捷键说明

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