Admin pages

--- title: "admin -www.webeye.nu" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/5668-admin-www-webeye-nu" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "fredrik99" published: "2000-05-14T14:54:00.000Z" updated: "2000-05-14T20:14:00.000Z" replies: 9 views: 203 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/5668-admin-www-webeye-nu" --- # admin -www.webeye.nu ## #1 — fredrik99, 2000-05-14T14:54Z Jag har laddat hem admin på webeye.. men får inte igång det.. jag får upp detta: Microsoft OLE DB Provider for ODBC Drivers fel '80004005' \[Microsoft\]\[ODBC Driver Manager\] Datakällan hittades inte och ingen standarddrivrutin är angiven /webeye/admin.asp, rad 14 PÅ rad 14: Databas.open Session("dbasepath") Någon som vet??? Permalänk: https://www.webforum.nu/p/5668 ## #2 — cgi, 2000-05-14T15:00Z Så här ska hela koden se ut: ``` <% 'IPAddress = Request.ServerVariables("REMOTE_ADDR") 'If IPAddress <> "195.66.36.43" Then ' Response.Status = "403 Access Forbidden" ' Response.Write Response.Status ' Response.End 'End If Response.Buffer=True %> <% Session("dbasepath") = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb") Set databas = Server.CreateObject("ADODB.Connection") databas.Open Session("dbasepath") %> Admin pages <% '***** Om användaren klickat på "logga ut" så nollställs sessionen och han redirectas till msie.asp If Request("loggout") = "true" Then Session("loggin") = "" Response.Redirect "admin.asp" End If %> <% If Session("loggin") = "" Then '***** Om man inte är inloggad så kommer inloggningsrutan upp If Request("Loggin") = "" Then %> Skriv ditt namn och lösenord nedan!

Om du bara vill kolla in funktionerna som admin har tillgång till, så skriv 'visitor' i båda fälten

<% Else %> <% '***** kolla om användarnamnet och lösenordet finns och matchar On Error Resume Next If Request("loggin") = "try" Then namn = Request.Form("namn") losen = Request.Form("password") SQL = "SELECT * From Admin Where namn = '" & namn & "'" SQL = SQL & " AND losen = '" & losen & "'" Set Logg = databas.Execute(SQL) hqgt = Logg("id") Session("loggin") = hqgt Session("level") = logg("level") Response.Redirect "admin.asp" End If End if Else %>

Administrations meny

Ny nyhet!
Ändra nyhet
Ändra i gästbok
E-postlista
Lägg till länk
Uppdatera länk
Kolla rekommenderade ord
Undersökning
Användarinfo
Logga ut

<% If Request("userinfo") = "true" AND Session("level") > 4 Then %> <% SQL = "select * from admin" Set RS_userinfo = Databas.Execute(SQL) Do while NOT RS_userinfo.EOF %> <% RS_userinfo.MoveNext Loop Set RS_userinfo = nothing %> <% If Request("userinfo") = "true" AND Request("changenamn") = "true" AND Session("level") > 4 Then %> <% End if %> <% If Request("userinfo") = "true" AND Request("changelevel") = "true" AND Session("level") > 4 Then %> <% End if %> <% If Request("userinfo") = "true" AND Request("changelosen") = "true" AND Session("level") > 4 Then %> <% End if %> <% If Request("userinfo") = "true" AND Request("changenamn_yes") = "true" AND Session("level") > 4 Then %> <% SQL = "UPDATE admin SET namn = '" & Request.Form("namn") & "'" SQL = SQL & " where namn = '" & Request.Form("namnreal") & "'" Databas.Execute(SQL) %> <% End If %> <% If Request("userinfo") = "true" AND Request("changelevel_yes") = "true" AND Session("level") > 4 Then %> <% levele = Request.Form("level") namn = Request.Form("namn") SQL = "UPDATE admin set level = " & levele SQL = SQL & " where ID = " & namn Response.write SQL Databas.Execute(SQL) %> <% End If %> <% If Request("userinfo") = "true" AND Request("changelosen_yes") = "true" AND Session("level") > 4 Then %> <% SQL = "UPDATE admin SET losen = '" & Request.Form("losen") & "'" SQL = SQL & " where namn = '" & Request.Form("namn") & "'" Databas.Execute(SQL) %> <% End If %> <% If Request("userinfo") = "true" AND Request("newuser") = "true" AND Session("level") > 4 Then %> <% End If %> <% If Request("userinfo") = "true" AND Request("newuser_yes") = "true" AND Session("level") > 4 Then %> <% SQL = "INSERT INTO admin " SQL = SQL & "(namn, losen, level) " SQL = SQL & "VALUES('" & Request.Form("namn") & "','" & Request.Form("losen") & "'," & Request.Form("level") & ")" Response.Write SQL Databas.Execute(SQL) %> <% End If %>

