typesave.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")="addclass" then
 if request("class")="" then
   response.redirect "error1.asp?err_on=9"
 else
  set rs=server.createobject("adodb.recordset")
  sql="select * from Aclass"
  rs.open sql,conn,3,3
  rs.addnew
  rs("class")=request("class")
  rs("classtop")=request("classtop")
  rs("classon")=request("classon")
  rs("classurl")=request("classurl")
  rs.update
  rs.close
  set rs=nothing
  end if
response.redirect "type.asp"
end if
%>
<%
if request("types")="mod" then
set rs=server.createobject("adodb.recordset")
sql="update Aclass set classtop='"&request("classtop")&"' where id="&request("id")
sql2="update Aclass set classurl='"&request("classurl")&"' where id="&request("id")
sql3="update Aclass set class='"&request("class")&"' where id="&request("id")
conn.execute(sql)
conn.execute(sql2)
conn.execute(sql3)
response.redirect "type.asp"
end if
if request("types")="del" then
set rs=server.createobject("adodb.recordset")
sql="delete from Aclass where id="&request("id")
sql2="delete from ANclass where classid="&request("id")
sql3="delete from article where classid="&request("id")
conn.execute(sql)
conn.execute(sql2)
conn.execute(sql3)
response.redirect "type.asp"
end if 
%>