Hjælp fra Php til ASP

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")

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 ???

Hmm,

Måske
objTextStream.Skip(offset)
I stedet for
objTextStream.Read(offset - 1)

Err...mente
objTextStream.Skip(offset)
I stedet for hele linien
strBuffer = objTextStream.Read(offset)

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 ??

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...