www.gusucode.com > 玩玩小游戏FLASH系统 2.1码程序 > admin/saveclass.asp
<!--#include File="Conn.asp" --> <!--#include file="Checkpost.asp"--> <% If Session("AdminName")="" and Session("adminpass")="" Then Response.Redirect "Error.asp?id=005" response.end end if %> <% if request("action")="add" then if request("nameadd")<>"" and request("classidadd")<>"" then name=trim(request("nameadd")) classid=trim(request("classidadd")) set rs=server.CreateObject("ADODB.RecordSet") Sql="Select * From class Where name='"&name&"'" Rs.Open Sql,Conn,1,3 if not rs.eof then response.write "此分类已存在,请不要重复提交<a href=class.asp>返回</a>" response.end end if If Rs.Eof And Rs.Bof Then Rs.AddNew End If rs("name")=name rs("classID")=classid rs.update rs.close Set Rs = Nothing Conn.Close Set Conn=nothing response.redirect "class.asp" response.end else response.write "你好像少了什么没写吧<a href=class.asp>返回</a>" response.end end if end if %> <% if request("action")="del" then Conn.Execute"Delete From Class Where ID="&Request("ClassID") response.redirect "class.asp" response.end End if %> <% If request("action")="edit" Then if request("classedit")<>"" and request("name")<>"" then classid=trim(request("classedit")) name=trim(request("name")) id=trim(request("id")) Set Rs=Server.Createobject("Adodb.Recordset") Sql="Select * From Class Where ID="&Request("ID") Rs.open Sql,Conn,1,3 Rs("Name")=name Rs("classid")=classid Rs.Update Rs.Close End if response.redirect "class.asp" response.end else response.write "没有填写完整<a href=class.asp>返回</a>" response.end end if %>