saveanclass.asp

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

<!--#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
    action =    request.querystring("action")
    anclassid = request.QueryString("id")

select case action

       '//添加新数据
       case "add" 
set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from shop_anclass",conn,1,3
    rs.AddNew
    rs("anclass")=trim(request("anclass2"))
    rs("anclassidorder")=int(request("anclassidorder2"))
    rs("changyong")=int(request("changyong2"))
    rs.Update
    rs.Close
    set rs=nothing
    response.Redirect "anclass.asp"

       '//修改数据
       case "edit"
set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,3
if request("anclass")<>"" and request("anclassidorder")<>"" then
   rs("anclass")=trim(request("anclass"))
   rs("anclassidorder")=int(request("anclassidorder"))
   rs("changyong")=int(request("changyong"))
   rs.Update
   rs.Close
   set rs=nothing
   response.write "<script language=javascript>alert('图书大类修改成功！');window.location.reload('anclass.asp')</script>"
else
   response.write "<script language=javascript>alert('大类名称或排序不完整！');window.location.reload('anclass.asp')</script>"
end if

       '//删除数据
       case "del"
conn.execute ("delete from shop_anclass where anclassid="&anclassid)
conn.execute ("delete from shop_nclass  where anclassid="&anclassid)
conn.execute ("delete from shop_books   where anclassid="&anclassid)
response.Redirect "anclass.asp"

end select
%>