Dum cookie fråga.. enkelt särket

9 svar · 341 visningar · startad av voigtann1 10 juni 2002

voigtann1Medlem sedan juni 20019 519 inlägg

Frågan10 juni 2002 11:02#1

Jag håller på med en "theme selecter" som ser ungefär ut så här:

<%
	Session.LCID = 1053
	Set Databas = Server.CreateObject("ADODB.Connection")
	MdbFilePath = Server.MapPath("db/db.mdb")
	Session("dbasepath") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
	Databas.Open Session("dbasepath")

	if Request.QueryString("style") <> "" then
		stile = "SELECT * FROM style WHERE id="& Request.QueryString("style")
		Set style = Server.CreateObject("ADODB.Recordset")
		style.Open stile,Session("dbasepath") ,3 ,3
		on error resume next
		response.write "<link rel=""stylesheet"" href=""css/"& style("css") &".css"" type=""text/css"">"
	else
		response.redirect "default.asp?style=1"
	end if

%>

Jag försöker fixa så att OM man har besökt sidan innan och har valt ett theme så ska cookien ändras... om det går... tack för era svar.

Jesper TMedlem sedan nov. 20017 144 inlägg

10 juni 2002 11:57#2

Kanske får ändra lite, har inte kollat allt.
MVH Jesper

 <%

	Session.LCID = 1053
	[red]if Request.Cookies("css")<>"" then[/red]
Set Databas = Server.CreateObject("ADODB.Connection")
	MdbFilePath = Server.MapPath("db/db.mdb")
	Session("dbasepath") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
	Databas.Open Session("dbasepath")

	if Request.QueryString("style") <> "" then
		stile = "SELECT * FROM style WHERE id="& Request.QueryString("css")
		Set style = Server.CreateObject("ADODB.Recordset")
		style.Open stile,Session("dbasepath") ,3 ,3
		[red]Response.Cookies("css") = Request.QueryString("style")	
Response.cookies("css").expires = DateAdd("d",365,Now())	[/red]
response.write "<link rel=""stylesheet"" href=""css/"& style("css") &".css"" type=""text/css"">"
	else
		response.redirect "default.asp?style=1"
	end if
[red]else
response.write "<link rel=""stylesheet"" href=""css/"& Request.Cookies("css") &".css"" type=""text/css"">"
end if[/red]
%>

voigtann1Medlem sedan juni 20019 519 inlägg

10 juni 2002 12:26#3

oohhh... nu kom jag på en till fråga om detta.. kolla på min kod igen.
Om jag vill inte ha en querystring som styr themat så borde man ju kunna göra det med en cookie hela tiden... om man besöker sidan för första gången så blir cookien = 1 automatiskt.. går det?

Jesper TMedlem sedan nov. 20017 144 inlägg

10 juni 2002 12:40#4

Om jag vill inte ha en querystring som styr themat så borde man ju kunna göra det med en cookie hela tiden... om man besöker sidan för första gången så blir cookien = 1 automatiskt.. går det?

Svar: Ja
Det kan du säkert klura ut själv! ;)

voigtann1Medlem sedan juni 20019 519 inlägg

10 juni 2002 13:47#5

<%

	Session.LCID = 1053
	
	Set Databas = Server.CreateObject("ADODB.Connection")
	MdbFilePath = Server.MapPath("db/db.mdb")
	Session("dbasepath") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
	Databas.Open Session("dbasepath")
		if Request.Cookies("css") = "" then
				Response.Cookies("css") = "1"
				Response.cookies("css").expires = DateAdd("d",365,Now())
		end if
		stile = "SELECT * FROM style WHERE id="& Request.Cookies("css")
		Set style = Server.CreateObject("ADODB.Recordset")
		style.Open stile,Session("dbasepath") ,3 ,3
		response.write "<link rel=""stylesheet"" href=""css/"& style("css") &".css"" type=""text/css"">"
%>

Den fungera inte.. provade att ta bort cookien.. men den ändras ändå inte..

icaaqMedlem sedan okt. 20005 273 inlägg

10 juni 2002 14:20#6

Liten fråga på sidan om:

När använder du dig av recordsetet?

voigtann1Medlem sedan juni 20019 519 inlägg

10 juni 2002 14:46#7

jag har fixat det

icaaq > jag har en databas för att personer ska kunna välja olika skins så tex:

icaaq = ID 1
då fattar folk att det är du som har gjort temat

solbulleMedlem sedan mars 20015 287 inlägg

10 juni 2002 14:54#8

Visa gärna det som var fel så att andra kan dra nytta av det. :)

icaaqMedlem sedan okt. 20005 273 inlägg

10 juni 2002 20:45#9

Jag brukar alltid använda mig av följande när jag gör cookies

[red]
Response.Cookies("mindomän")("nyckel1") = Värde1
Response.Cookies("mindomän")("nyckel2") = Värde2
...osv
Response.Cookies("mindomän").expires = DateAdd("D", 360, Date())
[/red]

Jag vet inte hur du gjorde i detta fall, men det var kul att du har fixat det :)

voigtann1Medlem sedan juni 20019 519 inlägg

10 juni 2002 21:25#10

response.write "<link rel=""stylesheet"" href=""css/"& style("css") &".css"" type=""text/css"">"

Jag har fixat det men innan stod det istället för style("CSS") stod det response.cookies("css")

Tack solbulle.. ska nog göra så som du gör :)