Tema för Sidor

8 svar · 549 visningar · startad av akke 16 dec. 2008

akkeMedlem sedan aug. 200827 inlägg

Frågan16 dec. 2008 14:11#1

hur ja kan göra tema för sidor

tema.asp

<%
if Request.QueryString("tema") = "" then
  Response.cookies("tema") = "css/style.css"
elseif request.querystring("tema") = "style.css" then
  response.cookies("tema") = "css/style.css"
elseif request.querystring("tema") = "oldstyle.css" then
  response.cookies("tema") = "css/oldstyle.css"
end if
%> 

<html>
<head>

<link rel=stylesheet href="<%=Request.cookies("tema")%>type="text/css">

</head>

<body>
<a href="tema.asp?tema=style.css">Style1</a>
<br>
<a href="tema.asp?tema=oldstyle.css">Style2</a>

</body>
</html>  
</body>
</html>

ja har provat sådär vad är det fel? eller vad ä det som fattas :bire

@ndersMedlem sedan juni 200032 967 inlägg

16 dec. 2008 14:15#2

Om du tittar på HTML-koden så ser du vad som är fel.

<link rel=stylesheet href="<%=Request.cookies("tema")%>" type="text/css">

akkeMedlem sedan aug. 200827 inlägg

16 dec. 2008 14:18#3

@nders skrev:

Om du tittar på HTML-koden så ser du vad som är fel.
<link rel=stylesheet href="<%=Request.cookies("tema")%>" type="text/css">

vad ä det fel på den?

akkeMedlem sedan aug. 200827 inlägg

16 dec. 2008 14:21#4

<%
if Request.QueryString("tema") = "" then
Response.cookies("tema") = "css/style.css"
elseif request.querystring("tema") = "style.css" then
response.cookies("tema") = "css/style.css"
elseif request.querystring("tema") = "oldstyle.css" then
response.cookies("tema") = "css/oldstyle.css"
end if
%>

</head>

<body>
<a href="tema.asp?tema=style.css">Style1</a>
<br>
<a href="tema.asp?tema=oldstyle.css">Style2</a>

</body>
</html>
</body>
</html>

har provat sådär fungerar inte heller :( har provat alla sätt fungerar inte heller

@ndersMedlem sedan juni 200032 967 inlägg

16 dec. 2008 14:30#5

Vad är det som inte funkar då? Och hur ser HTML-koden ut då?

akkeMedlem sedan aug. 200827 inlägg

16 dec. 2008 14:40#6

har löst tack :D har missat databasen:D

akkeMedlem sedan aug. 200827 inlägg

16 dec. 2008 14:44#7

och undrar en sak till hur ska ja göra inlägen lös?

vart liger det?

@ndersMedlem sedan juni 200032 967 inlägg

16 dec. 2008 14:47#8

Om jag förstår din fråga så borde det finnas "Acceptera som slutgiltigt svar" längst till höger på den rödbruna raden som tillhör inlägget som lösningen ligger i.

NapsterMedlem sedan nov. 200810 inlägg

26 dec. 2008 11:30#9

Är det inte enklare att koppla dom till ett administrationssystem som jag har gjort jag kopplade såhär

<%
If objRS("christmasstyle")=1 Then
Response.Write "<link href='css/jul.css' rel='stylesheet' type='text/css'>"
Elseif ObjRS("nyarsafton")=1 Then
Response.Write "<link href='css/nyarsafton.css' rel='stylesheet' type='text/css'>"
Elseif ObjRS("pask")=1 Then
Response.Write "<link href='css/pask.css' rel='stylesheet' type='text/css'>"
Elseif ObjRS("normaltema")=1 Then
Response.Write "<link href='css/style.css' rel='stylesheet' type='text/css'>"
End If
%>

Sen har jag kopplat det till Checkboxes i mitt adminsystem så att när jag kryssar i dom så sätter den en 1:a i databasen på det fältet som t.ex Christmas.

Det ser ut såhär.

<%
If Request.Form("christmas") = "true" Then
christmas = "1"
Else
christmas = ""
End if
If Request.Form("nyarsafton") = "true" Then
nyarsafton = "1"
Else
nyarsafton = ""
End If
If Request.Form("pask") = "true" Then
pask = "1"
Else
pask = ""
End If
If Request.Form("normal") = "true" Then
normaltema = "1"
Else
normaltema = ""
End If
%>
<form name="tema" method="post" action="admin.asp?tema=change">
<input type="checkbox" name="christmas" value="true"> Jultema<br>
<input type="checkbox" name="nyarsafton" value="true"> Nyårstema<br>
<input type="checkbox" name="pask" value="true"> Påsktema<br>
<input type="checkbox" name="normal" value="true"> Standardtema<br>
<input type="submit" name="skicka" value="Ändra Tema">
</form>
<%
If Request.Querystring("tema")="change" Then
ObjConn.Execute("INSERT INTO tema (christmas, nyarsafton, pask, normal) VALUES ('" & christmas &"', " & nyarsafton &"', " & pask &"', " & normal &"')")
Response.Write "Temat är nu sparat!"
End If
%>

Kan vara lite slarvfel här och där...