Hvilket land er browseren åbnet i??

Du kan bruge Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

Den vil indeholde lande koder som er valgt eksempel (engelsk, dansk):  en-us,da

Hvis jeg bruger Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") vil den så være dk hvis jeg åbner den i Danmark?

og hedder den engelske så "en" eller "en-us"?

nej da for danish, en for english, en-us for amerikask osv
http://www.henri-ruch.ch/ASP/info_visiteur/http_langue.asp en liste på fransk.

da for danmark

Her er en liste:
http://www.activedeveloper.dk/artikler/default.asp?articleid=24

Engelsk vil være:  en

Du kan ikke bruge accept language til at bestemme hvilket land
brugeren kommer fra. Det fortæller mere hvilket sprog hans
programmer er i.

Hvis du vil have en professionel løsning skal du have fat i hans
IP adresse fra REMOTE_ADDR headeren og så den op i en IP til
lande database.

Du kan få gratis IP til lande databaser med 90-95% nøjagtighed og
kommercielle med 95-99% nøjagtighed.

Eksempel på gratis:

http://ip-to-country.webhosting.info/node/view/6

hmm tror ikke jeg er helt med på hvordan REMOTE_ADDR virker, hvis det er det jeg skal bruge, for det skal være en pro løsning!

Hvordan virker det i praksis?

Ja hvis du vil se hvor brugeren sidder i verden skal du bruge REMOTE_ADDR. Hvis du vil se hvilke sprog en bruge fortrækker at få vist er det HTTP_ACCEPT_LANGUAGE. De bruges på samme måde.

ip = Request.ServerVariables("REMOTE_ADDR")



Hvis du har downloaded database arne_v har linket til er her noget kode du kan bruge:


' Commenti: http://ip-to-country.webhosting.info/node/view/55
'------------------------------------------------------------------
Dim arrAsgIp, strDottedIp
Function DottedIp(userIP)
If Trim("[]" & userIP) <> "[]" Then
    arrAsgIp = Split(userIP,".")
    strDottedIp = arrAsgIp(0)*16777216 + arrAsgIp(1)*65536 + arrAsgIp(2)*256 + arrAsgIp(3)
  Else
    strDottedIp = "noIp"
  End If
DottedIp = strDottedIp
End Function

Dim strCountry, strCountry2

Function GetCountry(ip)
'Convert IP
  strDottedIp = DottedIp(ip)
  Dim strIP2Conn
  Dim Conn
  Dim Rs
  Dim strIP2SQL
  'If there is a valid IP address
  If strDottedIp <> "noIp" Then
    strIP2SQL = "SELECT * FROM Country WHERE IP_From <= " & strDottedIp & " and IP_To >= " & strDottedIp & ""
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("ip-to-contry.mdb")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    Conn.Open ConnStr
    Rs.Open strIP2SQL, Conn
    If Rs.EOF Then
      strCountry = "(unknown)"
      strCountry2 = "xx"
    Else
      strCountry = Rs("Country")
      strCountry2 = Rs("Country2")
    End If
    Rs.Close
    Set Rs = Nothing
    Conn.Close
    Set Conn = Nothing
  Else
    strCountry = "(unknown)"
    strCountry2 = "xx"
  End If
End Function


ip = Request.ServerVariables("REMOTE_ADDR")
GetCountry (ip)
response.write strCountry  & "..." & strCountry2

Mit net har lige været gået ned, så jeg kigger lige på det i morgen, men tak end til nu :)

ok, bemærk lige at der er en stave fejl i ip-to-contry.mdb i connection strengen :)
Men det får du nok rette når du afligevel skal rette stien til så den passer.

Hej, jeg har downloadet databasen, men den ligger i et CSV fil format og jeg er ik helt klar over hvordan jeg ekspotere den til min MySql db?

Skal hele scriptet køres hver gang en side loades, da reklamerne skrifter hver gang en side er loadet, eller skal det bare ligges ind i en cokkies, sådan at landet bare findes frem når websiden åbnes?

Ja du kan gemme det i cookien, da cookien følger browseren.

