admin_killipsave.asp

青岛dj站程序,带后台管理 名字和密码都是:admin

<!--#include file="function.asp"-->
<%call CheckAdmin3%>
<!--#include file="conn.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
%>