Användarinformation
Anv. namn: ><%=RS_userinfo("namn")%> Accesslevel: &userinfonamn=<%=RS_userinfo("ID")%>><%=RS_userinfo("level")%> Lösenord: &userinfonamn=<%=RS_userinfo("namn")%>><%=RS_userinfo("losen")%>
Lägg till användare

Namn: ">
Urspr namn: " name=namnreal>

Accesslevel: ">
Urspr namn: " name=namn>

Lösenord: >
Urspr namn: name=namn>

...ändringen är utförd...
...ändringen är utförd...
...ändringen är utförd...

Namn:

Accesslevel:

Lösenord:

...användaren är inlaggd...
<% End if %> <% If Request("poll") = "true" AND Session("level") > 4 Then %>

Lägg till undersökning!

Fråga:

Alternativ:

alt1:

alt2:

alt3:

alt4:

alt5:

Välj aktiv undersökning

<% End If %> <% If Request("inpoll") = "true" AND Session("level") > 4 Then %>

<% fraga = Request.Form("fraga") nralt = Request.Form("alt") alt1 = Request.Form("alt1") alt2 = Request.Form("alt2") alt3 = Request.Form("alt3") alt4 = Request.Form("alt4") alt5 = Request.Form("alt5") SQL = "INSERT INTO poll " SQL = SQL & "(fraganamn, nralt, alt1, alt2, alt3, alt4, alt5, aktiv) " SQL = SQL & "VALUES('" & fraga & "', '" & nralt & "', '" & alt1 & "', '" & alt2 & "', '" & alt3 & "', '" & alt4 & "', '" & alt5 & "', '" & 2 & "')" Databas.Execute(SQL) %> Välj aktiv undersökning

<% End If %> <% If Request.querystring("changepoll") = "true" AND Session("level") > 4 Then %>

Välj aktiv undersökning!
<% SQL = "select * from poll order by idpoll" Set RS_poll_change = Databas.Execute(SQL) %>

<% SQL = "select * from poll where aktiv = 1" Set RS_poll_check = Databas.Execute(SQL) %> Aktiv nu: <%=RS_poll_check("fraganamn")%>

<% Set RS_poll_check = Nothing Set RS_poll_change = nothing %> <% End If %> <% If Request.querystring("changepoll_fin") = "true" AND Session("level") > 4 Then %>

<% SQL = "select idpoll from poll where aktiv = 1" Set RS = Databas.Execute(SQL) id = RS("idpoll") SQL = "UPDATE poll Set aktiv = 0" SQL = SQL & " where idpoll = " & id Response.Write SQL Databas.Execute(SQL) id = Request.Form("poll_change") SQL = "UPDATE poll Set aktiv = 1" SQL = SQL & " where fraganamn = '" & id & "'" Databas.Execute(SQL) %>

<% Set RS = nothing %> <% End If %> <% If Request("nyhet") = "true" Then %>

Lägg till nyhet!
" method=post style="color:#808080;"> Skribent:

Rubrik:

Artikel:

<% End If %> <% If Request("nyhetupp") = "true" Then %> <% if request("uppsel") < 1 Then SQL = "SELECT * FROM Nyheter" SQL = SQL & " Order by Id Desc" Set RS2 = Databas.Execute(SQL) %>

