webForumDet fria alternativet
Logga in

Java till asp

7 svar · 278 visningar · startad av henkepenke

henkepenkeMedlem sedan juli 200327 inlägg
#1

Tja!
Vet inte om jag lagt detta inlägg rätt, men jag testar.

Jag gör ju ett statistikapplication till min sida och undrar 2 saker...

Jag vill logga upplösning och antal färger i databasen och jag har följande javascript för att få ut upplösningen:

<script language="JavaScript"> 
document.write(screen.width," x ",screen.height); 
</script>

Men hur gör jag för att de ska sparas i en variabel så att jag kan använda den? Nått sånt här menar jag...


<script language="JavaScript"> 
document.write(screen.width," x ",screen.height); 
</script>

upplosning = -----
@ndersMedlem sedan juni 200032 969 inlägg
#2

Du måste skicka värdena till servern på något sätt, exempelvis genom querystrings. Exempel:

<script language="JavaScript"> 
location.href='sidan.asp?width='+screen.width+'&height='+screen.height;
</script>

Sedan är det bara att på sidan.asp använda request.querystring.

mvh

henkepenkeMedlem sedan juli 200327 inlägg
#3

En dum fråga...hur skulle den request.querystring se ut då?

@ndersMedlem sedan juni 200032 969 inlägg
#4
intHeight = Request.Querystring ("height")
intWidth = Request.Querystring ("width")
henkepenkeMedlem sedan juli 200327 inlägg
#5

Jag har såhär nu...

	datum = date()
	manad = Month(Now)
	ar = Year(Date) 
	dag = Day(Date)
	vecka = DatePart("ww", Date(), 2)
	tid = FormatDateTime(now,4)
	ip = Request.ServerVariables("remote_host")
	sida = Request.ServerVariables("URL")
	fran = request.servervariables("HTTP_REFERER")
	
	Function getBrowser()
	Dim Browser, ua
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	
	If Instr(ua, "MSIE") Then
		If Instr(ua, "MSIE 6.") Then
			Browser = "Microsoft Internet Explorer 6.x"
		ElseIf Instr(ua, "MSIE 5.") Then
			Browser = "Microsoft Internet Explorer 5.x"
		ElseIf Instr(ua, "MSIE 4.") Then
			Browser = "Microsoft Internet Explorer 4.x"
		ElseIf Instr(ua, "MSIE 3.") Then
			Browser = "Microsoft Internet Explorer 3.x"
			If Instr(ua, "MSIE 3.02") Then
				Browser = "Microsoft Internet Explorer 3.02"
			End If
		Else
			Browser = "Microsoft Internet Explorer"
		End If
	ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
		If Instr(ua, "Netscape6") Then
			Browser = "Netscape Navigator 6.x"
		ElseIf Instr(ua, "Mozilla/4") Then
			Browser = "Netscape Navigator 4.x"
		ElseIf Instr(ua, "Mozilla/3") Then
			Browser = "Netscape Navigator 3.x"
		Else
			Browser = "Netscape Navigator"
		End If
	ElseIf Instr(ua, "Opera") Then
		Browser = "Opera"
	End If
	
	getBrowser = Browser
End Function

	browser = getBrowser
	
	Function getOS()
	Dim System, ua, os
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	os = Request.ServerVariables("HTTP_UA_OS")
	
	If Instr(ua, "Windows 95") Or Instr(ua, "Win95") Then
		System = "Windows 95"
	ElseIf Instr(ua, "Win 9x 4.90") Then
		System = "Windows ME"
	ElseIf Instr(ua, "Windows 98") Or Instr(ua, "Win98") Then
		System = "Windows 98"
	ElseIf Instr(ua, "Windows 3.1") Or Instr(os, "Win16") Then
		System = "Windows 3.x/Windows NT 3.x"
	ElseIf Instr(ua, "NT 5.1") Or Instr(oa, "NT 5.1") Then
		System = "Windows XP"
	ElseIf Instr(ua, "NT 5") Or Instr(oa, "NT 5") Then
		System = "Windows 2000"
	ElseIf Instr(ua, "NT") Or Instr(oa, "NT") Then
		System = "Windows NT"
	ElseIf Instr(ua, "Mac") Then
		System = "Mac"
		If Instr(ua, "PowerPC") Or Instr(ua, "PPC") Then
			System = "Mac PPC"
		ElseIf Instr(ua, "68000") Or Instr(ua, "68K") Then
			System = "Mac 68K"
		End If
	ElseIf Instr(ua, "Linux") Then
		System = "Linux"
	ElseIf Instr(ua, "X11") Then
		System = "UNIX"
	End If
	
	getOS = System
End Function

	os = getOS%>
	
	<script language="JavaScript"> 
	location.href='dbas.asp?width='+screen.width+'&height='+screen.height;
	</script>
	<%
	intWidth = Request.Querystring ("width")
	intHeight = Request.Querystring ("height")

	upplosning = intWidth & intHeight
	
	Connect.Execute "Insert Into stats(datum,manad,dag,tid,vecka,ar,ip,sida,fran,browser,os,upplosning) Values('" & datum & "'," & manad & "," & dag & ",'" & tid & "','" & vecka & "','" & ar & "','" & ip & "','" & sida & "','" & fran & "','" & browser & "','" & os & "','" & upplosning & "')",,128

