cookie fråga

27 svar · 552 visningar · startad av LR^evil.sid 2 maj 2002

LR^evil.sidMedlem sedan maj 2002560 inlägg

Frågan2 maj 2002 12:57#1

skulle göra en besöksräknare men den vill inte räkna upp när jag går till sidan, inte när några andra av mina polare gör det heller.

[red]if request.servervariables("local_addr") = "127.0.0.1" or request.servervariables("local_addr") = "192.168.0.1" then

else
	if request.cookies("rainbow") =< date then
		if session("once") = false then
			session("once") = true
			dim physicalFile, AspObj, objectFile, visits

			physicalFile = Server.MapPath("\") & "\visits.log"
			Set AspObj = Server.CreateObject("Scripting.FileSystemObject") 
			Set objectFile = AspObj.OpenTextFile(physicalFile,1,true)

			visits = objectFile.readline

			physicalFile = Server.MapPath("\") & "\visits.log"
			Set AspObj = Server.CreateObject("Scripting.FileSystemObject") 
			Set objectFile = AspObj.OpenTextFile(physicalFile,2,true)

			visits = visits + 1
			objectFile.writeline visits

			objectFile.close

			set AspObj = nothing
			set objectFile = nothing

			physicalFile = ""
			visits = ""
		end if
		response.cookies("rainbow") = date
		response.cookies("rainbow").expires = dateadd("d",1,date)
	else
		response.cookies("rainbow") = date
		response.cookies("rainbow").expires = dateadd("d",1,date)
	end if
end if[/red]

@ndersMedlem sedan juni 200032 967 inlägg

3 maj 2002 06:24#2

Prova att göra en typkonvertering på cookiedatumvärdet:

if Cdate(request.cookies("rainbow")) =< date then

Välkommen till webForum dessutom! :)

Mvh,

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 10:44#3

konverteringen ger en "type mismatch". har du någon annan idé?

tack för välkommnandet.

@ndersMedlem sedan juni 200032 967 inlägg

3 maj 2002 10:48#4

Då verkar det som om cookievärdet inte är ett giltigt datum. Hur ser cookievärdet ut?

response.write request.cookies("rainbow")

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 10:58#5

2002-05-03

ser det ut..

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 11:01#6

i övrigt ser det inte ut att vara fel på koden nånstans eller?

pirroMedlem sedan aug. 2001226 inlägg

3 maj 2002 12:29#7

request.cookies("sak")("undersak") testa

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 15:58#8

vad skulle det vara för "undersak" då?

LarsGMedlem sedan dec. 200012 464 inlägg

3 maj 2002 16:03#9

Om du byter

if request.cookies("rainbow") =< date then

till

if request.cookies("rainbow") <= date then

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 16:17#10

det funkar inte. den räknar inte upp.

kände att det kanske är nödvändigt att berätta att jag tar bort cookien som finns innan jag börjar testa. sedan testar jag sidan igen. stänger browsern. sedan testar jag igen och den räknar inte upp.

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 19:51#11

ingen som har nån idé?

@ndersMedlem sedan juni 200032 967 inlägg

3 maj 2002 19:54#12

Har du med typkonverteringen i jämförelsen när du provar LarsGs förslag?

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 19:59#13

Type mismatch: 'cdate'

@ndersMedlem sedan juni 200032 967 inlägg

3 maj 2002 20:07#14

Detta är märkligt. Enligt den testutskrift du gjorde tidigare så verkar det ju helt klart vara ett giltigt datum som finns i cookien.

Hur ser koden ut när du har med typkonverteringen?

Om du kör följande, vad får du då för resultat?

response.write isDate(request.cookies("rainbow"))

Mvh,

LR^evil.sidMedlem sedan maj 2002560 inlägg

3 maj 2002 20:12#15

så här ser koden ut nu... inte mycket ändringar.

[red]
<%
	if request.servervariables("local_addr") = "127.0.0.1" or request.servervariables("local_addr") = "192.168.0.1" then

	else
		if cdate(request.cookies("rainbow")) <= date then

			if session("once") = false then
				session("once") = true
				dim physicalFile, AspObj, objectFile, visits

				physicalFile = Server.MapPath("\") & "\visits.log"
				Set AspObj = Server.CreateObject("Scripting.FileSystemObject") 
				Set objectFile = AspObj.OpenTextFile(physicalFile,1,true)

				visits = objectFile.readline

				physicalFile = Server.MapPath("\") & "\visits.log"
				Set AspObj = Server.CreateObject("Scripting.FileSystemObject") 
				Set objectFile = AspObj.OpenTextFile(physicalFile,2,true)

				visits = visits + 1
				objectFile.writeline visits

				objectFile.close

				set AspObj = nothing
				set objectFile = nothing

				physicalFile = ""
				visits = ""
			end if
			response.cookies("rainbow") = date
			response.cookies("rainbow").expires = dateadd("d",1,date)
		else
			response.cookies("rainbow") = date
			response.cookies("rainbow").expires = dateadd("d",1,date)
		end if
	end if
%>[/red]

isDate ger True

LR^evil.sidMedlem sedan maj 2002560 inlägg

4 maj 2002 11:24#16

borde koden inte fungera?

@ndersMedlem sedan juni 200032 967 inlägg

4 maj 2002 11:29#17

Jo, jag har stirrat mig blind på din kod, och kan inte förstå varför den inte fungerar.

Eftersom IsDate() skriker true, så kan du ju rimligtvis inte få en type mismatch när du försöker göra en subtypskonvertering...

*kliar sig i huvet*

LR^evil.sidMedlem sedan maj 2002560 inlägg

4 maj 2002 11:40#18

det här är de enda koden innan include-filen

[red]<% @language=vbscript %>
<% option explicit %>
<% response.buffer = true %>
<% dim x %>
<!-- #include file='visits.inc' -->[/red]

koden jag publicerdade tidigare ligger i include-filen.

@ndersMedlem sedan juni 200032 967 inlägg

4 maj 2002 11:46#19

Om du plockar bort den yttre if-satsen (som kollar ip-adress), och kör includefilen för sig själv?

LR^evil.sidMedlem sedan maj 2002560 inlägg

4 maj 2002 11:51#20

fortfarande type mismatch
--
en tanke är att jag struntar i att knacka den här själv om någon vet ett script som räknar besök med kriteriet att de får besöka sidan hur många gånger som hellst men räknaren räknar dem bara som 1 besökare per dag.