Välj nyhet att uppdatera

<% Do until RS2.EOF If RS2("Aktiv") = "inaktiv" Then aktiv = "FF0000" Else aktiv = "00FF00" End If %> ¤ ><%= RS2("Rubrik")%> (<%= RS2("Datum") %> )
<% RS2.MoveNext Loop %> (¤ = aktiv och ¤ = inaktiv )

<% rs2.close Else %> <% SQL = "SELECT * FROM Nyheter Where ID=" & request("uppsel") Set RS3 = Databas.Execute(SQL) %>

Uppdatera nyhet!
&loggon=<%=Session("level")%>" method=post style="color:#808080;"> Skribent:
">
name=datum> Rubrik:
">
Artikel:
<%=RS3("artikel")%>
Ta bort
<% If RS3("aktiv") = "ett" Then %> Inaktivera nyhet
<% Else %> Aktivera nyhet
<% End if %>

<% RS3.Close End if End if If Request("gastupp") = "true" Then SQL = "SELECT * FROM Gastbok Order by datum desc" Set RS4 = Databas.Execute(SQL) %> <% DO UNTIL RS4.EOF If RS4("aktiv") = "aktiv" Then color = "00FF00" Else color = "FF0000" End If %> <% RS4.MoveNext Loop %>
Namn: <%=RS4("namn")%>
Ort: <%=RS4("ort")%>
Epost: <%=RS4("epost")%>
Hemsida: <%=RS4("hemsida")%> Datum: <%=RS4("datum")%>
Browser: <%=RS4("browser")%> <%=RS4("version")%> Operativ: <%=RS4("operativ")%>
Inlägg: <%=RS4("inlagg")%>
¤ ">Redigera

<% End If If Request("uppgastid") > 0 Then If Request("uppdatera") < 1 Then gastid = request("uppgastid") SQL = "SELECT * FROM Gastbok Where ID = " & gastid Set RS5 = Databas.Execute(SQL) %>

<% End If If Request("uppdatera") = 2 AND Session("level") > 4 Then gastid = request("uppgastid") If Request.form("erase") = "erase" Then SQLStmt = "Delete from Gastbok where ID = " & gastid databas.execute(SQLStmt) Response.Redirect "http://henslow.4sale.se/vide/loggin/admin.asp" End If namn = Request.form("namn") epost = Request.form("epost") ort = Request.form("ort") hemsida = Request.form("hemsida") datum = request.form("datum") browser = request.form("browser") version = request.form("version") operativ = request.form("operativ") inlagg = request.form("inlagg") aktiv = Request.Form("inaktivera") svar = Request.Form("svar") SQLStmt = "UPDATE Gastbok" SQLstmt = SQLstmt & " SET namn = '" & namn & "', epost = '" & epost & "', ort = '" & ort & "'" SQLstmt = SQLstmt & " , hemsida = '" & hemsida & "', datum = '" & datum & "'" SQLstmt = SQLstmt & " , browser = '" & browser & "', version = '" & version & "'" SQLstmt = SQLstmt & " , operativ = '" & operativ & "', inlagg = '" & inlagg & "'" SQLstmt = SQLstmt & " , aktiv = '" & aktiv & "', svar = '" & svar & "'" SQLstmt = SQLstmt & " Where ID = " & gastid Databas.Execute(SQLStmt) Response.Redirect "http://henslow.4sale.se/vide/loggin/admin.asp" End if End If If Request("epostlista") = "true" AND Session("level") > 4 Then SQL = "SELECT * From epostlista Order By ID desc" Set RS6 = Databas.Execute(SQL) %> <% Do Until RS6.EOF %> <% RS6.MoveNext Loop %>

<%=RS6("epost")%> (<%=RS6("losen")%> )

