syrolisMedlem sedan feb. 2003107 inlägg Min paging fungerar inte som den ska, jag kastas tillbaka till login-sidan när jag trycker på sidan 2 eller 3 osv. och jag hittar inte felet... (är nybörjare)
När jag är inne i admin och för muspekaren över pagingen så får jag adressen:
http:// hela den långa adressen/dagensbild/admin.asp?sida=2
Någon som kan ta sig en titt?
Som det är nu så är det bara irriterande eftersom jag måste ändra direkt i databasen i stället för att bläddra och ändra via admin som det är tänkt.
Tacksam// Sylvia
SQL = "Select * From dagsbild Order By id desc"
RecSet.Open SQL, Conn
If RecSet.EOF Then%>
<tr>
<td height="14">Ingen bild inlagd</td>
</tr>
</table>
<%Else
With RecSet
.MoveFirst
.PageSize = daps1
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize%>
<tr>
<td width="400"><b><%=RecSet("dag")%></td>
<td align="right" width="50"><a href="admin.asp?do=inne&action=change&id=<%=RecSet("id")%>"><img src="bilder/update.gif" border="0" alt="Ändra"></a> <a href="javascript:del('admin.asp?do=inne&action=delete&id=<%=RecSet("id")%>')"><img src="bilder/trash.gif" border="0" alt="Ta bort"></a></td>
</tr>
<%Count = Count + 1
RecSet.MoveNext
Loop
If Sidor > 1 Then%>
<tr>
<td colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td colspan="2"><b>
<%If Sidor <> 1 Then
For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><font color="#ff0000"><%=Sid%></font><%Else%> <a href="admin.asp?sida=<%=Sid%>"><%=Sid%></a> <%End If%>
<%Next%></b></font>
</td>
</tr>
<%End If
End If%>
<%If Session("mess") <> "" Then%>
<tr>
<td colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td colspan="2" align="center"><b>
<%
Response.Write Session("mess")
Session("mess") = ""
%></b>
</td>
</tr>
<%End If%>
</table>
<%RecSet.Close
Set RecSet = Nothing
End If
End If
@ndersMedlem sedan juni 200032 969 inlägg Hur ser koden på admin.asp ut, där du blir ivägskickad till inloggningssidan?
Hur ser den kompletta url:en ut när du är på den första sidan av pagingen?
syrolisMedlem sedan feb. 2003107 inlägg När jag loggat in på sidan är jag på URL
http://Den långa sökvägen/dagensbild/admin.asp?do=inne
När jag för pekaren över pagingen står det:
http://Den långa sökvägen/dagensbild/admin.asp?sida=2
Klickar jag på pagingen så skickas jag till loginsidan.
Adminsidans kod i sin helhet är:
<!--
************************************************
Gruvsjo Bild/Dag
Åsa Gruvsjö © 2002
[url]www.gruvsjo.com[/url]
[email]Asa@gruvsjo.com[/email]
Fri att använda om ni låter copyrightkoden stå kvar!
************************************************
-->
<%db = Server.MapPath("db/dagsbild.mdb")
Admin1 = "admin"
Admin2 = "admin"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
'#############################################################################################################
'------------------------------------------------------TOPPLISTANS ADMINLOGIN--------------------------------------------------------------------------------
'#############################################################################################################
If Request.Querystring("do") = "" Then%>
<table border="0" width="450" align="center">
<tr>
<td>Logga in och lägg till bild</td>
</tr>
<tr>
<td><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td>
<form name="regga" method="post" action="admin.asp?do=kolla">
<table>
<tr>
<td><b>AdminNamn:</b></td><td><input type="text" name="namn" size="30"></td>
</tr>
<tr>
<td><b>AdminLösen:</b></td><td><input type="password" name="losen" size="30"></td>
</tr>
<tr>
<td valign="top"> </td><td><input type="submit" value="Logga in"></td>
</tr>
<%If Session("mess") <> "" Then%>
<tr>
<td colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td align="center" colspan="2">
<%Response.Write Session("mess")
Session("mess") = ""%>
</td>
</tr>
<%End If%>
</table>
</form>
</td>
</tr>
</table>
<%End If
'#############################################################################################################
'------------------------------------------------------ADMIN LOGINCHECK---------------------------------------------------------------------------------------
'#############################################################################################################
If Request.QueryString("do") = "kolla" Then
If Request.Form("namn") = Admin1 AND Request.Form("losen") = Admin2 Then
login="ok"
Else
Session("mess") = "Fel lösenord"
Response.Redirect "admin.asp"
End If
If login="ok" Then
Session("admin") = "ok"
Session.TimeOut = 40
Response.Redirect "admin.asp?do=inne"
End If
End If
If Request.QueryString("do") = "inne" Then%>
<table width="450" align="center">
<tr>
<td height="14" colspan="2"><font size="2"><b><a href="admin.asp?do=inne">Bild/dag admin:</a> <a href="admin.asp?do=inne&action=add">Lägg till bild</a> <a href="admin.asp?do=inne&action=logut">Logga ut</a></b></font></td>
</tr>
<tr>
<td colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td>
<%If Request.Querystring("action")= "" AND Session("admin") = "ok" Then%>
<table width="100%" align="center">
<%Set RecSet = Server.CreateObject("ADODB.Recordset")
Const daps1 = 15
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
With RecSet
.CursorLocation = 3
.CacheSize = daps1
End With
SQL = "Select * From dagsbild Order By id desc"
RecSet.Open SQL, Conn
If RecSet.EOF Then%>
<tr>
<td height="14">Ingen bild inlagd</td>
</tr>
</table>
<%Else
With RecSet
.MoveFirst
.PageSize = daps1
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize%>
<tr>
<td width="400"><b><%=RecSet("dag")%></td>
<td align="right" width="50"><a href="admin.asp?do=inne&action=change&id=<%=RecSet("id")%>"><img src="bilder/update.gif" border="0" alt="Ändra"></a> <a href="javascript:del('admin.asp?do=inne&action=delete&id=<%=RecSet("id")%>')"><img src="bilder/trash.gif" border="0" alt="Ta bort"></a></td>
</tr>
<%Count = Count + 1
RecSet.MoveNext
Loop
If Sidor > 1 Then%>
<tr>
<td colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td colspan="2"><b>
<%If Sidor <> 1 Then
For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><font color="#ff0000"><%=Sid%></font><%Else%> <a href="admin.asp?sida=<%=Sid%>"><%=Sid%></a> <%End If%>
<%Next%></b></font>
</td>
</tr>
<%End If
End If%>
<%If Session("mess") <> "" Then%>
<tr>
<td colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td colspan="2" align="center"><b>
<%
Response.Write Session("mess")
Session("mess") = ""
%></b>
</td>
</tr>
<%End If%>
</table>
<%RecSet.Close
Set RecSet = Nothing
End If
End If
If Request.Querystring("action")= "add" AND Session("admin") = "ok" Then%>
<table width="450" align="center">
<form method="post" action="admin.asp?do=inne&action=spara" name="add" onSubmit="return add1()">
<tr>
<td><b>Sökväg till bild:</b><br><input type="text" name="bild" size="55"></td>
</tr>
<tr>
<td><b>Kattens namn:</b><br><input type="text" name="namn" size="55"></td>
</tr>
<tr>
<td><b>Kattens färg:</b><br><input type="text" name="farg" size="55"></td>
</tr>
<tr>
<td><b>Datum:</b><br><input type="text" name="dag" size="25"> (Ex: 2002-02-02)</td>
</tr>
<tr>
<td><input type="Submit" name="andra" value="Spara"></td>
</tr>
</form>
</table>
<%End If
If Request.Querystring("action")= "change" AND Session("admin") = "ok" Then
Set RecSet = Conn.Execute("Select * From dagsbild Where id="& Request.Querystring("id"))
Bild = RecSet("bild")%>
<table width="450" align="center">
<form method="post" action="admin.asp?do=inne&action=andrat&id=<%=Request.Querystring("id")%>" name="change" onSubmit="return change2()">
<tr>
<td><b>Sökväg till bild:</b><br><input type="text" name="bild" value="<%=Bild%>" size="55"> (Ex: dagensbild/foton/bildensnamn.jpg)</td>
</tr>
<tr>
<td><b>Namn:</b><br><input type="text" name="namn" value="<%=RecSet("namn")%>" size="25"> (Ex:S*Syrolis Big Blue Boy)</td>
</tr>
<tr>
<td><b>Färg:</b><br><input type="text" name="farg" value="<%=RecSet("farg")%>" size="25"> (Ex:svartsilverspotted)</td>
</tr>
<tr>
<td><b>Datum:</b><br><input type="text" name="dag" value="<%=RecSet("dag")%>" size="25"> (Ex: 2002-02-02)</td>
</tr>
<tr>
<td><input type="Submit" name="andra" value="Ändra"></td>
</tr>
<tr>
<td><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td><img src="../<%=Bild%>"></td>
</tr>
</form>
</table>
<%RecSet.Close
Set RecSet = Nothing
End If
If Request.Querystring("action") = "spara" AND Session("admin") = "ok" Then
Bild = Request.Form("bild")
Dag = Request.Form("dag")
Namn = Request.Form("namn")
Farg = Request.Form("farg")
Conn.execute("Insert Into dagsbild(bild,dag,namn,farg) Values('" & Bild & "','" & Dag & "','" & Namn & "','" & Farg & "')")
Session("mess") = "Bilden är sparad!"
Response.Redirect "admin.asp?do=inne"
End If
If Request.Querystring("action") = "andrat" AND Session("admin") = "ok" Then
Bild = Request.Form("bild")
Dag = Request.Form("dag")
Namn = Request.Form("namn")
Farg = Request.Form("farg")
Conn.execute("Update dagsbild Set bild='" & Bild & "',dag='" & Dag & "', namn='" & Namn & "',farg='" & Farg & "' Where id = "& Request.Querystring("id"))
Session("mess") = "Bilden är ändrat!"
Response.Redirect "admin.asp?do=inne"
End If
If Request.Querystring("action") = "delete" AND Session("admin") = "ok" Then
Set RS = Conn.Execute("Select * From dagsbild Where id="& Request.Querystring("id"))
Conn.Execute("Delete * From dagsbild Where id=" & Request.Querystring("id"))
Session("mess") = "Bilden är borttaget!"
Response.Redirect "admin.asp?do=inne"
End If
'#############################################################################################################
'------------------------------------------------------LOGGA UT ADMIN------------------------------------------------------------------------------------------
'#############################################################################################################
If Request.Querystring("action") = "logut" Then
Session.Abandon
Response.Redirect "admin.asp"
End If%>
<tr>
<td colspan="2" height="14"><img src="bilder/dot2.gif"></td>
</tr>
</table>
<%End If
Conn.Close
Set Conn = Nothing%>
@ndersMedlem sedan juni 200032 969 inlägg Då känns det som att det är querystringen do=inne som ska läggas till i url:en till sidorna.
If (Int(Sid)) = (Int(sida)) Then%><font color="#ff0000"><%=Sid%></font><%Else%> <a href="admin.asp?[b]do=inne&[/b]sida=<%=Sid%>"><%=Sid%></a> <%End If%>
Du bör nog byta inloggning, dock. Denna variant känns inte speciellt säker.
Mvh,
syrolisMedlem sedan feb. 2003107 inlägg Detta fungerade kanon @nders!
Jo, jag har märkt att inloggningen inte är speciellt säker. Men jag är total nybörjare och har lånat script för att få ihop en sida som kan användas av "mina" uppfödare av kattrasen Europé.
Tyvärr vet jag inte hur jag ska få till en säkrare inloggning. Jag får hoppas att det duger så länge och att jag har hjärna och tålamod nog till att lära mig ASP ordentligt med tiden.
Jag har ju nu ett antal inloggningar till olika adminsidor (med alla gratisscript jag lånat) och skulle gärna haft en inloggning med tillgång till alla adminsidor, men får inte till det heller.
Nåja, sidan fungerar i alla fall...
@ndersMedlem sedan juni 200032 969 inlägg Se åtminstone till att ändra användarnamn / lösen från "admin" / "admin", till något som inte är lika generellt. Det är alltså de här raderna du bör ändra:
Admin1 = "admin"
Admin2 = "admin"
Admin1 är användarnamnet för administratören, och Admin2 är lösenordet.
Mvh,
syrolisMedlem sedan feb. 2003107 inlägg Jajemensan :-)
Det har jag andra värden för.
Så det blir lite besvärligare att ta sig in om man inte vet hur man gör.
