savebodyclassr.asp

来自「简单整站程序」· ASP 代码 · 共 77 行

<!--#include virtual="/include/check.asp"-->
<% CheckAdminIsLogin("信息管理") %>
<!--#include virtual="/include/conn.asp"-->

<%dim action,okid
action=request.querystring("action")
select case action
'//添加新数据 
case "add"
temp=trim(request("selectmenu"))
if len(temp)>3 then
   okid=right(temp,len(temp)-3)
   if left(temp,3)="one" then
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from anclass where anclassid="&okid,conn,1,3
     rs("lmflag0")=2
     rs("lmorder")=int(request("nclassidorder2"))
   else
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from nclass where nclassid="&okid,conn,1,3
     rs("lmflag0")=2
     rs("lmorder")=int(request("nclassidorder2"))   
   end if
   rs.Update
   rs.Close
   set rs=nothing
end if
'//修改数据
case "edit"
temp=request.querystring("id")
if len(temp)>3 then
   okid=right(temp,len(temp)-3)
   if left(temp,3)="one" then
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from anclass where anclassid="&okid,conn,1,3
     rs("lmflag0")=2
     rs("lmorder")=int(request("lmorder"))
   else
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from nclass where nclassid="&okid,conn,1,3
     rs("lmflag0")=2
     rs("lmorder")=int(request("lmorder"))   
   end if
   rs.Update
   rs.Close
   set rs=nothing
end if



'//删除数据 和他关联的数据也删除
case "del"
temp=request.querystring("id")
if len(temp)>3 then
   okid=right(temp,len(temp)-3)
   if left(temp,3)="one" then
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from anclass where anclassid="&okid,conn,1,3
     rs("lmflag0")=0
     rs("lmorder")=0
   else
     set rs=server.CreateObject("adodb.recordset")
     rs.open "select * from nclass where nclassid="&okid,conn,1,3
     rs("lmflag0")=0
     rs("lmorder")=0  
   end if
   rs.Update
   rs.Close
   set rs=nothing
end if
end select
ConnClose()
response.Redirect "bodyclassr.asp"
%>