<% End If %> <% End If %> <% If Request("insertlink") = "true" AND Session("level") > 2 Then %> <% End if If Request("insert") = "ins" Then vote = Request.Form("vote") namn = Request.Form("namn") lank = Request.Form("lank") underkategori = Request.form("underkategori") kategori = Request.Form("kategori") beskrivning = Fixatecken(Trim(Request.Form("beskrivning"))) katalog = Request.Form("katalog") SQL = "INSERT INTO lankar" SQL = SQL & " (lank, kategori, beskrivning, lankkatalog, namn, vote, underkategori)" SQL = SQL & " VALUES('" & lank & "', '" & kategori & "', '" & beskrivning & "', '" & katalog & "', '" & namn & "', '" & vote & "', '" & underkategori & "')" databas.execute(SQL) Response.Redirect "admin.asp" End if %> <% If Request("uppdateralink") = "true" AND Session("level") > 2 Then %> <% If Request.Form("kategori") = "" then katalog = Request("kat") Else katalog = Request.Form("kategori") End If kategori = Request("kategori") If kategori = "true" then %> <% Set Databas = Server.CreateObject("ADODB.Connection") Databas.open Session("dbasepath") SQL = "Select * from lankar where lankkatalog Like '%" & katalog & "%'" mypage = Request("whichpage") If mypage = "" then mypage = 1 End If mypagesize = Request("pagesize") If mypagesize = "" then mypagesize = 10 End If Set rstemp = Server.Createobject("ADODB.Recordset") rstemp.cursorlocation = aduseclient rstemp.cachesize = 5 rstemp.open SQL, session("dbasepath") rstemp.movefirst rstemp.pagesize = mypagesize maxcount = Cint(rstemp.pagecount) rstemp.absolutepage = mypage howmanyrecs = 0 howmanyfields = rstemp.fields.count -1 response.write "page " & mypage & " of " & maxcount & "
" %> <% Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize %> <% rstemp.movenext howmanyrecs = howmanyrecs + 1 Loop rstemp.close Set rstemp = nothing %>

&namn=<%=rstemp("namn")%>"><%=rstemp("namn")%>

<% pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter >= 10 then pad = "" End If ref = "" & pad & counter & "" response.write ref & " " if counter mod 10 = 0 then response.write "
" End If Next %> <% End If %> <% End If %> <% If Request("uppdateralink") = "true" AND Request("idlink") > 0 AND session("level") > 2 Then SQL = "SELECT * FROM lankar Where namn = '" & Request("namn") & "'" Set RS8 = Databas.Execute(SQL) %>

<% Select case RS8("vote") Case 1 opt1 = " selected" Case 2 opt2 = " selected" Case 3 opt3 = " selected" Case 4 opt4 = " selected" Case 5 opt5 = " selected" End Select %>

Länk URL: ">
Kategori: ">
<% Select case RS8("lankkatalog") case "Musik" optmusik = " SELECTED" case "Drivrutiner" optdrivrutiner = " SELECTED" case "Kompisar" optkompisar = " SELECTED" case "Dagligt" optdagligt = " SELECTED" case "Datorer" optdatorer = " SELECTED" case "Webdesign" optwebdesign = " SELECTED" case "Adress" optadress = " SELECTED" case "Spel" optspel = " SELECTED" case "Nyheter" optnyheter = " SELECTED" case "Blandat" optblandat = " SELECTED" End Select %> Visas i:
Som: " name=namn>	Underkategori: " name=underkategori>

<%=RS8("beskrivning")%>
" name=lankid> Ta bort länk!

