ztypesave.asp

来自「admin/admin.asp是WAP的后台管理登陆页面」· ASP 代码 · 共 64 行

<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<!-- #include file="conn.asp" -->
<%
 if request("types")="addnclass" then
 if request("nclass")="" then
   response.redirect "error1.asp?err_on=9"
 else
  set rs=server.createobject("adodb.recordset")
  sql="select * from anclass"
  rs.open sql,conn,3,3
  rs.addnew
  rs("nclass")=request("nclass")
  rs("classid")=request("classid")
  rs("nclasstop")=request("nclasstop")
  rs("nclassurl")=request("nclassurl")
  rs("nclassup")=request("nclassup")
  rs("nclassbr")=request("nclassbr")
  rs.update
  rs.close
  set rs=nothing
  end if
response.redirect "ztype.asp?id="&request("classid")&""
end if
%>
<%
if request("types")="mod" then
sql1="update ANclass set Nclass='"&request("Nclass")&"' where Nclassid="&request("Nclassid")
conn.execute(sql1)
sql2="update ANclass set nclasstop='"&request("nclasstop")&"' where Nclassid="&request("Nclassid")
conn.execute(sql2)
sql3="update ANclass set nclassurl='"&request("nclassurl")&"' where Nclassid="&request("Nclassid")
conn.execute(sql3)
sql4="update ANclass set nclassbr='"&request("nclassbr")&"' where Nclassid="&request("Nclassid")
conn.execute(sql4)
sql5="update ANclass set nclassup='"&request("nclassup")&"' where Nclassid="&request("Nclassid")
conn.execute(sql5)
response.redirect "ztype.asp?id="&request("xid")
end if

if request("types")="yidong" then
sql1="update ANclass set classid='"&session("xdd")&"' where Nclassid="&session("eid")
conn.execute(sql1)
sql2="update article set classid='"&session("xdd")&"' where Nclassid="&session("eid")
conn.execute(sql2)
sql3="update article set Nclassid='"&session("xzd")&"' where Nclassid="&session("eid")
conn.execute(sql3)
sql4="delete from ANclass where Nclassid="&session("eid")
conn.execute(sql4)
response.redirect "z_en.asp"
end if

if request("types")="del" then
sql1="delete from ANclass where Nclassid="&request("Nclassid")
conn.execute(sql1)
sql2="delete from article where Nclassid="&request("Nclassid")
conn.execute (sql2)
response.redirect "ztype.asp?id="&request("did")
end if 
%>