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
%>