conn.asp

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

<%
	dim conn
	dim dbpath,userip
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("data/dj.asp")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
UserIP=Request.ServerVariables("REMOTE_ADDR")
sql="select * from killip"
rs.open sql,conn,1,1
i=0
if not rs.EOF then
	do while not rs.eof
		i=i+1
			if rs("ip")=UserIP then
				rs.Close
				set rs=nothing
				conn.close
				set conn=nothing
					response.write "<script language=javascript>window.alert('由于你或与你同一IP地址的人在本站的过份行为，\n所以本站封锁了你正在使用的IP地址！\n如果想解决这个问题请与站长:董威联系 QQ:8188222');history.back(1);</script>"
	Response.End 
					exit do
			end if
	rs.MoveNext
	loop
end if
rs.Close 
set rs=nothing

%>