Søg
Avatar billede mille Nybegynder
16. november 2004 - 12:18 Der er 6 kommentarer

Hjælp fra Php til ASP

Jeg har følgende kode til noget ip2country, men jeg skal bruge det som ASP

Er der et klogt hoved der kan oversætte koden til ASP ??


{
    $zz=explode('.', $ip);
    $offset=( ($zz[0]<<16)+($zz[1]<<8)+$zz[2] )*2;
    $fp = fopen("./db.db", 'r');
    fseek( $fp, $offset, SEEK_SET );
    $code = fread( $fp, 2 );
    fclose( $fp );

    if ($code == "\0\0") { $code = "XX"; }
   
    return $code;
}

/Mille
Avatar billede yellow Nybegynder
16. november 2004 - 14:13 #1
Overhovedet ikke testet, men det vil nok se nogenlunde sådan her ud:
function ip2country( ip )
  on error resume next
  zz = Split(ip,".")
  offset=((zz(0)*2^16)+(zz(1)*2^8)+zz(2))*2
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")   
  Set objTextStream = objFSO.OpenTextFile(Server.MapPath("./db.db"), 1)
  strBuffer = objTextStream.Read(offset - 1)
  result = objTextStream.Read(2)
  objTextStream.Close
  set objTextStream = nothing
  set objFSO = nothing
  if result = vbNull & vbNull then result = "XX" end if
  ip2country = result
end function

Response.Write ip2country("127.0.0.1")
Avatar billede mille Nybegynder
16. november 2004 - 16:10 #2
Næsten rigtigt..

strBuffer = objTextStream.Read(offset - 1)
skulle være

strBuffer = objTextStream.Read(offset)

Den er bare meget langsommere end Php, kan man gøre noget ved det FSO object, så det kører hurtigere ???
Avatar billede yellow Nybegynder
17. november 2004 - 09:21 #3
Hmm,

Måske
objTextStream.Skip(offset)
I stedet for
objTextStream.Read(offset - 1)
Avatar billede yellow Nybegynder
17. november 2004 - 09:23 #4
Err...mente
objTextStream.Skip(offset)
I stedet for hele linien
strBuffer = objTextStream.Read(offset)
Avatar billede mille Nybegynder
17. november 2004 - 14:45 #5
Den bliver stadig for sløv, når den skal læse en fil i gennem på 30 mb. (2-4 sec.)

Har du andre foreslag ??
Avatar billede yellow Nybegynder
17. november 2004 - 16:11 #6
Hmm nix :-(

Tror ikke du får presset mere ud af filesystemobject. Den performer hurtigst med byte read/skip...og det gør ovenstående funktion allerede.

Kender ikke lige andre alternativer til filesystemobject...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
White papers
Flere white papers »