<% End if If Request("uppdateralink") = "upp" AND Request.Form("tabort") = "tabort" Then SQL = "DELETE from lankar where lankID = " & request.form("lankid") databas.execute(SQL) Response.Redirect "admin.asp" End If If Request("uppdateralink") = "upp" AND Session("level") > 2 Then lankid = Request.Form("lankid") vote = Request.Form("vote") namn = Request.Form("namn") lank = Request.Form("lank") kategori = Request.Form("kategori") beskrivning = Fixatecken(Trim(Request.Form("beskrivning"))) katalog = Request.Form("katalog") underkategori = Request.Form("underkategori") SQL = "UPDATE lankar SET" SQL = SQL & " lank = '" & lank & "', kategori = '" & kategori & "', beskrivning = '" & beskrivning & "'" SQL = SQL & " , lankkatalog = '" & katalog & "', namn = '" & namn & "', vote = '" & vote & "'" SQL = SQL & " , underkategori = '" & underkategori & "'" SQL = SQL & " Where lankid = " & request.form("lankid") Databas.execute(SQL) End if If Request.Querystring("rekord") = "true" AND Session("level") > 4 then SQL = "select count(*) AS count_alla_ord from hangmanord" Set RS_count_alla_ord = Databas.Execute(SQL) Response.write "Antal ord i databasen: " & RS_count_alla_ord("count_alla_ord") & "
" %> <% If Request.Querystring("validaterekord") = "true" AND Session("level") > 4 then %> <% rekord = Request.Form("rekordord") svarighetsgrad = Request.Form("svarighetsgrad") SQL = "select count(*) AS rekord_count from hangmanord where ord = '" & rekord & "'" Set RSrekord = Databas.Execute(SQL) If RSrekord("rekord_count") = 0 then SQL = "INSERT INTO hangmanord " SQL = SQL & "(ord, svarighetsgrad) " SQL = SQL & "VALUES('" & rekord & "', '" & svarighetsgrad & "')" Databas.Execute(SQL) %> Ordet <%=rekord%> är lagt i databasen... <% Else %> Ordet fanns redan i databasen!!! <% End if %> <% End if %> <% End If %> <% If Request.Querystring("checkrekord") = "true" AND Session("level") > 4 then %> <% SQL = "select * from hangmanrekord Order by datum" Set RS_checkrekord = Databas.Execute(SQL) %> <% Set RS_checkrekord = nothing %> <% End If %> <% If Request.Querystring("ta_bort_ord") = "true" AND Session("level") > 4 then ord = Request.form("ordcheck") SQL = "Delete from hangmanrekord " SQL = SQL & "where ord = '" & ord & "'" Databas.execute(SQL) Response.Write "Ordet " & ord & " är borttaget ur rekord-databasen" End If %> <% If Request.Querystring("checkrekord_inp") = "true" AND Session("level") > 4 then %> <% Response.Write ord ord = Request.Querystring("ord") datum = date SQL = "select count(*) AS count_ord_om_finns from hangmanord where ord = '" & ord & "'" Set RS_count_om_ord = Databas.execute(SQL) If RS_count_om_ord("count_ord_om_finns") <> 0 then Response.Write "Ordet " & ord & " fanns redan i databasen" Else SQL = "INSERT INTO hangmanord " SQL = SQL & "(ord) " SQL = SQL & "VALUES('" & ord & "')" Databas.Execute(SQL) Response.Write "Ordet " & ord & " är lagt i databasen" End if SQL = "Delete from hangmanrekord " SQL = SQL & "where ord = '" & ord & "'" Databas.execute(SQL) %> ...är nu borttaget ur rekord-databasen... <% End If %> <% Databas.Close %> ``` Permalänk: https://www.webforum.nu/p/242922 ## #3 — M@rtin, 2000-05-14T15:01Z Brukar oxå få det felet, har inte kommit på någon lösning än men jag tror att det är om man inte har skapat en DSN till databasen som man använder. //M@rtin Permalänk: https://www.webforum.nu/p/242923 ## #4 — M@rtin, 2000-05-14T15:03Z CGI: kan du inte säga vad som ska ändras i stället ;) //M@rtin Permalänk: https://www.webforum.nu/p/242924 ## #5 — cgi, 2000-05-14T15:08Z Kommer ej ihåg precis vad som ska ändras, men det kan väl inte vara så krångligt att kopiera denna kod.!! Permalänk: https://www.webforum.nu/p/242925 ## #6 — fredrik99, 2000-05-14T15:18Z detta får jag ut: ഠഊ㰊瑨汭ാ㰊敨摡ാ㰊敭慴栠瑴⵰煥極㵶䌢湯整瑮吭灹≥挠湯整瑮∽整瑸栯浴㭬挠慨獲瑥眽湩潤獷ㄭՑ 8;∲ാ㰊楬歮爠汥∽瑳汹獥敨瑥•祴数∽整瑸振獳•牨晥W 65;敲瑰汩挮獳㸢਍琼瑩敬䄾浤湩瀠条獥⼼楴汴㹥਍⼼ 5960;摡ാ㰊潢祤戠捧汯牯昽晦晦⁦整瑸昽て〰㸰਍਍਍ 148;匾牫癩搠瑩⁴慮湭漠档氠珶湥牯⁤敮慤Ⅾ⼼㹢瀼ാ 370;㹩浏搠⁵慢慲瘠汩⁬潫汬⁡湩映湵瑫潩敮湲⁡潳⁭Ā 97;業⁮慨⁲楴汬杮琠汩ⱬ猠⃥歳楲⁶瘧獩瑩牯‧⁩ ;慤映泤整㱮椯ാ㰊潦浲愠瑣潩㵮摡業⹮獡㽰潬杧湩 757;祲洠瑥潨㵤潰瑳ാ㰊慴汢⁥污杩㵮敬瑦ാ㰊牴ാ㰊 716;愠楬湧爽杩瑨ാ上浡㩮㰠湩異⁴祴数琽硥⁴慮敭渽 8001;㹮戼㹲਍敳㩮㰠湩異⁴祴数瀽獡睳牯⁤慮敭瀽獡&# 30579;牯㹤戼㹲਍椼灮瑵琠灹㵥畳浢瑩ാ㰊琯㹤਍⼼牴ാ&# 15370;琯扡敬‾਍⼼潦浲ാഊ㰊戯摯㹹਍⼼瑨 Permalänk: https://www.webforum.nu/p/242926 ## #7 — cgi, 2000-05-14T15:36Z Du får väl kopiera rad för rad.!! Permalänk: https://www.webforum.nu/p/242927 ## #8 — fredrik99, 2000-05-14T15:42Z Varför blir det såna konstiga tecken? \[Redigerat av fredrik99 den 14 maj 2000\] Permalänk: https://www.webforum.nu/p/242928 ## #9 — fredrik99, 2000-05-14T20:01Z någon som vet?? Permalänk: https://www.webforum.nu/p/242929 ## #10 — Chavez, 2000-05-14T20:14Z Konstigt, något sådant får inte jag. Jag bara kopierade det till en txt fil och det blev helt som det skulle. Permalänk: https://www.webforum.nu/p/242930 --- Tråden på webben: https://www.webforum.nu/amne/asp/5668-admin-www-webeye-nu

