Jsp/Servlet

开发平台：

Java

IPLockAdmin.asp：源码内容

							<%
	dim GuUserIPArray,GuSQL1,rsIP1,GuSQL2,rsIP2
		GuUserIPArray=split(GuUserIP,".")
	GuSQL1="select * from "&GuTablePrefix&"_IPLock where IP_Type='admin' "
	set rsIP1=GuConn.execute(GuSQL1)
	if not (rsIP1.bof or rsIP1.eof) then
		GuSQL2="select * from "&GuTablePrefix&"_IPLock Where IP_Type='admin' and ((IP_Same=4 and IP_A="&Cint(GuUserIPArray(0))&" and IP_B="&Cint(GuUserIPArray(1))&" and IP_C="&Cint(GuUserIPArray(2))&" and IP_D="&Cint(GuUserIPArray(3))&") or (IP_Same=3 and IP_A="&Cint(GuUserIPArray(0))&" and IP_B="&Cint(GuUserIPArray(1))&" and IP_C="&Cint(GuUserIPArray(2))&") or (IP_Same=2 and IP_A="&Cint(GuUserIPArray(0))&" and IP_B="&Cint(GuUserIPArray(1))&") or (IP_Same=1 and IP_A="&Cint(GuUserIPArray(0))&")) order by IP_ID "
		set rsIP2=GuConn.execute(GuSQL2)
		if rsIP2.bof and rsIP2.eof then
			Response.write "<html>" &vbCrLf
			Response.write "<head>" &vbCrLf
			Response.write "<title>"&WebSiteName&"</title>" &vbCrLf
			Response.write "<meta http-equiv=""Content-Type"" content=""text/html;charset=gb2312"">" &vbCrLf
			Response.write "<meta http-equiv=""Content-Language"" Content=""zh-CN"">" &vbCrLf
			Response.write "<link type=""text/css"" rel=""stylesheet"" href=""Include/Style.css"">" &vbCrLf
			Response.write "</head>" &vbCrLf
			Response.write "" &vbCrLf
			Response.write "<body>" &vbCrLf
			Response.write "" &vbCrLf
			Response.write "<font class=""BlackG14"">"&GuUserIP&"<br>Browser has been restricted</font>" &vbCrLf
			Response.write "" &vbCrLf
			Response.write "</body>" &vbCrLf
			Response.write "</html>" &vbCrLf
			Response.end
		end if
		set rsIP2=Nothing
	end if
	set rsIP1=Nothing
%>

						