'Copyright <% On Error Resume next dim conn,dbpath,UserIP set conn=server.createobject( "adodb.connection" ) DBPath = Server.MapPath("IP.mdb") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath If Err Then err. Clear Set Conn = Nothing Response.Write "데이터베이스가 업데이트되고 있습니다. 나중에 다시 시도하십시오!" 참고로 이 단어는 영어로 번역되어야 합니다. Response.End End If myip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If myip = "" Then myip = Request.ServerVariables("REMOTE_ADDR") tempip=myip myip = Split(myip,".") if Ubound(myip)=3 then For i=0 To Ubound(myip) myip(i)=left(myip(i), 3) if isnumeric(myip(i)) then myip(i)=cint(myip(i)) else myip(i)=0 end if 다음 myipnumeber=myip(0)*256*256*256 myip(1)*256*256 myip(2)*256 myip(3) sql="ip1<="&myipnumer&에서 IP 주소를 선택하세요. " 및 ip2>="&myipnumer set rs1=conn.execute(sql) rs1.eof가 아닌 경우 response.redirect "http://www.***.com" 'Netcom입니다. 그렇다면 China Netcom의 URL로 점프하여 자신의 웹사이트로 수정하세요 Else response.redirect "http://www.****.com" 'Netcom이 아니면 점프 URL에 직접 수정하면 더 이상 말도 안되는 end if rs1.close set rs1=nothing conn.close set conn=nothing end if%>