Avatar billede larsen45 Juniormester
03. marts 2005 - 18:10 Der er 5 kommentarer og
1 løsning

skærmopløsningen fra besøgende til access databasen

Jeg har det problem at jeg ikke ved hvordan jeg
kan få fat i folks skærmopløsning når de besøger ens hjemmeside.
Jeg vil også gerne have information og operativsystem.
Og hvis der er flere ting som jeg har mulighed for at medtage.

Jeg indhenter i forvejen dato IP browser Ref. side osv.
på denne måde her:
rs("IP") = Request.ServerVariables("REMOTE_ADDR")

Men der er vist nået med at ServerVariables ikke kan bruges til skærmopløsning og operativsystem så har lidt af et problem der.


Så hjælp mig tak
Avatar billede jamiros Novice
03. marts 2005 - 18:16 #1
Avatar billede larsen45 Juniormester
03. marts 2005 - 18:29 #2
jeg har lige kigget på det link. Jeg vil helst være fri for Javascript hvis det er muligt. Men ellers tak for linket.

Det må være muligt at kunne gøre det på andre måder.
Avatar billede olebole Juniormester
03. marts 2005 - 18:41 #3
<ole>

Nej, den eneste løsning er JavaScript  :)

/mvh
</bole>
Avatar billede larsen45 Juniormester
03. marts 2005 - 18:50 #4
okay hvis det er eneste mulighed så må jeg bøje mig og bruge javascript
Men så kommer den alvorlige del af det.
Hvordan for jeg det til at spille med dette her hvis jeg skal have lagt skærmopløsning og operativsystem i databasen ved besøg på websider.

<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "DBQ=" & Server.Mappath("Mindatabase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from Mintabel"
rs.Open strSQL, MyConn, 1, 3

rs.addnew
rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs("Browser") = Request.servervariables("HTTP_USER_AGENT")
rs("Sprog") = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
rs("Refside") = Request.ServerVariables("HTTP_REFERER")

rs("Dato") = Now()
rs.update

rs.Close
Set rs = Nothing
MyConn.Close
Set MyConn = Nothing
%>
Avatar billede olebole Juniormester
03. marts 2005 - 19:30 #5
Have no clue ... hvor står det?
Avatar billede Slettet bruger
19. marts 2006 - 23:17 #6
<% if (request.querystring("width") = "" OR request.querystring("height") = "") then%>
<html>
<body>
<script language="Javascript">
document.location = '<%=request.servervariables("SCRIPT_NAME")%>?width=' + screen.width + '&height=' + screen.height + ''
</script>
</body>
</html>
<%
else
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "DBQ=" & Server.Mappath("Mindatabase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from Mintabel"
rs.Open strSQL, MyConn, 1, 3

rs.addnew
rs("width") = request.querystring("width")
rs("height") = request.querystring("height")

rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs("Browser") = Request.servervariables("HTTP_USER_AGENT")
rs("Sprog") = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
rs("Refside") = Request.ServerVariables("HTTP_REFERER")

rs("Dato") = Now()
rs.update

rs.Close
Set rs = Nothing
MyConn.Close
Set MyConn = Nothing
end if
%>
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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