Kan mySQL ikke importere en CSV fil via phpmyadmin interfaceet?
Det ville jeg tror den kunne.

hmm, jeg har prøvet og prøvet at importere CSV filen men når jeg bruger phpmyadmin interfacet, så er det somom det "fryser" fast - kan du gøre det?

Jeg har fundet denne på eksperten:

I PhpMyadmin gør følgende
1) vælg den tabel i den database, du vil importere til
2) vælg SQL-fanebladet
3) forneden, klik på "Importer tekstfil til tabellen"
4) sæt værdierne fornuftig ;-)
5) tryk send
Prøv dig frem med hvilke værdier du skal vælge. De afhænger af dit styresystem.

Men jeg får bare en fejl når jeg følger dette eksempel? øvv

Har du lavet tabellen? Som denne:

CREATE TABLE iptocountry (ip_from int(4), ip_to int(4), country_code2 char(2),
country_code3 char(3), country_name varchar(50));


Når du vælger importer teskt fil så prøv også at rette:

"Fields terminated by " sættes ,

"Lines terminated by"  sættes til \n

Jeg kan nu heller ikke lige så den til at tage filen på den måde. Jeg lavet et lille scritp som laver en linje i filen om til en insert into linje, så kan jeg få det til at virke via SQL sidens "Or Location of the textfile"

ok, hvordan ser det lille scritp ud og hvor skriver jeg det?

Ja har kørt det min lokale web-server. Det åbner filen og skriver en ny fil:

