l_typesave.asp

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

<!-- #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("classurl")=request("classurl")
  rs("classtop")=request("classtop")
  rs("classon")=request("classon")
  rs.update
  rs.close
  set rs=nothing
   end if
response.redirect "l_type.asp"
end if
%>
<%
if request("types")="mod" then
sql1="update Aclass set classtop='"&request("classtop")&"' where id="&request("id")
conn.execute(sql1)
sql2="update Aclass set class='"&request("class")&"' where id="&request("id")
conn.execute(sql2)
sql3="update Aclass set classurl='"&request("classurl")&"' where id="&request("id")
conn.execute(sql3)
response.redirect "l_type.asp"
end if
%>
<%
if request("types")="del" then
sql="delete from Aclass where id="&request("id")
conn.execute(sql)
response.redirect "l_type.asp"
end if 
%>