savenclass.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 57 行

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
   response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
   response.End
else
   if session("flag")>1 then
      response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
      response.End
   end if
end if

dim action,anclassid,anclass

    action    = request.QueryString("action")
    anclassid = request("anclassid")
    anclass   = request.QueryString("anclass")
       '//添加新数据
select case action
       case "add"
set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from shop_nclass",conn,1,3
    rs.AddNew
    rs("nclass")=trim(request("nclass2"))
    rs("nclassidorder")=int(request("nclassidorder2"))
    rs("anclassid")=int(request("anclassid"))
    rs("changyong")=int(request("changyong"))
    rs.Update
    rs.Close
    set rs=nothing
    response.redirect"nclass.asp"

       '//修改数据
       case "edit"
set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from shop_nclass where nclassid="&request.QueryString("id"),conn,1,3

if request("nclass")<>"" and request("nclassidorder")<>"" then
   rs("nclass")=trim(request("nclass"))
   rs("nclassidorder")=int(request("nclassidorder"))
   rs("changyong")=int(request("changyong"))
   rs.update
   rs.close
   set rs=nothing
   response.write "<script language=javascript>alert('图书小类修改成功！');window.location.reload('nclass.asp')</script>"
else
   response.write "<script language=javascript>alert('小类名称或排序不完整！');window.location.reload('nclass.asp')</script>"
end if

       '//删除数据
       case "del"
       anclassid=request.QueryString("anclassid")
       conn.execute ("delete from shop_nclass where nclassid="&request.QueryString("id"))
       conn.execute ("delete from shop_books  where nclassid="&request.QueryString("id"))
       response.redirect "nclass.asp"
end select
%>