l_ztypesave.asp

admin/admin.asp是WAP的后台管理登陆页面

<%
'=================================================
' 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 rs1=server.createobject("adodb.recordset")
  sql1="select * from ANclass"
  rs1.open sql1,conn,3,3
  rs1.addnew
  rs1("Nclass")=request("Nclass")
  rs1("classID")=request("classID")
  rs1("nclasstop")=request("nclasstop")
  rs1("nclasson")=request("nclasson")
  rs1("nclassurl")=request("nclassurl")
  rs1("nclassbr")=request("nclassbr")
  rs1.update
  rs1.close
  set rs1=nothing
  end if
response.redirect "l_ztype.asp?id="&request("classid")&""
end if
%>
<%
if request("types")="mod" then
sql="update ANclass set Nclass='"&request("Nclass")&"' where Nclassid="&request("Nclassid")
conn.execute(sql)
sql="update ANclass set nclasstop='"&request("nclasstop")&"' where Nclassid="&request("Nclassid")
conn.execute(sql)
sql="update ANclass set nclassurl='"&request("nclassurl")&"' where Nclassid="&request("Nclassid")
conn.execute(sql)
sql="update ANclass set nclassbr='"&request("nclassbr")&"' where Nclassid="&request("Nclassid")
conn.execute(sql)
response.redirect "l_ztype.asp?id="&request("xid")
end if

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