Jsp/Servlet

开发平台：

Java

IPLockUser.asp：源码内容

							<%
	dim GuUserIPArray,GuSQL1,rsIP1
		GuUserIPArray=split(GuUserIP,".")
	GuSQL1="select * from "&GuTablePrefix&"_IPLock where IP_Type='user' 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 rsIP1=GuConn.execute(GuSQL1)
	if not (rsIP1.bof or rsIP1.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 rsIP1=Nothing
%>

						