Hvordan skjuler jeg data uden at den bliver talt med.
Hvordan kan jeg gemme mine data uden den bliver talt med på siden selv om den bliver skjult?Det vil sige jeg har nogle data'er på siden og vil gerne skjule den, men når siden bliver vist og jeg har valgt at få vist 20 af gangen, så bliver der kun vist 19 nogle gange eller kun 5, det er lidt forskelligt.
I min database har jeg et felt hvor jeg kan vælge om den data skal blive vist. Det vil sige jeg kan vælge ja for at den skal blive vist eller nej for at den ikke skal blive vist.
Her for neden kan I se hele coden til siden.
<%
x_kategori_select = Request.QueryString("kategori")
x_antal = Request.Form("antal")
xx_antal = Request.QueryString("antal")
if x_antal <> "" then
x_antal_select = x_antal
elseif xx_antal <> "" then
x_antal_select = xx_antal
else
x_antal_select = "20"
end if
intPage = Request("side")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
x_orden = Request.QueryString("orden")
if x_orden <> "" then
x_orden_select = "desc"
end if
%>
<html>
<head>
<title>Film databasen :: J</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="imagetoolbar" content="no">
<meta http-equiv="imagetoolbar" content="false">
<style type="text/css">
<!--
body,td,th {
color: #000000;
}
body {
background-color: #336699;
}
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: underline;
font-weight: bold;
color: #CCCCCC;
}
a:active {
text-decoration: none;
color: #666666;
}
.knap{
font-family: Verdana,Sans;
color: #ffffff;
font-size: 8.0pt;
font-weight: bold;
border: 1px solid #000000;
background-color: #5582b0
}
.style1 {color: #FF0000}
-->
</style></head>
<body oncontextmenu="return false"><center>
<p><b>Film databasen :: J</b><br>!!OBS!! - Her er en liste over alle de film jeg har set og vil se.<br><font color="#FFFFFF">Alle de film der står på siden, kan købes hos </font>
<a href="http://www.dvd.dk" target="_blank"><font color="#FF0000">http://www.dvd.dk</font></a><font color="#FFFFFF"> eller lejes hos </font>
<a href="http://www.blockbuster.dk" target="_blank"><font color="#FF0000">http://www.blockbuster.dk</font></a><br>
<%
if x_kategori_select <> "" then
Response.Write "!! Du befinder dig i kategorien : <b>" & x_kategori_select & "</b> !!"
else
Response.Write "!! Alle film titler bliver vist !!"
end if
Response.Write "</p>"
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/log/filmdataer.mdb")
Conn.Open DSN
strSQL = "Select * from x_kategori order by x_kategori"
Set rs = Conn.Execute(strSQL)
Response.Write "<center>"
Do
x_kategori = rs("x_kategori")
Response.Write " | "
Response.Write "<a href='index.asp?kategori=" & x_kategori & "&side=1&antal=" & x_antal_select & "' title='" & x_kategori & "'>"
if x_kategori = x_kategori_select then
Response.Write "<b>"
Response.Write "" & x_kategori & ""
Response.Write "</b>"
else
Response.Write "" & x_kategori & ""
end if
Response.Write "</a>"
rs.MoveNext
Loop While Not rs.EOF
Response.Write " | "
Response.Write "<a href='index.asp?antal=" & x_antal_select & "' title='Alle'>"
if x_kategori_select <> "" then
Response.Write "Alle"
else
Response.Write "<b>"
Response.Write "Alle"
Response.Write "</b>"
end if
Response.Write "</a> |"
Response.Write "</center>"
Conn.Close
Set Conn = Nothing
%>
<hr>
<%
DefaultOrder = ""
DefaultOrderType = ""
DefaultFilter = ""
OrderBy = ""
If Request.QueryString("order").Count > 0 Then
OrderBy = Request.QueryString("order")
If Session("index_film_OB") = OrderBy Then
If Session("index_film_OT") = "ASC" Then
Session("index_film_OT") = "DESC"
Else
Session("index_film_OT") = "ASC"
End if
Else
Session("index_film_OT") = "ASC"
End If
Session("index_film_OB") = OrderBy
Session("index_film_REC") = 1
Else
OrderBy = Session("index_film_OB")
If OrderBy = "" Then
OrderBy = DefaultOrder
Session("index_film_OB") = OrderBy
Session("index_film_OT") = DefaultOrderType
End If
End If
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/log/filmdataer.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
if x_kategori_select <> "" then
strSQL = "Select * from index_film where kategori='" & x_kategori_select & "'"
If OrderBy <> "" Then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("index_film_OT")
End If
else
strSQL = "Select * from index_film"
If OrderBy <> "" Then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("index_film_OT")
End If
end if
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = x_antal_select
strPage = x_antal_select
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<form name='antal' method='post' action='/index.asp?kategori=" & x_kategori_select & "&side=" & intPage & "&antal=" & x_antal_select & "'>"
Response.Write "<font face='Verdana' size='1' color='#000000'>Der bliver vist <b>" & x_antal_select & "</b> pr. side.<br><b>Vis</b> </font>"
Response.Write "<select name='antal' onchange='this.form.submit();'>"
if x_antal_select = "5" then
Response.Write "<option value='5' selected>5</option>"
else
Response.Write "<option value='5'>5</option>"
end if
if x_antal_select = "10" then
Response.Write "<option value='10' selected>10</option>"
else
Response.Write "<option value='10'>10</option>"
end if
if x_antal_select = "20" then
Response.Write "<option value='20' selected>20</option>"
else
Response.Write "<option value='20'>20</option>"
end if
if x_antal_select = "30" then
Response.Write "<option value='30' selected>30</option>"
else
Response.Write "<option value='30'>30</option>"
end if
if x_antal_select = "50" then
Response.Write "<option value='50' selected>50</option>"
else
Response.Write "<option value='50'>50</option>"
end if
if x_antal_select = "100" then
Response.Write "<option value='100' selected>100</option>"
else
Response.Write "<option value='100'>100</option>"
end if
Response.Write "</select>"
Response.Write "<br>"
If Clng(intPage) > 1 Then
Response.Write "<a href=index.asp?kategori=" & x_kategori_select & "&side=" & intPage - 1 & "&antal=" & x_antal_select & "><font face='Verdana' size='1' color='#000000'><< Forrige " & strPage & "</font></a>"
Else
Response.Write " "
End If
Response.Write " | "
For intNum = 1 To intPageCount
Response.Write " <a href=index.asp?kategori=" & x_kategori_select & "&side=" & intNum & "&antal=" & x_antal_select & "><font face='Verdana' size='1' color='#000000'>" & intNum & "</font></a> |"
Next
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=index.asp?kategori=" & x_kategori_select & "&side=" & intPage + 1 & "&antal=" & x_antal_select & "><font face='Verdana' size='1' color='#000000'>Næste " & strPage & " >></font></a> "
Else
Response.Write " "
End If
Response.Write "<br><font face='Verdana' size='1' color='#000000'>Side " & intPage & ".</font>"
Response.Write "</form>"
Response.Write "<table width='900' border='0' cellspacing='0' cellpadding='0'>"
Response.Write "<tr><td>"
Response.Write "<table width='900' border='0' cellspacing='2' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td align='left' valign='top' bgcolor='#CCCCCC'>"
%>
<a href="/index.asp?kategori=<%= x_kategori_select %>&side=<%= intPage %>&antal=<%= x_antal_select %>&order=<%= Server.URLEncode("Kategori") %>"><font face="Verdana" size="2" color="#000000">Kategori </font><% If OrderBy = "Kategori" Then %><font face="Webdings" color="#000000"><% If Session("index_film_OT") = "ASC" Then %>5<% ElseIf Session("index_film_OT") = "DESC" Then %>6<% End If %></font><% End If %></a>
<%
Response.Write "</td>"
Response.Write "<td align='center' valign='top' bgcolor='#CCCCCC'>"
%>
<a href="index.asp?kategori=<%= x_kategori_select %>&side=<%= intPage %>&antal=<%= x_antal_select %>&order=<%= Server.URLEncode("title") %>"><font face="Verdana" size="2" color="#000000">title </font><% If OrderBy = "title" Then %><font face="Webdings" color="#000000"><% If Session("index_film_OT") = "ASC" Then %>5<% ElseIf Session("index_film_OT") = "DESC" Then %>6<% End If %></font><% End If %></a>
<%
Response.Write "</td>"
Response.Write "<td align='center' valign='top' bgcolor='#CCCCCC'>Cover 1</td>"
Response.Write "<td align='center' valign='top' bgcolor='#CCCCCC'>Cover 2</td>"
Response.Write "<td align='center' valign='top' bgcolor='#CCCCCC'>Cover 3</td>"
Response.Write "</tr>"
bgColor = "#FFFFFF"
Do While Not rs.EOF And intRecCount > 0
x_id = rs("ID")
x_vis = rs("vis")
x_kategori = rs("kategori")
x_title = rs("title")
x_billede1_link = rs("Billede1_link")
x_Billede1 = rs("Billede1")
x_billede2_link = rs("Billede1_link")
x_Billede2 = rs("Billede2")
x_billede3_link = rs("Billede1_link")
x_Billede3 = rs("Billede3")
if x_vis = "ja" then
Response.Write "<tr>"
Response.Write "<td width='200' align='left' valign='top' bgcolor='" & bgColor & "'>" & x_kategori & "</td>"
Response.Write "<td width='400' align='left' valign='top' bgcolor='" & bgColor & "'>" & x_title & "</td>"
If Not IsNull(x_Billede1) Then
Response.Write "<form name='form1' method='post' action='/sider/pics_stor1.asp?ID=" & x_id & "' target='_blank'>"
end if
Response.Write "<td width='100' align='center' valign='center' bgcolor='" & bgColor & "'>"
If Not IsNull(x_Billede1) Then
Response.Write "<input class='knap' type='submit' name='Submit' value='Se Cover'>"
else
Response.Write "X"
end if
Response.Write "</td>"
If Not IsNull(x_Billede1) Then
Response.Write "</form>"
end if
If Not IsNull(x_Billede2) Then
Response.Write "<form name='form1' method='post' action='/sider/pics_stor2.asp?ID=" & x_id & "' target='_blank'>"
end if
Response.Write "<td width='100' align='center' valign='center' bgcolor='" & bgColor & "'>"
If Not IsNull(x_Billede2) Then
Response.Write "<input class='knap' type='submit' name='Submit' value='Se Cover'>"
else
Response.Write "X"
end if
Response.Write "</td>"
If Not IsNull(x_Billede2) Then
Response.Write "</form>"
end if
If Not IsNull(x_Billede3) Then
Response.Write "<form name='form1' method='post' action='/sider/pics_stor3.asp?ID=" & x_id & "' target='_blank'>"
end if
Response.Write "<td width='100' align='center' valign='center' bgcolor='" & bgColor & "'>"
If Not IsNull(x_Billede3) Then
Response.Write "<input class='knap' type='submit' name='Submit' value='Se Cover'>"
else
Response.Write "X"
end if
Response.Write "</td>"
If Not IsNull(x_Billede3) Then
Response.Write "</form>"
end if
Response.Write "</tr>"
end if
intRecCount = intRecCount - 1
rs.MoveNext
if( bgColor = "#FFFFFF" ) then
bgColor = "#DDE4E7"
else
bgColor = "#FFFFFF"
end if
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "</table>"
Response.Write "</td></tr></table>"
Response.Write "<form name='antal' method='post' action='/index.asp?kategori=" & x_kategori_select & "&side=" & intPage & "&antal=" & x_antal_select & "'>"
Response.Write "<font face='Verdana' size='1' color='#000000'>Der bliver vist <b>" & x_antal_select & "</b> pr. side.<br><b>Vis</b> </font>"
Response.Write "<select name='antal' onchange='this.form.submit();'>"
if x_antal_select = "5" then
Response.Write "<option value='5' selected>5</option>"
else
Response.Write "<option value='5'>5</option>"
end if
if x_antal_select = "10" then
Response.Write "<option value='10' selected>10</option>"
else
Response.Write "<option value='10'>10</option>"
end if
if x_antal_select = "20" then
Response.Write "<option value='20' selected>20</option>"
else
Response.Write "<option value='20'>20</option>"
end if
if x_antal_select = "30" then
Response.Write "<option value='30' selected>30</option>"
else
Response.Write "<option value='30'>30</option>"
end if
if x_antal_select = "50" then
Response.Write "<option value='50' selected>50</option>"
else
Response.Write "<option value='50'>50</option>"
end if
if x_antal_select = "100" then
Response.Write "<option value='100' selected>100</option>"
else
Response.Write "<option value='100'>100</option>"
end if
Response.Write "</select>"
Response.Write "<br>"
If Clng(intPage) > 1 Then
Response.Write "<a href=index.asp?kategori=" & x_kategori_select & "&side=" & intPage - 1 & "&antal=" & x_antal_select & "><font face='Verdana' size='1' color='#000000'><< Forrige " & strPage & "</font></a>"
Else
Response.Write " "
End If
Response.Write " | "
For intNum = 1 To intPageCount
Response.Write " <a href=index.asp?kategori=" & x_kategori_select & "&side=" & intNum & "&antal=" & x_antal_select & "><font face='Verdana' size='1' color='#000000'>" & intNum & "</font></a> |"
Next
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=index.asp?kategori=" & x_kategori_select & "&side=" & intPage + 1 & "&antal=" & x_antal_select & "><font face='Verdana' size='1' color='#000000'>Næste " & strPage & " >></font></a> "
Else
Response.Write " "
End If
Response.Write "</form>"
%>
<hr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/log/filmdataer.mdb")
Conn.Open DSN
strSQL = "Select * from x_kategori order by x_kategori"
Set rs = Conn.Execute(strSQL)
Response.Write "<center>"
Do
x_kategori = rs("x_kategori")
Response.Write " | "
Response.Write "<a href='index.asp?kategori=" & x_kategori & "&side=1&antal=" & x_antal_select & "' title='" & x_kategori & "'>"
if x_kategori = x_kategori_select then
Response.Write "<b>"
Response.Write "" & x_kategori & ""
Response.Write "</b>"
else
Response.Write "" & x_kategori & ""
end if
Response.Write "</a>"
rs.MoveNext
Loop While Not rs.EOF
Response.Write " | "
Response.Write "<a href='index.asp?antal=" & x_antal_select & "' title='Alle'>"
if x_kategori_select <> "" then
Response.Write "Alle"
else
Response.Write "<b>"
Response.Write "Alle"
Response.Write "</b>"
end if
Response.Write "</a> |"
Response.Write "</center>"
Conn.Close
Set Conn = Nothing
%>
</center>
</body>
</html>
