Sv:Ta Bort Inloggning

Ta Bort Inloggning

Postades av 2006-03-08 14:56:35 - Marcus Wennerberg, i forum asp - allmänt, Tråden har 6 Kommentarer och lästs av 486 personer

Hej.

Jag har hittat ett färdigt script och undrar då hur det ska se ut för att slippa inloggningen då jag håller på med en egen admin sida så det vore dumt med 2 inloggningar.

Koden jag har är följande:


<% Response.Buffer = True %>
<!--#include file="losen.asp"-->
<html>
<head>
<title>Redigera</title>
<link rel="stylesheet" href="stil.css" type="text/css">
</head>

<body topmargin="0" marginheight="0" link="#000000" vlink="#000000" alink="#000000">
<%
If Request.Querystring("action") = "kolla" Then
  Session("koll") = Request.Form("password")
    If Session("koll") = Losen Then
      Response.Redirect "laggtill.asp?action=ja"
    Else
      Response.Redirect "laggtill.asp?status=fy"
    End If
End If

If Request.Querystring("action")= "ja" AND Session("koll") = Losen Then

Set Conn = Server.CreateObject("ADODB.Connection")
Set news = Server.CreateObject("ADODB.Recordset")

Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar ORDER BY Datum DESC"
news.Open SQL, Conn, 1, 2

If news.EOF Then
  Response.Write "Lägg till"
  Response.Write "Inga nyheter"
Else

Do While Not news.EOF
Response.Write "<font class=text>"
Response.Write "Lägg till &nbsp; Ta bort &nbsp; Ändra &nbsp; Logga ut &nbsp; <br>"
Response.Write "<b>" & FormatDateTime(news("Datum"),2) & "</b>"
Response.Write "<b>&nbsp;&nbsp;" & news("rubrik") & "</b><br>"

Response.Write "<br><br><br>"
		
news.MoveNext

Loop

Response.Write "<tr><td colspan=3>"
Response.Write "</td></tr></table>"

news.Close
Conn.Close

Set news = Nothing
Set Conn = Nothing
End If

ElseIf Request.Querystring("action") = "add" AND Session("koll") = Losen Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar ORDER BY Datum DESC"
Set news = Conn.Execute(SQL)
%>

<form method="post" action="laggtill.asp?action=spara">
<table width="450" height="327">
  <tr>
    <td height="28" class="td2">
      <b>Rubrik:</b><br><input type name="rubrik" size="55" class="form"><br>           
    </td>
  </tr>
  <tr>
    <td height="24" class="td2">
      <b>Fet Text / Förstasidan:<br>
      </b><input type name="fet_text" size="55" class="form"></td>
  </tr>
  <tr>
    <td height="28" class="td2">
      <b>Bild: (bilden över nyheten)<br>
      </b><input type name="bild_nyhet" size="55" class="form"></td>
  </tr>
  <tr>
    <td height="134" class="td2">
      <b>Innehåll:</b><br>
      <textarea name="text" rows="24" cols="80" class="form"></textarea>
    </td>
  </tr>
  <tr>
    <td height="28" class="td2">
      <b>Skrivet av:<br>
      </b><input type name="kalla" size="55" class="form"></td>
  </tr>
  <tr>
    <td height="13">
      <input type="image" src="knapp_spara.gif" name="Submit" value="spara" onfocus=this.blur()>
    </td>
  </tr>
  <tr> 
    <td height="12" class="td2">Tillbaka</td>
  </tr>
</table>
</form>

<%
news.Close
Set news = Nothing
Conn.Close
Set Conn = Nothing

End If

If Request.Querystring("action") = "" Then
%>

<br>
<form name="loggain" method="post" action="laggtill.asp?action=kolla">
  <b><font size="4" face="Verdana">Artiklar<br>
	</font></b><br>
  <input type="password" name="password" size="15" class="form"> &nbsp; 
  <input type="image" src="knapp_loggain.gif" value="Logga in" onfocus=this.blur()>
	<br>
	
	Tillbaka</form>

<%
End If

If Request.Querystring("action") = "fy" Then
  Response.Write "<font color=red>Fel lsenord!</font>"
End If

If Request.Querystring("action") = "loggaut" Then
Session.Abandon
Response.Redirect "../../../Login/Admin/admin_menu.asp"
End If

If Request.Querystring("action") = "spara" AND Session("koll") = Losen Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "INSERT INTO artiklar ([Rubrik],[fet_text],[bild_nyhet],[text],[kalla],[Datum]) VALUES('" & Request.Form("Rubrik") & "','" & Request.Form("fet_text") & "','" & Request.Form("bild_nyhet") & "','" & Request.Form("Text") & "','" & Request.Form("kalla") & "',#" & Now & "#)"
Conn.Execute(SQL)
		
Response.Redirect "laggtill.asp?action=ja"
	
End If
	
If Request.Querystring("action") = "tabort" AND Session("koll") = Losen Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "DELETE FROM artiklar WHERE id ="& Request.Querystring("id")
Conn.Execute(SQL)
		
Response.Redirect "laggtill.asp?action=ja"
	
End If

%>

<%
If Request.Querystring("action") = "andra_text" AND Session("koll") = Losen Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar WHERE id = "& Request.Querystring("id")
Set RecSet = Conn.Execute(SQL)
%>

