www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_killipsave.asp
<%call CheckAdmin3%> <!--#include file="const.asp"--> <% IP=trim(request.form("IP")) ID=trim(Request("id")) act=trim(request("act")) founderr=false if act="add" then if IP="" then conn.close set conn=nothing Response.Redirect "error.asp?id=019" Response.End end if set rs=server.createobject("adodb.recordset") if act="add" then sql="select * from killip" rs.open sql,conn,1,3 rs.addnew rs("IP")=IP rs.update rs.close set rs=nothing elseif act="del" then sql="delete from killip where id=" & ID conn.execute sql end if conn.close set conn=nothing if founderr=true then call error(errmsg) else Response.Redirect "admin_killipMana.asp" end if %>