Dragonball - http://maxpages.com/goku350

Visit Our FREE Template Gallery & Create Your FREE Web Site!

NEW! Poetry and Doll Maker with Galleries! [Learn About Our Ecommerce]

Graphics Gallery!

Click here to become an affiliate

Vote for me

Affiliates

I'm working on an IP banner so I will find everyone IP that visits the site and e-mail too so only the peoples that I want will visit the site.

-Click to enter the site-

<% Response.Buffer = True ' Turn response buffering on so you can redirect users if necessary. ' ' domains.asp ' Lock an ASP script to your domain ' V1.1 ' ' (c) 1997, 1998, 1999 Bann Consultants Limited ' email barryd@bann.co.uk if you want to use this code. ' Dim lockdomain_fileObject, lockdomain_fileName, lockdomain_fileHandle, lockdomain_httpReferer, lockdomain_httpHost, lockdomain_hostOK lockdomain_hostOK = false ' Get the complete URL of the page that called the script lockdomain_httpReferer=Request.ServerVariables("HTTP_REFERER") ' Now chop out the host name ' Now bug fixed IF (InStr(lockdomain_httpReferer, "//") ><> 0 AND InStr(lockdomain_httpReferer, "//") <> Null) THEN
lockdomain_httpHost = mid(lockdomain_httpReferer, InStr(lockdomain_httpReferer, "//")+2)
END IF

IF (InStr(lockdomain_httpReferer, "/") <> 0 AND InStr(lockdomain_httpReferer, "/") <> Null) THEN
lockdomain_httpHost = left(lockdomain_httpHost, InStr(lockdomain_httpHost, "/")-1)
END IF

' Open domains.dat
lockdomain_fileName = Server.MapPath(".")&"\domains.dat"
SET lockdomain_fileObject = Server.CreateObject("Scripting.FileSystemObject")
SET lockdomain_fileHandle = lockdomain_fileObject.OpenTextFile(lockdomain_fileName, 1, FALSE, FALSE)

WHILE lockdomain_fileHandle.AtEndOfStream <> True
' Now loop through each line in the valid domains file and check if the calling script is from one of these
lockdomain_nextLine=lockdomain_fileHandle.ReadLine
IF (LCase(lockdomain_httpHost) = LCase(lockdomain_nextLine)) THEN
lockdomain_hostOK = true
END IF
WEND

' Close the file down
lockdomain_fileHandle.Close

SET lockdomain_fileHandle = Nothing
SET lockdomain_fileObject = Nothing

' If a valid domain isn't found then redirect the browser to badhost.asp
IF NOT lockdomain_hostOK THEN
Response.Clear
Response.Redirect("badhost.asp")
END IF
%>

------------

Welcome and please vote for Goku350

Owner
alec_99@msn.com
co-owner
Joshua1001@msn.com

Page Updated Sun Aug 6, 2000 1:28pm EDT