<%
Function IP2Num(sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function
function GetIp()
dim realip,proxy
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if realip = "" then
GetIp = proxy
else
GetIp = realip
end if
end function
userIPnum = IP2Num(GetIP)
if userIPnum > IP2Num("61.66.0.0") and userIPnum < IP2Num("61.66.255.255") then
Response.Redirect "http://www.51hair.net/index.html"
response.end
end if
Function CheckIP( IP1, IP2 )
Dim conn, param, rs
Set conn = Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("IP.mdb")
sql = "Select * From IPZ Where IP1 < "& userIPnum &" and IP2 > "& userIPnum
Set rs = conn.Execute( sql )
If rs.EOF Then
CheckIP = True
Else
CheckIP = False
End If
End function
If CheckIP( IP1, IP2) = False then
Response.Redirect "http://www.51hair.net/default.html"
respond.end
Else
Response.write"welcome"
End If
%>
How to get the experience ID and PWD
With the Experience ID and PWD, you can see some photos
which only display in VIP Zone. And you also can see 3 free videos. So we must protect the image right.
And we need to check you personal information. So please send 1 US$ to our
paypal account. After we checking your personal information in paypal. We will
send a experience ID and PWD to you.
It's only to protect the photos and videos not go round to other
place. We will protect your information. After you send 1 US$ to us, we will give you the experience ID and PWD
in 24 hours. If you like our site, Please
join the VIP member ASAP. We will change the
experience ID and PWD every week.
To get experience ID and PWD 1 US$ ( Only for checking your personal
information)
กก