Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:19 Der er 34 kommentarer og
1 løsning

find brugers styresystem

Jeg har brug for at vide hvilket OS de besøgende bruger.

skal jeg bruge request.ServerVariables ("???")

er jeg helt galt på den, eller hvordan gør jeg det???
Avatar billede Slettet bruger
17. maj 2003 - 00:20 #1
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:22 #2
du bliver nødt til at være lidt mere konkret end det...  sorry.. jeg har læst den side igennem før jeg oprettede dette spørgsmål... det bør siges jeg ikke er haj til VB
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:23 #3
jeg har fået at vide at jeg kan prøve http_UA_OS men jeg ved ikke hvordan jeg sætter koden sammen så jeg får det requestet...
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:27 #4
ville SERVER_SOFTWARE virke... da jeg testede det fik jeg Microsoft IIS/5.1 som svar men det kan jo være fordi jeg bruger IIS som lokal server ik???
Avatar billede Slettet bruger
17. maj 2003 - 00:29 #5
Request servervariables fortæller dig jo om serveren ikke klienten.

Du skal benytte f.eks.:
http://www.w3schools.com/asp/asp_browser.asp
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:37 #6
jeg kan ikke se hvad browseren har med styresystemet at gøre...

hvis du ved hvordan en linie vb kode ser ud for at finde brugerens styresystem istedet for links ville det værdsættes mere. ikke fordi jeg ikke kan læse men fordi jeg ikke normalt bruger VB.
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:37 #7
jeg ved godt det lyder som om jeg vil maddes... sorry...
Avatar billede Slettet bruger
17. maj 2003 - 00:44 #8
Helt ærligt, det koster ;)

<html>
<body><%
Set MyBrow=Server.CreateObject("MSWC.BrowserType")
%>
Du benytter <%=MyBrow.platform%>
</body>
</html>
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 00:52 #9
no problem... jeg opretter et spørsmål mere til 200 point du kan få... som tak for hjælpen...
Avatar billede sjh Nybegynder
17. maj 2003 - 01:05 #10
Hvor ser du OS henne jeg for kun

Du benytter Unknown
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:09 #11
platform
Avatar billede sjh Nybegynder
17. maj 2003 - 01:09 #12
velket OS er Unknown
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:11 #13
dont look at me... spørg ikke mig jeg havde bare brug for koden...
Avatar billede sjh Nybegynder
17. maj 2003 - 01:13 #14
virker det hos dig da?????????

hvad for du når du bruger koden:

.....
Du benytter <%=MyBrow.platform%>
......
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:14 #15
winNT
Avatar billede sjh Nybegynder
17. maj 2003 - 01:16 #16
men så kan jeg fortælle dig at det ikke virker på Windows 98 og Windows 2000
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:17 #17
Suspect hvorfor ikke... har du en bedre måde...
Avatar billede sjh Nybegynder
17. maj 2003 - 01:18 #18
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:19 #19
jeg sidder på mine forældres windows 98SE og får dette output:
Windows 98
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 01:20 #20
det virker da fint...
Avatar billede sjh Nybegynder
17. maj 2003 - 01:23 #21
Ja, men hvorfor acceptere du så en kode som ikke virker

.....
Du benytter <%=MyBrow.platform%>
......
Avatar billede roenving Novice
17. maj 2003 - 01:36 #22
Jeg får da også et korrekt svar -- omend kryptisk hvis man ikke kender M$ og XP ordentligt: Windows NT 5.1
Avatar billede sjh Nybegynder
17. maj 2003 - 01:42 #23
hvis du mener du for korrekt svar her:
http://sjh.lir.dk/eksperten/spm/353542/

så ja, men jeg bruger ikke ... <%=MyBrow.platform%>... koden



hvad for du så her:
http://sjh.lir.dk/eksperten/spm/353542/test.asp

