CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jesperkh Nybegynder

29. januar 2003 - 16:59 Der er 19 kommentarer og
1 løsning

hvordan henter jeg den oplysning : Ihr Name: x1-6-00-40-7b-6f-a3-

Når jeg går ind på http://www.ipcheck.de/ , kan jeg see hvor jeg kommer fra... hvordan henter jeg den oplysning ???

Ihr Name: x1-6-00-40-7b-6f-a3-ab.k113.webspeed.dk

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 17:04 #1

hvordan henter jeg den oplysning, på en bruger på min webside...???

Synes godt om

medions Nybegynder

29. januar 2003 - 17:23 #2

Response.Write(Request.ServerVariables("REMOTE_HOST"))

-hvis du vil have oplysningen FRA brugeren, kan du fx. sætte det ind i en database eller i en tekstfil!

-læs mere om hvordan du gør dette på www.html.dk !

//>Rune

Synes godt om

medions Nybegynder

29. januar 2003 - 17:32 #3

<%

' skal tomme referrers også gemmes i logfil ?
logTomme = true

' find logfilens navn ud fra dags dato
'filename = right("0" & year(now), 2) & right("0" & month(now), 2) & right("0" & day(now), 2) & ".log"

'En samlet logfil istedet for en pr dag
filename = "tracker.log"

' opret system objektet til filhåndtering
Set fs = CreateObject("Scripting.FileSystemObject")

' opret en reference til vores logfil - enten eksisterende ellers oprettes en ny
Set a = fs.OpenTextFile(server.mappath(filename), 8, True, False)

' hvis der er nogen referrer, så gemmes denne
if request.servervariables("HTTP_REFERER") <> "" then
a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
else
if logTomme then
a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
end if
end if

a.close

%>

her vil den oprette en fil på serveren, hvor den vil logge alle de iper der har besøgt din side..!

//>Rune

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 18:02 #4

Hmm... det er ikke lige Ip adr. jeg mangler og kunne hente og lægge i database... men hvilken internet udbyder brugeren kommer fra.... det kære politi kræver begge oplysninger, når man andmelder misbrug/cikane... altså ip og hvilken Internet udbyder brugeren kommer fra...

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 18:07 #5

når ham der ejer http://www.ipcheck.de/ kan få sin webside til at vise hvilken Internet udbyder jeg kommer fra så må jeg også kunne hente den samme oplysning om de bruger der mine websider... og lægge det ned i en database..

Synes godt om

medions Nybegynder

29. januar 2003 - 18:07 #6

jesperkh> Prøv at brug det script jeg har postet ovenfor, der skulle gerne være det hele!

//>Rune

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 18:46 #7

jeg har prøvet og lægge de "Request.ServerVariables" der er i din "logfil" op her og som du kan see er den der henter internet udbyderen, der ikke..... http://www.giovanni-pizza.dk/

Synes godt om

medions Nybegynder

29. januar 2003 - 18:58 #8

Hmm så ved jeg sq ik' lige rigtig hvad det er du er ude efter!
-men her har du alle servervariabler der findes!

http://www.devguru.com/Technologies/asp/quickref/request_servervariables.html

//>Rune

Synes godt om

soes Nybegynder

29. januar 2003 - 19:29 #9

tror at der findes et komponent til at trace med i asp, mener at jeg har stoedt paa det foer. Giv mig lige lidt tid saa kan det vaere jeg finder noget.

Synes godt om

soes Nybegynder

29. januar 2003 - 19:51 #10

http://www.hexillion.com/samples/
Proev lige at tage et kig paa denne side. Der hvor der staar 'Diagnostics' er der et punkt der hedder Traceroute, tror at det kan bruges - omskrives

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 19:52 #11

soes... Det håber jeg du ka... min ven der har et pizzeria er meget plaget af nogen der laver falske bestillinger ..

Synes godt om

medions Nybegynder

29. januar 2003 - 19:59 #12

aajesperkh> Har du prøvet med de forskellige servervariabler?

//>Rune

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 20:10 #13

Rune> jep men uden held

Synes godt om

soes Nybegynder

29. januar 2003 - 20:13 #14

servervariablerne henter kun information ud som ligger i HTTP head saa vidt jeg ved. Det indeholder ikke nogle informationer om hvilken udbyder du har, men drejer sig kun om det enkelte request

Synes godt om

caspers Nybegynder

29. januar 2003 - 20:20 #15

Du har brug for a lave en nslookup af IP nummeret, hent et script:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=7507

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 20:23 #16

soes>> http://www.hexillion.com/samples/AspLookup.asp her kan ved og indtaste IP få den adr. på den Internet udbyder brugeren kommer fra... jeg kan bare ikke rigtig gennemsku hans asp koder..

Synes godt om

caspers Nybegynder

29. januar 2003 - 20:26 #17

Eller:

Add this at the top of your page to set up your variables. It must be the first thing on your page. It should be right before the <html> tag.

<%@ Language="VBScript" %>
<%
If Request.Form("frmHost") = "" Then
' Set Initial Value to Local IP Address
strIP = Request.ServerVariables("REMOTE_ADDR")
Else
strIP = Request.Form("frmHost")
End If
%>

Then add the following form and function somewhere on your page in between the <body> and </body> tags.

<form method="post" name="frmRDNS">
 
<label for="frmHost">Type in an IP
address to find out the domain name.</label>
<label for="frmHost">Host IP:
</label><input type="text" name="frmHost" id="frmHost" value="<%=strIP %>" size="20">
<input type="button" name="btnSubmit" id="btnSubmit" value="Lookup" onclick="document.frmRDNS.submit()">
</form>

<%
rMethod = uCase(Request.ServerVariables("REQUEST_METHOD"))
If rMethod = "POST" Then
' Lookup Host
strReturn = NSlookup(strIP)
If strReturn <> "" Then
Response.Write " " & strReturn
Else
' A Lame Host is any Valid Host that DNS Cannot Resolve
' See InterNic for Details
Response.Write " Could Not Resolve DNS For " & strIP & " See InterNic for Details"
End If
End If

Function NSlookup(strHost)
'Create Shell Object
Set oShell = Server.CreateObject("Wscript.Shell")
'Run NSLookup via Command Prompt
'Dump Results into a temp text file
oShell.Run "%ComSpec% /c nslookup " & strHost _
& "> C:\" & strHost & ".txt", 0, True

'Open the temp Text File and Read out the Data
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
Set oTF = oFS.OpenTextFile("C:\" & strHost & ".txt")

tempData = Null
Data = Null
i = 0
Do While Not oTF.AtEndOfStream
Data = Trim(oTF.Readline)
If i > 2 Then ' Don't want to display local DNS Info.
tempData = tempData & Data & " "
End If
i = (i + 1)
Loop

'Close it
oTF.Close
'Delete It
oFS.DeleteFile "C:\" & strHost & ".txt"

Set oFS = Nothing
NSlookup = tempData
End Function
%>

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 20:51 #18

caspers>> ka du skrive den om så man ikke ska klikke på "Lookup"... men den gør det aoutomatisk når siden loader..

Synes godt om

caspers Nybegynder

29. januar 2003 - 21:29 #19

Bare lad funktionen NSlookup blive der og skriv følgende for at få hostnavnet:

strReturn = NSlookup(Request.ServerVariables("REMOTE_ADDR"))

Synes godt om

jesperkh Nybegynder

29. januar 2003 - 21:48 #20

caspers>>> Takker mange gange og kvittere :-)))

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS