bcmanage.asp

来自「网络商城系统」· ASP 代码 · 共 33 行

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%dim action,id
action=request.querystring("action")
id=request.queryString("id")
select case action
'//添加
case "add" 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bigclass",conn,1,3
rs.AddNew
rs("bcname")=trim(request("bcadd"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "bigclass.asp"
'//重命名
case "rename"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bigclass where bcid="&id,conn,1,3
rs("bcname")=trim(request("bcname"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "bigclass.asp"
'//删除
case "del"
conn.execute "delete from bigclass where bcid="&id
conn.execute "delete from smallclass where scid="&id
conn.execute "delete from goods where bclassid="&id
response.Redirect "bigclass.asp"
end select
%>