Men det skrivs inte ut något på upplosning i databasen. Denna filen heter dbas.asp

@ndersMedlem sedan juni 200032 969 inlägg
#6

Nej, det är inte så konstigt. Först körs all asp, sedan skickas resultatet till webbläsaren, där html och javascript tolkas.

Därför måste du ha javascriptet på den sida man kommer till som besökare, och inte göra annat än att skicka vidare till den sida som tar emot värdena och gör insert för all statistik.

WickmarkMedlem sedan juli 2003162 inlägg
#7

Du måste ha Javascript koden längst upp, eller på en annan sida som skickar användaren till den sidan som skriver in informationen i databasen. Eller kan du ju ha de i samma sida; default.asp

<% if Request.QueryString("p") = "" Then %>
     <script language="JavaScript"> 
         location.href='default.asp?width='+screen.width+'&height='+screen.height;+'&p=2'
      </script>
<% elseif Request.QueryString("p") = "2" Then 
	datum = date()
	manad = Month(Now)
	ar = Year(Date) 
	dag = Day(Date)
	vecka = DatePart("ww", Date(), 2)
	tid = FormatDateTime(now,4)
	ip = Request.ServerVariables("remote_host")
	sida = Request.ServerVariables("URL")
	fran = request.servervariables("HTTP_REFERER")
	
	Function getBrowser()
	Dim Browser, ua
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	
	If Instr(ua, "MSIE") Then
		If Instr(ua, "MSIE 6.") Then
			Browser = "Microsoft Internet Explorer 6.x"
		ElseIf Instr(ua, "MSIE 5.") Then
			Browser = "Microsoft Internet Explorer 5.x"
		ElseIf Instr(ua, "MSIE 4.") Then
			Browser = "Microsoft Internet Explorer 4.x"
		ElseIf Instr(ua, "MSIE 3.") Then
			Browser = "Microsoft Internet Explorer 3.x"
			If Instr(ua, "MSIE 3.02") Then
				Browser = "Microsoft Internet Explorer 3.02"
			End If
		Else
			Browser = "Microsoft Internet Explorer"
		End If
	ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
		If Instr(ua, "Netscape6") Then
			Browser = "Netscape Navigator 6.x"
		ElseIf Instr(ua, "Mozilla/4") Then
			Browser = "Netscape Navigator 4.x"
		ElseIf Instr(ua, "Mozilla/3") Then
			Browser = "Netscape Navigator 3.x"
		Else
			Browser = "Netscape Navigator"
		End If
	ElseIf Instr(ua, "Opera") Then
		Browser = "Opera"
	End If
	
	getBrowser = Browser
End Function

	browser = getBrowser
	
	Function getOS()
	Dim System, ua, os
	
	ua = Request.ServerVariables("HTTP_USER_AGENT")
	os = Request.ServerVariables("HTTP_UA_OS")
	
	If Instr(ua, "Windows 95") Or Instr(ua, "Win95") Then
		System = "Windows 95"
	ElseIf Instr(ua, "Win 9x 4.90") Then
		System = "Windows ME"
	ElseIf Instr(ua, "Windows 98") Or Instr(ua, "Win98") Then
		System = "Windows 98"
	ElseIf Instr(ua, "Windows 3.1") Or Instr(os, "Win16") Then
		System = "Windows 3.x/Windows NT 3.x"
	ElseIf Instr(ua, "NT 5.1") Or Instr(oa, "NT 5.1") Then
		System = "Windows XP"
	ElseIf Instr(ua, "NT 5") Or Instr(oa, "NT 5") Then
		System = "Windows 2000"
	ElseIf Instr(ua, "NT") Or Instr(oa, "NT") Then
		System = "Windows NT"
	ElseIf Instr(ua, "Mac") Then
		System = "Mac"
		If Instr(ua, "PowerPC") Or Instr(ua, "PPC") Then
			System = "Mac PPC"
		ElseIf Instr(ua, "68000") Or Instr(ua, "68K") Then
			System = "Mac 68K"
		End If
	ElseIf Instr(ua, "Linux") Then
		System = "Linux"
	ElseIf Instr(ua, "X11") Then
		System = "UNIX"
	End If
	
	getOS = System
End Function

	os = getOS
	
	intWidth = Request.Querystring ("width")
	intHeight = Request.Querystring ("height")

	upplosning = intWidth & intHeight
	
	Connect.Execute "Insert Into  stats(datum,manad,dag,tid,vecka,ar,ip,sida,fran,browser,os,u
pplosning) Values('" & datum & "'," & manad & "," & dag & ",'" & tid & "','" & vecka & "','" & ar & "','" & ip & "','" & sida & "','" & fran & "','" & browser & "','" & os & "','" & upplosning & "')",,128

   Response.Redirect("/statistics/default.asp")
end if %>

ett litet exempel bara :e

UnConedMedlem sedan jan. 2002307 inlägg
#8

Istället för att skicka det med querystrings, skulle jag
lägga in dem i en cookie.. Då är de också busenkla att ta fram mha ASP. Bara ett förslag..

133 ms totalt · 3 externa anrop · v20260731065814-full.3ab8d573
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)