Namn: " name=namn>	Epost: " name=epost>
Ort: " name=ort>	Hemsida: " name=hemsida>
Datum: " name=datum>	Browser: " name=browser>	Version: " name=version>	Operativ: " name=operativ>
<%=RS5("inlagg")%>
<%=RS5("svar")%>
Ta bort post: <% If RS5("aktiv") = "aktiv" Then %> inaktivera inlägg: <% Else %> aktivera inlägg: <% End if %>

URL:
Sökord:
Visas i:
Visas som:
Underkategori:
Röstning:
Beskrivning:

Användarinformation
Anv. namn: ><%=RS_userinfo("namn")%>	Accesslevel: &userinfonamn=<%=RS_userinfo("ID")%>><%=RS_userinfo("level")%>	Lösenord: &userinfonamn=<%=RS_userinfo("namn")%>><%=RS_userinfo("losen")%>
Lägg till användare
Namn: "> Urspr namn: " name=namnreal>
Accesslevel: "> Urspr namn: " name=namn>
Lösenord: > Urspr namn: name=namn>
...ändringen är utförd...
...ändringen är utförd...
...ändringen är utförd...
Namn:
Accesslevel:
Lösenord:

...användaren är inlaggd...

Lägg till undersökning!
Fråga:
Alternativ:
alt1:
alt2:
alt3:
alt4:
alt5:
Välj aktiv undersökning