<form method="post" action="laggtill.asp?action=andra&id=<%=Request.Querystring("id")%>" name="laggtill">
<table width="450">
  <tr>
    <td class="td2">
      <b>Rubrik:</b><br>
      <input type name="rubrik" size="55" value="<%=RecSet("Rubrik") %>" class="form"><br>           
    </td>
  </tr>
  <tr>
    <td class="td2">
      <b>Fet Text / Förstasidan:<br>
      </b>
      <input type name="fet_text" size="55" value="<%=RecSet("fet_text") %>" class="form"></td>
  </tr>
  <tr>
    <td class="td2">
      <b>Bild: (bilden över nyheten)<br>
      </b>
      <input type name="bild_nyhet" size="55" value="<%=RecSet("bild_nyhet") %>" class="form"></td>
  </tr>
  <tr>
    <td class="td2">
      <b>Innehåll:</b><br>
      <textarea name="text" rows="24" cols="80" class="form"><%=RecSet("Text") %></textarea>
    </td>
  </tr>
  <tr>
    <td class="td2">
      <b>Skrivet Av:<br>
      </b>
      <input type name="kalla" size="55" value="<%=RecSet("kalla") %>" class="form"></td>
  </tr>
  <tr>
    <td>
      <input type="image" src="knapp_spara.gif" name="Submit" value="spara" onfocus=this.blur()>
    </td>
  </tr>
</table>
</form>

<%
RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing

End If

If Request.Querystring("action") = "andra" AND Session("koll") = Losen Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar Where ID= "&Request.Querystring("ID")
Set RecSet = Server.Createobject("ADODB.recordset")
RecSet.Open SQL, Conn, 1, 2

RecSet("Rubrik") = Request.Form("Rubrik")
RecSet("fet_text") = Request.Form("fet_text")
RecSet("Text") = Request.Form("Text")
RecSet("Bild_nyhet") = Request.Form("Bild_nyhet") 
RecSet("kalla") = Request.Form("kalla") 
RecSet.Update

Response.Redirect "laggtill.asp?action=ja&id="&Request.Querystring("id")&""
	
End If
%>
        
</body>
</html>

Tacksam för all hjälp jag kan få :D

Svara

Sv: Ta Bort Inloggning

Postades av 2006-03-08 17:21:15 - Jonas Boman

Ojojojoj, vilken dålig kod. (Förlåt om det kan uppröra upphovsmakaren)

Koden kan optimeras mycket, och det finns allvarliga brister som gör att man lätt kan "hacka" och förstöra.

Det är det som är lite synd att ta färdig kod - det blir omständigt att anpassa sidan/siten till sig själv.

Mitt råd är att bygga från början, men använda sig av de elementen som finns i det script du hittat.

/Jonas

Svara

Sv:Ta Bort Inloggning

Postades av 2006-03-08 17:45:31 - Marcus Wennerberg

ok, skulle behöva lite hjälp i så fall, då jag själv inte är så kunnig.
Hade tänkt mig 6 fällt, Rubrik, Skribent, Email, Text, bild samt ID.
Inloggning behövs inte

Men frågan är hur jag ska göra, någon som vill hjälpa mig :S

Tacksam för all hjälp :D

Svara

Sv: Ta Bort Inloggning

Postades av 2006-03-08 18:04:53 - Jonas Boman

I och för sig är detkul att pilla med sånt här, men tyvärr känner jag att jag själv inte har orken tyvärr.
Visst kan jag hjälpa till om du fastnar med något, men annars tycker jag att du skall lära dig ASP och lösa det själv
Det blir roligare så och hela syftet med siten imo är att man skall utvecklas och bli bättre i programspråk, och inte låta andra göra jobbet gratis åt dig.

Men det kanske finns någon här som inte är en surmört som jag ;) och gärna hjälper dig!

Lycka till!

Svara

Sv:Ta Bort Inloggning

Postades av 2006-03-08 18:38:57 - Marcus Wennerberg

ok. får upp ett felmeddelande på följande linje:

objConn.Execute("INSERT INTO artiklar(Datum,Rubrik,text,Skribent, bild_nyhet, email) VALUES('" & strDatum & "','" & strRubrik & "','" & strtext & "','" & strSkribent & "','" & strbild_nyhet & "','" & stremail & "')")

Feltyp:
Microsoft JET Database Engine (0x80040E14)
Syntaxfel i UPDATE-uttryck.

vad kan det vara för fel??

Svara

Sv: Ta Bort Inloggning

Postades av 2006-03-08 21:28:33 - Jonas Boman

Det är nog inte fel på den raden.
UPDATE är det den frågar efter.

objConn.Execute("INSERT INTO artiklar (Datum,Rubrik,[text],Skribent, bild_nyhet, [email]) VALUES ('#" & strDatum & "#','" & strRubrik & "','" & strtext & "','" & strSkribent & "','" & strbild_nyhet & "','" & stremail & "')")

Vet inte om det hjälper om det är fel på INSERT raden men det är nu nu mellanslag efter artiklar samt VALUES, och lade text och email i klammrar. Kör du med Accessdatabas bör du köra # runt datum, annars kan du skippa det

Svara

Sv:Ta Bort Inloggning

Postades av 2006-03-08 22:08:52 - Marcus Wennerberg

När man får felet, Operationen måste använda en fråga som kan uppdateras.
Är det att den inte kommer åt databasen?? För det kommer när jag ska lägga till något för jag har inga skrivrättigheter på databasen. Kanske vet hur man fixar det?? Kör med IIS.

Svara

Ta Bort Inloggning

Sv: Ta Bort Inloggning

Sv:Ta Bort Inloggning

Sv: Ta Bort Inloggning

Sv:Ta Bort Inloggning

Sv: Ta Bort Inloggning

Sv:Ta Bort Inloggning

Nyligen

Sidor

Statistik

Kontakta oss