<%
set fso=Server.CreateObject("Scripting.Filesystemobject")
set fin = fso.OpenTextFile("D:\test\ip-to-country.csv")
set fud = fso.OpenTextFile("D:\test\test2.csv",2,true)
do while not fin.AtEndOfStream
  str = fin.readline
  str = "insert into iptocountry  (ip_from, ip_to, country_code2, country_code3, country_name) values (" & replace(str,"""","'") & ");"
  fud.writeline str
loop
fin.Close
fud.Close
%>

jeg kan evt. zippe filen så du kan downloade den?

Her er filen: http://www.eagleeye.dk/eks/ip-to-country.zip
Den hedder ip-to-country.txt når den er pakker ud.

Hej, jeg har nu hentet din zip-fil og brugt følgende på den under import af en tekstfil:

"Fields terminated by " sættes ,

"Lines terminated by"  sættes til \n


Men jeg får denne fejl???


SQL-forespørgsel : 

LOAD DATA LOCAL INFILE '/tmp/phpdf3NRn' INTO TABLE `iptocountry` FIELDS TERMINATED BY ',' ENCLOSED BY '"' ESCAPED BY '\\' LINES TERMINATED BY '\n'

MySQL returnerede:


#1148 - The used command is not allowed with this MySQL version

Mine 5 felter i db'en hedder:

ip_from
ip_to
country_code2
country_code3
country_name

Det er ikke den måde du skal bruge til den fil. Der skal du bruge:

Åben phpmyadmin
Vælg "SQL"
Nede ved  Or Location of the textfile  tryk på Browse og vælg filen

Arhh ok, skal jeg så heller ikke bruge den bruge den database jeg har oprettet som heddner ip-to-country? Her hvor jeg har tebellerne:

ip_from
ip_to
country_code2
country_code3
country_name

arh ok, og jeg har kaldt den iptocountry. Men jeg kan da lige lave en ny fil men det navn.

Sådan nu er den lavet med tabelnavnet ip-to-country

ok, jeg prøver lige at downloade den igen :)

hmm, nu kan jeg få overført ca. 4000 emner, men der er ca. 50.000 - ved ikke hvorfor den ikke tager alle med over - kan du ligge alle 50.000 ind??

Jeg får denne Fejl??

SQL-forespørgsel : 

INSERT INTO `ip-to-country` ( ip_from, ip_to, country_code2, country_code3, country_name )
VALUES (

'1043900928', '1043901695', 'CI', 'CIV', 'COTE D'IVOIRE ');
insert into `ip-to-country`  (ip_from, ip_to, country_code2, country_code3, country_name) values ('1043901696 ','1043901951 ','BJ ','BEN ','BENIN ');

insert into `ip-to-country`  (ip_from, ip_to, country_code2, country_code3, country_name) values ('1343222272 ','1343222287 ','CI ','CIV ','COTE D 'IVOIRE'
)

MySQL returnerede:


#1064 - You have an error in your SQL syntax.  Check the manual that corresponds to your MySQL server version for the right syntax to use near 'IVOIRE');
insert into `ip-to-country`  (ip_from, ip_to, countr

Der er en single quote i

'COTE D'IVOIRE '

den skal enten fordobles - altså

'COTE D''IVOIRE '

eller escapes - altså

'COTE D\'IVOIRE '

eller (for at undgå en kæmåe søg og erstat) så skal der loades
på en måde der kan klare single quotes i data

Og hvorfor fanden kan de ikke bare kalde det Elfenbenskysten (dansk)
eller Ivory Coast (engelsk) ??

Ja det havde jeg ikke lige tænkt på der var lande navne som kunne indeholde ' :)
Jeg har lavet en ny fil som tager højde for det.

ok, jeg har downloadet din .zip fil igen Eagleeye og brugt fremgangsmåen:

Åben phpmyadmin
Vælg "SQL"
Nede ved  Or Location of the textfile  tryk på Browse og vælg filen

Men nu efter 15 min får jeg bare et hvidt skærmvindue og der er ikke kommet noget data i databasen ip-to-country - virker det for Jer??

Jeg har ikke prøvet hele filen før nu og den fejler efter et stykke tid. Så har jeg prøvet at lave en anden fil og den fejler ikke dog siger den efter noget tid "No SQL query". Men tager jeg et udpluk så viker det fint.... Der måske en grænse for max størrelsen på filen prøver lidt at halvere den. Den fil som ikke giver en fejl kode er uploaded.

Hvis jeg sætter dem in 5000 linjer ad gangen vil den godt tage dem

Jeg har lavet en ny fil med 7850 i hver og med en anden SQL sætning det vil den godt tage på min det er dog i 7 filer så. Kan du oploade sådan en?

Ok! Kan jeg oploade hvilken en??

hvis du downloader zip filen er der 7 filer i den. Kan du loade en af dem ind i mySQL uden fejl?

Arhh, om jeg kan oploade de 7 filer? Ja, jeg har lige oploadet den 1. uden problemer, så jeg prøver lige med de andre også:)

Ok
Jeg har fundet ud af der en fejl i en sidste fil, fil nr.7. Du skal åbne den med notepad og scrolle hent ned til sidste linje. Ret det sidste komma i linjen til et semikolon. Eller bliver de den ikke sat ind i tabelen.

Så dette:
('3758096384','4294967295','US','USA','UNITED STATES'),

Bliver til:
('3758096384','4294967295','US','USA','UNITED STATES');

Super, nu er alle 60.000 emner lagt i databasen!

Da der kun lå 4000 emner i databasen virkede det fint, og den udskrev et land under response.write, men nu skriver den følgende fejl og jeg har ikke rettet i scriptet!

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.


Her er scriptet som jeg bruger:

Dim arrAsgIp, strDottedIp
Function DottedIp(userIP)
If Trim("[]" & userIP) <> "[]" Then
    arrAsgIp = Split(userIP,".")
    strDottedIp = arrAsgIp(0)*16777216 + arrAsgIp(1)*65536 + arrAsgIp(2)*256 + arrAsgIp(3)
  Else
    strDottedIp = "noIp"
  End If
DottedIp = strDottedIp
End Function

Dim strCountry, strCountry2

Function GetCountry(ip)
'Convert IP
  strDottedIp = DottedIp(ip)
  Dim strIP2Conn
  Dim Conn
  Dim Rs
  Dim strIP2SQL
  'If there is a valid IP address
  If strDottedIp <> "noIp" Then
 
 
    strIP2SQL = "SELECT * FROM COUNTRY WHERE IP_From <= " & strDottedIp & " and IP_To >= " & strDottedIp & ""
    Set rs = Server.CreateObject("ADODB.Recordset")
    Rs.Open strIP2SQL, strDNS
    If Rs.EOF Then
      strCountry = "(unknown)"
      strCountry2 = "xx"
    Else
      strCountry = Rs("Country")
      strCountry2 = Rs("Country2")
    End If
    Rs.Close
    Set Rs = Nothing
  Else
    strCountry = "(unknown)"
    strCountry2 = "xx"
  End If
End Function


ip = Request.ServerVariables("REMOTE_ADDR")
GetCountry (ip)
response.write strCountry  & "..." & strCountry2

denne sql sætning skal rette:

strIP2SQL = "SELECT * FROM COUNTRY WHERE IP_From <= " & strDottedIp & " and IP_To >= " & strDottedIp & ""

til denne:

strIP2SQL = "SELECT * FROM `ip-to-country` WHERE IP_From <= " & strDottedIp & " and IP_To >= " & strDottedIp & ""

Disse to linjer:

      strCountry = Rs("Country")
      strCountry2 = Rs("Country2")

skal rette til:

      strCountry = Rs("country_name")
      strCountry2 = Rs("country_code2")

ok, det er bare fordi jeg har døbt tabellen om til COUNTRY, men det hjalp at ændre til dette:

strCountry = Rs("country_name")
      strCountry2 = Rs("country_code2")

Nu udskriver den DENMARK...DK

Så skal jeg lige høre! Skal jeg så bare ligge outputtet ind i en session("land"), sådan at jeg kan lave en anden tabel hvor mine bannere ligger i, så hvor jeg kan lave noget ligneden:

udskriv banner WHERE banner_land = session("land")

Er det måden??

Ja det vil være måden, så kan du gemme DK eller DENMARK alt efter hvad du har gemt i din tabel banner. Der skal lige ' omkring når det tekst:

..WHERE banner_land = '" & session("land") & "'"

ok, det vil jeg prøve at se på, du får dine point og en kanon karma, da du har gjort det rigtig godt..

Jeg skriver lige hvis der er noget der driller, når jeg skal lave ..WHERE banner_land = '" & session("land") & "'" - OK?

Ok :)
Ja bare spørg hvis den driller

ska lige høre, kan jeg udskrive country_name i en select box hvor den kun skrive landet ud én gang? DENMARK står der jo mange gange!

Jeg skal nok sætte nogle flere point på :)

Så skal du lave en sql sætning som denne:

select distinct country_name, country_code2 from COUNTRY

Så skulle den gerne kun tage et land ud en gang.

ja det virker fint - tak

Skal lige høre hvor sikkert dette system er? Jeg har lige testet det på en som sidder i Holland, og der står at han kommer fra USA?

Når jeg selv logger på, så står der rigtigt nok at jeg kommer fra DENMARK

Regn med 90-95% nøjagtighed for en gratis.

Der er bedre kommercielle løsninger pris fastsat fra det rimelige til det ublu
(jeg kalder 6 cifrede dollar beløb om året ublu).

ok, fint nok - 90-95% kan jeg godt acceptere, når det er gratis :)

Det skal iøvrigt understregs at det er udgangen til internettet der
identificeres.

Hvis du dialer ind til din TDC Internet account fra et hotel i udlandet
så er IP adressen TDC og dermed Danmark.

Hvis du arbejder for et amerikansk firma og firmaets eneste internet
tilslutning er i USA, så er IP adressen amerikansk.

Men i det første tilfælde er Danmark jo nok i virkeligheden det svar
man helst vil have.

(i det andet tilfælde er der ikke noget at gøre - det eneste man kender
er IP adressen på ydersiden af firmaets firewall - der er ingen måde at
udlede noget firmaets interne net)

Du skal iøvrigt huske at opdatere databasen en gang imellem, da data ændrer
sig en lille smule hel tiden.

ok, tak for det - hvis du bare vidste hvilket bøvl det bare at været at få dataen ind i min MySql - så opdatering bliver vist ikke hver uge ;-)