er koden fra schulze
Avatar billede roenving Novice
17. maj 2003 - 01:47 #24
Unknown
Avatar billede sjh Nybegynder
17. maj 2003 - 01:48 #25
ja da kan du bare se, det har ikke noget med velket OS du bruger vel.
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 02:11 #26
hvad skal jeg så bruge istedet for???

hvad skal jeg ændre ved nedenstående???

<html>
<body><%
Set MyBrow=Server.CreateObject("MSWC.BrowserType")
%>
Du benytter <%=MyBrow.platform%>
</body>
</html>
Avatar billede sjh Nybegynder
17. maj 2003 - 02:13 #27
det ved jeg da ikke jeg bruger ikke den kode til at vise OS...
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 02:16 #28
ok kan du vise mig hvad du bruger istedet for???
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 02:16 #29
jeg giver med glæde nogle point for det...
Avatar billede sjh Nybegynder
17. maj 2003 - 02:45 #30
<%
  Function GetUserOS()
    strAgent = Request.Servervariables("HTTP_USER_AGENT")
    arrAgent = Split(strAgent, ";")

    For i = LBound(arrAgent) To UBound(arrAgent)
      strOS = Trim(arrAgent(i))
      If Not InStr(1, strOS, "win", vbTextCompare) = 0 Or _
        Not InStr(1, strOS, "mac", vbTextCompare) = 0 Then
        Exit For
      End If
    Next

    '-- Replace for Mac_PowerPC og Mac_68000 --
    strOS = Replace(strOS, "_", " ")

    If Right(strOS, 1) = ")" Then
      GetUserOS = Left(strOS, Len(strOS) - 1)
        Else
      GetUserOS = strOS
    End If
  End Function
%>

<%=GetUserOS%>
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 02:48 #31
hvor mange point vil du have for det???
Avatar billede sjh Nybegynder
17. maj 2003 - 02:52 #32
Ikke nogle, det var bare fordi den kode du fik af schulze ikke virkede :-)

Har lige lavet lidt om på koden:

<%
  Function GetUserOS()
    strAgent = Request.Servervariables("HTTP_USER_AGENT")
    arrAgent = Split(strAgent, ";")

    For i = LBound(arrAgent) To UBound(arrAgent)
      strOS = Trim(arrAgent(i))
      If Not InStr(1, strOS, "win", vbTextCompare) = 0 Or _
        Not InStr(1, strOS, "mac", vbTextCompare) = 0 Then
        Exit For
      End If
    Next

    '-- Replace for Mac_PowerPC og Mac_68000 --
    strOS = Replace(strOS, "_", " ")
    GetUserOS = Replace(strOS, ")", "")
  End Function
%>

<%=GetUserOS%>
Avatar billede sjh Nybegynder
17. maj 2003 - 03:05 #33
How vi skal da også have Linux med :-)

<%
  Function GetUserOS()
    strAgent = Request.Servervariables("HTTP_USER_AGENT")
    arrAgent = Split(strAgent, ";")

    For i = LBound(arrAgent) To UBound(arrAgent)
      strOS = Trim(arrAgent(i))
      If Not InStr(1, strOS, "win", vbTextCompare) = 0 Or _
        Not InStr(1, strOS, "mac", vbTextCompare) = 0 Or _
        Not InStr(1, strOS, "linux", vbTextCompare) = 0 Then
        Exit For
      End If
    Next

    '-- Replace for Mac_PowerPC og Mac_68000 --
    strOS = Replace(strOS, "_", " ")
    GetUserOS = Replace(strOS, ")", "")
  End Function
%>

<%=GetUserOS%>


Her er en som kan det hele med OS og Browser :-)
http://www.ookla.com/examples/data_trapping.txt
Avatar billede goat4dinner Nybegynder
17. maj 2003 - 03:06 #34
takker...
Avatar billede sjh Nybegynder
17. maj 2003 - 03:07 #35
det er bare ok :)
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
Kurser inden for grundlæggende programmering

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