lockip.asp

一个不错的论坛原代码

<% sqllock="select lockip from home"
set rslock=conn.execute(sqllock)
lockip=rslock("lockip")
ip = Split(CStr(Request.ServerVariables("REMOTE_ADDR")),".")
 killip=split(lockip,chr(13)&chr(10))
for a=ubound(killip) to 0 step -1
If InStr(killip(a),"|")>0 then
		strkillip = Split(CStr(killip(a)),"|")
		killip = Split(strkillip(0),".")
		if ip(0)=killip(0) and ip(1)=killip(1) and ip(2)=killip(2) then
			if (ip(3)=killip(3)) or (killip(3)="*") then
			Response.Write"<TITLE>禁止ip</title>"
				Response.Write "<font color=red><center><br><br>很抱歉,由于您的IP地址或IP地址段被管理员加入了黑名单,<BR>因此您暂时无法浏览论坛和发表内容!<br>有问题请跟管理员联系<br><br>与您有关的黑名单IP范围:" &strkillip(0) & "<br><br>原因是:" & strkillip(1) & "</font><br><br><a href=../><font color=red>返回站点首页</font></a></center>"
				Response.End
			end if
		end if
	end if

	
	next	
	set rslockip=nothing

	if h_lockcpb=1 then
lockurl=Request.ServerVariables("SCRIPT_NAME")
if instr(lcase(lockurl),"loginfo.asp")=0 then
	Response.Write"<TITLE>暂时关闭论坛</title>"
				Response.Write "<font color=red><center><br><br>论坛暂时关闭，原因："&h_lockcpbwhy&"</font><br><br><a href=../><font color=red>返回站点首页</font></a></center>"
				Response.End
end if
			end if

%>