Script til hjemmeside

Det der er nok lettest at lave sikkert hvis du har et serverscripting miljø som f.eks. ASP, ASP.NET, PHP eller noget i den stil...

Javascript ligger på klienten og det er derfor svært at lave noget validering af brugernavn og adgangskoder uden at man kan se i script-koden (via view source), hvad adgangskoderne er...

ok min hjemmeside er lavt i front page hvordan laver jeg  ASP, ASP.NET, PHP

mvhansen

Det afhænger af din server, men hvis det er en IIS, så er ASP nok det mest tilgængelige at gå igang med (VBScript). Men hvis du ikke er vant til at programmere, så synes jeg det lyder som et større projekt... er du vant til at programmere?

Hvadfor skriver du vbscript i en parantes i den sætning ?-)

-- det virker som om det skal være en forklaring på, hvad asp er, og så er du i hvert fald på vildspor ...

-- asp er en server-arkitektur, som sammenkæder en webserver med noget server-side programmering, men den programmering kan du lave i alle de sprog, som maskinen understøtter, såvidt jeg husker mindst vbscript, J(ava)script, java, c(++/#) og perl !-)

der er IIS på server. nej jeg er ikke vant til at programer, jeg har rørt lidt ved vb6 men ikke meget. ja det er nok et større projekt, er der ikke nogle færdig lavet login systemer, man kan bruge eller omforandre ? 

mvhansen

<ole>

ehhhh ... hvorfor nu det samme spm, én gang til?  :)
    http://www.eksperten.dk/spm/654376

/mvh
</bole>

der er sat flere point på

roenving >> rolig nu :)

Jeg nævner VBScript fordi jeg vurderer at det er det sprog, som ville være lettest at komme igang med, hvis man endelig skulle igang med at programmere. Jeg har dog endnu ikke hørt at C#, eller C++ for den sags skyld, skulle være understøttet i ASP (med mindre du tæller muligheden for at lave COM-komponenter som understøttelse). Det er vist først i ASP.NET at det er blevet umiddelbart muligt...

Jeg tror såmend ikke opgaven i sig selv er speciel stor og kompliceret, men hvis du ikke kender de miljøer der skal arbejdes med, vokser opgaven betragteligt - i særdeleshed hvis du ikke har programmeret i særlig grad.

Understøtter din server database (f.eks. Access)?

Det spørgsmål med tilknytning af mail til domænet forstår jeg ikke helt. Hvis du har et domæne (f.eks. mvhansen.dk), så har du givetvis også en mailhost, herunder mulighed for at oprette flere mailadresser dertil. Det er som sådan uafhængigt af selve websitet.

Så det du skal bruge er umiddelbart disse komponenter:
1. en database (i en eller anden form)
2. en loginside
3. validering af login på alle de sider der skal beskyttes for offentligheden

Så burde du være kørende... :)

ja den Understøtter Access database, det er ms2003 web server.jeg har access, ja jeg skal have lavet en loginside, så jeg kan loge ind på server, men koderne til det mangler jeg .Angånde mail jeg kan godt oprette mail til vær domane men det var beder vis domane ejer selv kunde oprette, de mail adresser de skal bruge,fra min hjemmeside


mvhansen

Så lad os da komme igang :)

Opret en database som du kalder database.mdb. I den database opretter du en tabel som du kalder bruger. tabellen bruger skal (mindst) bestå af disse felter:
* id [autonumber]
* brugernavn [tekst]
* adgangskode [tekst]

Databasen placeres i første omgang i roden af websitet (den korrekte placering kan vi lige kigge på senere).

Derefter skal du have dig en formular som kan logge brugeren på (kald den login.asp):

<!-- #include file="connSetup.asp" -->
<%
if Request.Form("login") <> "" then
  strSQL = "SELECT id " & _
      "FROM bruger " & _
      "WHERE brugernavn = '" & Replace(cstr(Request.Form("username")),"'","''") & "' " & _
      "AND adgangskode = '" & Replace(cstr(Request.Form("password")),"'","''") & "'"
   
  ' Find brugeren
  set objConn = getConnected()
  set objRs = objConn.Execute(strSQL)
   
  ' Hvis der var et resultat, så findes brugeren og login informationerne var korrekte!
  if not objRs.EOF then
    ' Læg brugerens ID i en session-variabel så vi ved hvem der er logget på
    Session.Contents("userid") = cstr(objRs("ID"))
  end if
   
  ' Oprydning!
  objRs.Close
  objConn.Close
  set objRs = nothing
  set objConn = nothing
   
  ' Naviger til den side som oprindelig blev forespurgt
  Response.Redirect Request.ServerVariables("SCRIPT_NAME")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
  <head>
    <meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
    <title>Login</title>
  </head>
  <body>
   
    <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
      Brugernavn: <input type="text" name="username"><br>
      Adgangskode: <input type="password" name="password"><br>
      <input type="submit" name="login" value="Log på">
    </form>

  </body>
</html>


For at login.asp kører skal du også have denne kode. Læg den i en fil som du navngiver connSetup.asp og placer den i samme folder som login.asp:

<%
function getConnected()
  dim strConn, objConn
 
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  set objConn = Server.CreateObject("ADODB.Connection")
  ' Forbind til databasen
  objConn.Open strConn

  set getConnected = objConn
end function
%>

Hej softspot

Du får mange tak, for at du gider at hjælpe mig.
Jeg har lavet database.mdb og  login.asp og connSetup.asp

mvhansen

Så skal du have taget det i brug. login.asp er en side som ikke skal stå alene (så at sige), den skal nemlig aktiveres fra de sider hvor der er beskyttelse på. I en simpel form kunne det se således ud:

<% @language="vbscript" %>
<%
if isempty(session.contents("userid")) then
  server.transfer "login.asp"
end if
%>

<!-- HER INDSÆTTER DU SÅ RESTEN AF DIN BESKYTTEDE SIDE -->

undskyld vis jeg spørger dum. Skal jeg sidte denne form ind på de sider, jeg vil beskyttelse

<% @language="vbscript" %>
<%
if isempty(session.contents("userid")) then
  server.transfer "login.asp"
end if
%>

Ja, for den checker om brugeren er autoriseret. Det ville nok være mere optimalt (vedligeholdelsesmæssigt) at lægge de tre liniers kode ud i en includefil i stedet for. Jeg har lidt på fornemmelsen at vi skal omkring denne kode igen og så er det lidt træls at skulle rette flere steder...

Summa sumarum, læg dette i toppen af alle dine sider der skal beskyttes:

<% @language="vbscript" %>
<!-- #include file="checkprotect.asp" -->


og læg dette kode i en fil der hedder checkprotect.asp:

<%
if isempty(session.contents("userid")) then
  server.transfer "login.asp"
end if
%>

Alle dine (beskyttede) sider skal i øvrigt hedde .asp til efternavn for at koden bliver fortolket som sådan på serveren (bare for en god orden skyld).

Og denne kode:

<% @language="vbscript" %>
<!-- #include file="checkprotect.asp" -->


skal ALTID ligge i toppen af de .asp-sider du vil have beskyttet.

ok så har jeg gjort der, Skal Access være installeret på serveren

Nej, egentlig bare en driver som ADO kan bruge (MDAC 2.8 er vist rimelig up to date).

Hvis du manuelt prøver at oprette en bruger i din database, så kan du jo teste om det fungerer indtil videre...

Det der sker med denne arkitektur er flg. (pseudokode):

bruger forespørger en side
kontroller om bruger er autoriseret
hvis bruger ikke er autoriseret så
  overfør kontrollen af siden til login.asp
  hvis det er et loginforsøg så
    check om brugerinformationer giver adgang til beskyttede sider
    hvis det gør så registrer at bruger er autoriseret
    kald siden (den oprindelige) igen
    --- her slutter udførslen af denne forespørgsel
  ellers
    oplys informationer om bruger
    kald siden igen med brugerinformationer
    --- her slutter udførslen af denne forespørgsel
  slut hvis
ellers
  vis indholdet af den side som bliver forespurgt
slut hvis
--- her slutter udførslen af denne forespørgsel

Det er en html document jeg vil beskytte

Selvom vi kalder det .asp på serveren, så vil browseren stadig opfatte det som et HTML-dokument når det kommer ud til klienten, men du er nok nød til at styre selve beskyttelsen af dokumentet på serveren - og det er så det vi er igang med at implementere nu - via ASP som vi startede med at snakke om...

Når jeg prøver at login, siger den siden kan ikke vises

har du et link hvor man kan se det?

Driver som ADO eller MDAC 2.8 ved jeg ikke om der er installeret på serveren

www.dyrberg.adsl.dk      Billeder  Brugernavn: test  Adgangskode: test

Jeg tror det har noget med navngivning af felter i databasen kontra dem der er angivet i forespørgslen. Har du navngivet dine felter i overensstemmelse med dette SQL:

strSQL = "SELECT id " & _
  "FROM bruger " & _
  "WHERE brugernavn = '" & Replace(cstr(Request.Form("username")),"'","''") & "' " & _
  "AND adgangskode = '" & Replace(cstr(Request.Form("password")),"'","''") & "'"

altså en tabel ved navn "bruger" i databasen som indeholder flg. felter "id", "brugernavn" og "adgangskode"...

I øvrigt skal menuen "Biller" ikke pege direkte på login, men på den side hvor billeder vises. Siden med billeder skal så have den kode, jeg har vist dig, i toppen af siden og hedde .asp til efternavn.

Jeg er klar over at det nok bare var en test, men lige netop med denne arkitektur, vil du ikke få den rigtige oplevelse når det fungerer, hvis du ikke følger opskriften...

hej softspot

ja jeg bruger brugernavn og adgangskode

men nu er billeder ikke BESKYTTEDE

hej softspot

Den kommer ikke med logi når jeg trykker på knap billeder

kan du ikke lige smide koden til den fil hvor billeder bliver vist...?

Det ser ud til at fungere nu...

<% @language="vbscript" %>
<!-- #include file="checkprotect.asp" -->










<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office"><HEAD><TITLE>Mc</TITLE>
<META http-equiv=Content-Language content=da>
<META content="MSHTML 6.00.2900.2523" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<LINK
href="Mc1234-filer/filelist.xml" rel=File-List><!--[if !mso]>
<STYLE>v\:* {
    BEHAVIOR: url(#default#VML)
}
o\:* {
    BEHAVIOR: url(#default#VML)
}
.shape {
    BEHAVIOR: url(#default#VML)
}
</STYLE>
<![endif]--><!--[if gte mso 9]>
<xml><o:shapedefaults v:ext="edit" spidmax="1027"/>
</xml><![endif]-->
</HEAD>
<BODY bgColor=#c0c0c0>
<H1 align=center><!--[if gte vml 1]><v:shapetype id="_x0000_t161"
coordsize="21600,21600" o:spt="161" adj="4050" path="m,c7200@0,14400@0,21600,m,21600c7200@1,14400@1,21600,21600e">
<v:formulas>
  <v:f eqn="prod #0 4 3"/>
  <v:f eqn="sum 21600 0 @0"/>
  <v:f eqn="val #0"/>
  <v:f eqn="sum 21600 0 #0"/>
</v:formulas>
<v:path textpathok="t" o:connecttype="custom" o:connectlocs="10800,@2;0,10800;10800,@3;21600,10800"
  o:connectangles="270,180,90,0"/>
<v:textpath on="t" fitshape="t" xscale="t"/>
<v:handles>
  <v:h position="center,#0" yrange="0,8100"/>
</v:handles>
<o:lock v:ext="edit" text="t" shapetype="t"/>
</v:shapetype><v:shape id="_x0000_s1025" type="#_x0000_t161" alt="Mc" style='width:45pt;
height:60pt' adj="5665" fillcolor="blue" strokecolor="blue">
<v:shadow color="#868686"/>
<v:textpath style='font-family:"Impact";font-weight:bold;v-text-kern:t'
  trim="t" fitpath="t" xscale="f" string="Mc"/>
</v:shape><![endif]--><![if !vml]><img border=0 width=62 height=84
src="Mc1234-filer/image001.gif" alt=Mc v:shapes="_x0000_s1025"><![endif]></H1>
<HR>

<H3 align=left><u><font color="#0000FF"><a href="index.htm">Til Startside</a></font></u></H3>
<H3 align=left><a href="billedgalori.htm">Tilbage</a></H3>
<P align=left><IMG height=16
dynsrc="Mc1234-filer/[MP3] metallica - metalica Whiskey in the Jar.mp3" width=1
border=0></P>
<P align=left>&nbsp;</P>
<DIV align=center>&nbsp;<!--webbot bot="PhotoAlbum" U-Include="photogallery/photo00006334/real.htm" clientside TAG="BODY" startspan -->
<picture file-href="photogallery/photo00006334/real_p.htm" />
<picture file-href="photogallery/photo00006334/real_x.htm" />
<table border="0" cellspacing="0" cellpadding="0" id="fpGalleryTable_1144">
<tr>
<tr><td height="10"></td>
</tr>
<tr />
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
<td valign="top" style="border-left-style: solid; border-left-width: 1; border-left-color:black">
<table border="0" cellpadding="2" cellspacing="0" align="center" width="120">
<tr>
<td valign="top" align="center" height="104">
<a href="MVH_1_ny.jpg">
<img border="0" vspace="5" hspace="12" src="photogallery/photo00006334/MVH_1_ny.jpg" width="100" height="72" title="" /></a>
</td>
</tr>
<tr>
<td valign="top">

</td>
</tr>
</table>
</td>
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
<td valign="top" style="border-left-style: solid; border-left-width: 1; border-left-color:black">
<table border="0" cellpadding="2" cellspacing="0" align="center" width="120">
<tr>
<td valign="top" align="center" height="104">
<a href="MVH_2_ny.jpg">
<img border="0" vspace="5" hspace="12" src="photogallery/photo00006334/MVH_2_ny.jpg" width="100" height="71" title="" /></a>
</td>
</tr>
<tr>
<td valign="top">

</td>
</tr>
</table>
</td>
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
<td valign="top" style="border-left-style: solid; border-left-width: 1; border-left-color:black">
<table border="0" cellpadding="2" cellspacing="0" align="center" width="120">
<tr>
<td valign="top" align="center" height="104">
<a href="MVH_3_ny.jpg">
<img border="0" vspace="5" hspace="12" src="photogallery/photo00006334/MVH_3_ny.jpg" width="100" height="84" title="" /></a>
</td>
</tr>
<tr>
<td valign="top">

</td>
</tr>
</table>
</td>
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
<td valign="top" style="border-left-style: solid; border-left-width: 1; border-left-color:black">
<table border="0" cellpadding="2" cellspacing="0" align="center" width="120">
<tr>
<td valign="top" align="center" height="104">
<a href="Kawasaki_3.jpg">
<img border="0" vspace="5" hspace="12" src="photogallery/photo00006334/Kawasaki_3.jpg" width="100" height="67" title="" /></a>
</td>
</tr>
<tr>
<td valign="top">

</td>
</tr>
</table>
</td>
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
<td valign="top" style="border-left-style: solid; border-left-width: 1; border-left-color:black;
        border-right-style: solid; border-right-width: 1; border-right-color:black">
<table border="0" cellpadding="2" cellspacing="0" align="center" width="120">
<tr>
<td valign="top" align="center" height="104">
<a href="Kawasaki_2.jpg">
<img border="0" vspace="5" hspace="12" src="photogallery/photo00006334/Kawasaki_2.jpg" width="100" height="67" title="" /></a>
</td>
</tr>
<tr>
<td valign="top">

</td>
</tr>
</table>
</td>
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
<tr><td height="10"></td>
</tr>
<tr />
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
<td valign="top" style="border-left-style: solid; border-left-width: 1; border-left-color:black;
        border-right-style: solid; border-right-width: 1; border-right-color:black">
<table border="0" cellpadding="2" cellspacing="0" align="center" width="120">
<tr>
<td valign="top" align="center" height="104">
<a href="Kawasaki_1.jpg">
<img border="0" vspace="5" hspace="12" src="photogallery/photo00006334/Kawasaki_1.jpg" width="100" height="67" title="" /></a>
</td>
</tr>
<tr>
<td valign="top">

</td>
</tr>
</table>
</td>
<script language="JavaScript1.1">
        if (navigator.appName == "Netscape")
            document.write("<td bgcolor='#AAAAAA' width='1'>&nbsp;</td>");
</script>
</tr>
<tr>
<td colspan="5" />
</tr>
</table>
<!--webbot bot="PhotoAlbum" i-checksum="33173" endspan --><P>&nbsp;</P></DIV></BODY></HTML>

ja jeg prøvet at lukke ie ned så virket det

hvorfor kommer logi ikke igen, hvis man ikke lukker ie ned ,og starter ie op igen

Med denne logi, for alle bruger samme retigheder, til alle BESKYTTEDE filer ikke.
Kan man ikke lave så nogle bruger, kun kan logi på nogle BESKYTTEDE filer

Det har noget med sessions på serveren at gøre. Når din browser spørger serveren om en side, så vil serveren (med standardindstillingerne intakte) give din browser en depeche med et entydigt nummer, som din browser husker og sender med til serveren hver gang du beder browseren vise dig en side. Hvis der går mere end 20 min (også standard), så vil denne depeche blive for gammel og serveren vil give dig en ny.

Denne depeche er adgangsgivende til information, der bliver oprettet på serveren ifm. at du browser sider som ligger på serveren (f.eks. loginid som i eksemplet vi har lavet idag). Hvis den depeche ikke er udløbet når du lukker browseren, kan browseren finde på at tage en gammel (men altså ikke ældre end de 20 min) depeche frem og bruge den. Hvis denne depeche er autoriseret, så er der stadig adgang til de informationer som serveren gemte til browseren sidst den spurgte...

Derfor skal du nok have lavet en "log ud"-funktion, som sikrer at den session du bruger bliver slettet. Dette vil dog stadig kræve at dine brugere husker at aktivere denne funktion (f.eks. et link det hedder "log af" og peger på en side med flg. indhold (kald f.eks. denne side for logaf.asp):

<% @language="vbscript" %>
<%
Session.Contents("userid") = Empty
Response.Redirect "/"
%>

Man kan godt lave en udvidelse i databasen så der kan laves differentieret adgang. Det gør løsningen væsentligere mere kompliceret at vedligeholde og forstå. Jeg kan ridse en mulig løsning op for dig...

1. En ny tabel i databasen som indeholder navnet på alle beskyttede sider

2. En angivelse af hvilke brugere der har adgang til hver side

3. En funktion som tager stilling til om den aktuelle side er tilgængelig for den bruger som forsøger at se siden. Dette er en udvidelse af den nuværende funktionalitet, der bare undersøger om man er logget på.

og så er der nok noget jeg har glemt...

Kan man lave så man login i en mappe på servern, med Brugernavn og Adgangskode,
og kan man lave bruger, uden at jeg skal til at uploade databasen til servern vær gang jeg tilføjer/sletter en bruger

Ja, så skal du lave en side med 2 felter og en submitknap. Når siden så bliver sendt tilbage til serveren, så skal du opdatere databasen med de data der står i felterne.

Jeg har desværre ikke tid til at lave det nu, men jeg vil se om jeg kan finde noget tid imorgen eller tirsdag...

ok tak

Hej softspot

Jeg har lavet en opdater.asp side, med 2 felter og en submitknap ,til at oprette bruger i databasen, på serveren. Hvordan skal koderne se ud, dem der skal på siden opdater.asp

med venlighilsen
mvhansen

Prøv lige at smide formularen herind...

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>

<body>

<p align="center">&nbsp;</p>
<p align="center"><font size="7"><b>Til opdatering af database</b></font></p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<form method="POST" action="--WEBBOT-SELF--">
    <!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.csv" S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
    <p align="center"><font size="4"><b>Brugernavn:</b></font>&nbsp;&nbsp;&nbsp;
    <input type="text" name="T1" size="20"></p>
</form>
<p align="center"><b><font size="4">Adgangskode:</font></b>
<input type="text" name="T2" size="20"></p>
<p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="submit" value="Send" name="B1" style="font-size: 10pt; font-weight: bold"></p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<form method="POST" action="--WEBBOT-SELF--">
    <!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.csv" S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
    <p align="center">&nbsp;</p>
</form>
<p align="center">&nbsp;</p>

</body>

</html>

Det er en god idé at give dine felter sigende navne, så jeg har lige ændret lidt i din formular:

<%@language="vbscript"%>
<!-- #include file="connSetup.asp" -->
<%
strBesked = ""
if request.form("send") <> "" then
  strBrugernavn = request.form("brugernavn")
  strAdgangskode = request.form("adgangskode")
  if len(strBrugernavn) > 0 and len(strAdgangskode) > 0 then
    strSQL = "INSERT INTO bruger(brugernavn,adgangskode)" & _
        "VALUES('" & strBrugernavn & "','" & strAdgangskode & "')"
    set objConn = getConnected()
    objConn.Execute(strSQL)
    objConn.Close
    set objConn = nothing
    strBesked = "Brugeren '" & strBrugernavn & "' er nu oprettet."
  else
    strBesked = "Både brugernavn og adgangskode skal være udfyldt."
  end if
end if
%>
<html>

<head>
  <meta http-equiv="Content-Language" content="da">
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  <title>Ny side 1</title>
</head>

<body>

<p align="center">&nbsp;</p>
<p align="center"><font size="7"><b>Til opdatering af database</b></font></p>
<p align="center">&nbsp;</p>
<p align="center"><%=strBesked%></p>
<p align="center">&nbsp;</p>
<form method="POST" action="--WEBBOT-SELF--">
    <!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.csv" S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
    <p align="center"><font size="4"><b>Brugernavn:</b></font>&nbsp;&nbsp;&nbsp;
    <input type="text" name="brugernavn" size="20"></p>
</form>
<p align="center"><b><font size="4">Adgangskode:</font></b>
<input type="text" name="adgangskode" size="20"></p>
<p align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="submit" value="Send" name="send" style="font-size: 10pt; font-weight: bold"></p>
</form>

</body>

</html>

Hej softspot

Den indsætter ikke nye bruger, ind i databasen, skal der skrives domænenavn i script ?

Prøv lige at udskifte din html-kode med denne:

<html>

<head>
  <meta http-equiv="Content-Language" content="da">
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  <title>Ny side 1</title>
</head>

<body>

<p align="center">&nbsp;</p>
<p align="center"><font size="7"><b>Til opdatering af database</b></font></p>
<p align="center">&nbsp;</p>
<p align="center"><%=strBesked%></p>
<p align="center">&nbsp;</p>
<form method="POST" action="">
  <p align="center"><font size="4"><b>Brugernavn:</b></font>&nbsp;&nbsp;&nbsp;
  <input type="text" name="brugernavn" size="20"></p>
  <p align="center"><b><font size="4">Adgangskode:</font></b>
  <input type="text" name="adgangskode" size="20"></p>
  <p align="center"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  <input type="submit" value="Send" name="send" style="font-size: 10pt; font-weight: bold"></p>
</form>

</body>

</html>

nu skriver den siden kan ikke vises

Du fjernede ikke scriptkode i toppen af siden, vel?

nej

<%@language="vbscript"%>
<!-- #include file="connSetup.asp" -->
<%
strBesked = ""
if request.form("send") <> "" then
  strBrugernavn = request.form("brugernavn")
  strAdgangskode = request.form("adgangskode")
  if len(strBrugernavn) > 0 and len(strAdgangskode) > 0 then
    strSQL = "INSERT INTO bruger(brugernavn,adgangskode)" & _
        "VALUES('" & strBrugernavn & "','" & strAdgangskode & "')"
    set objConn = getConnected()
    objConn.Execute(strSQL)
    objConn.Close
    set objConn = nothing
    strBesked = "Brugeren '" & strBrugernavn & "' er nu oprettet."
  else
    strBesked = "Både brugernavn og adgangskode skal være udfyldt."
  end if
end if
%>
<html>

<head>
  <meta http-equiv="Content-Language" content="da">
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  <title>Ny side 1</title>
</head>

<body>

<p align="center">&nbsp;</p>
<p align="center"><font size="7"><b>Til opdatering af database</b></font></p>
<p align="center">&nbsp;</p>
<p align="center"><%=strBesked%></p>
<p align="center">&nbsp;</p>
<form method="POST" action="">
  <p align="center"><font size="4"><b>Brugernavn:</b></font>&nbsp;&nbsp;&nbsp;
  <input type="text" name="brugernavn" size="20"></p>
  <p align="center"><b><font size="4">Adgangskode:</font></b>
  <input type="text" name="adgangskode" size="20"></p>
  <p align="center"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  <input type="submit" value="Send" name="send" style="font-size: 10pt; font-weight: bold"></p>
</form>

</body>

</html>

og connSetup.asp ligger i samme folder som denne side?

ja




<%
function getConnected()
  dim strConn, objConn
 
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  set objConn = Server.CreateObject("ADODB.Connection")
  ' Forbind til databasen
  objConn.Open strConn

  set getConnected = objConn
end function
%>

Det lyder godt nok lidt spøjst...

prøv lige at ændre disse to linier

    set objConn = getConnected()
    objConn.Execute(strSQL)

til

    set objConn = getConnected
    objConn.Execute strSQL

Du har vel ikke et link til siden, så jeg kan se fejlen i min egen browser?

www.dyrberg.adsl.dk  ,webhoteler,  bruger test  paswod test

de to linier er det i connSetup.asp

Det er i øvrigt en total dårlig idé at lægge sine password og brugernavne i en javascript-fil - det drøner lige ud til brugeren og er til umiddelbar aflæsning og misbrug, så det vil jeg på det varmeste anbefale at du hurtigst muligt får ændret!

Mht. fejlen, så check lige om du (dvs. IUSR-brugeren) har skriverettigheder til den folder hvor databasen ligger...

ja den til billeder, den asp logind kommer på der

øøh, ikke forstået? Hvad var det et svar på?

www.dyrberg.adsl.dk  ,webhoteler

Er den adresse tiltænkt oprettelse af nye brugere...?

skal foldern være delt

nej, IUSR_<maskinnavnet> skal have adgang til at oprette, skrive og læse i den folder hvor databasen ligger.

Højreklik på folderen i stifinder, vælg egenskaber, vælg fanen sikkerhed og find brugeren der starter med "IUSR_" (eller tilføj hvis den ikke findes), sørg for at denne bruger har de nævnte rettigheder... Accepter - og prøv igen.

nej det er en test

jeg har tilføjet IUSR og rettigheder

jeg tror at det virker nu

Jamen, så fungerer det jo :)

du får mange tak smid et svar så du kan få nogle point

det med at give forskelig retigheder til forskellig bruger er det svær at lave

Jeg vil umiddelbart anbefale at du venter lidt med at implementere det. Prøv i første omgang at kigge på det der er lavet mht. opdatering og eksperimenter lidt med læsning, opdatering og oprettelse af data i databasen, så du bliver helt fortrolig med det.

Når du er det, så er det, i en simpel udgave, overkommeligt at lave en side som vedligeholder navne på de sider der er beskyttet.

Derefter skal du lave en side der kobler brugerne sammen med de enkelte sider. Denne side kan godt være lidt mere langhåret, men så melder du dig bare her på eksperten igen, så skal jeg nok se om jeg kan hjælpe dig med det...

hvordan ser asp siden ud man sletter bruger i databasen

Du kan bruge den samme formular som du opretter fra og så bare lægge en slet-knap på.

<%@language="vbscript"%>
<!-- #include file="connSetup.asp" -->
<%
strBesked = ""
if request.form("send") <> "" then
  strBrugernavn = request.form("brugernavn")
  strAdgangskode = request.form("adgangskode")
  if len(strBrugernavn) > 0 and len(strAdgangskode) > 0 then
    strSQL = "INSERT INTO bruger(brugernavn,adgangskode)" & _
        "VALUES('" & strBrugernavn & "','" & strAdgangskode & "')"
    set objConn = getConnected()
    objConn.Execute(strSQL)
    objConn.Close
    set objConn = nothing
    strBesked = "Brugeren '" & strBrugernavn & "' er nu oprettet."
  else
    strBesked = "Både brugernavn og adgangskode skal være udfyldt."
  end if

elseif request.form("slet") <> "" then
  strBrugernavn = request.form("brugernavn")
  strAdgangskode = request.form("adgangskode")
  if len(strBrugernavn) > 0 and len(strAdgangskode) > 0 then
    strSQL = "SELECT * " & _
        "FROM bruger " & _
        "WHERE brugernavn = '" & strBrugernavn & "' " & _
        " AND adgangskode = '" & strAdgangskode & "'"
    set objConn = getConnected()
    set rs = objConn.Execute(strSQL)
    if rs.eof then
      strBesked = "Brugeren '" & strBrugernavn & "' findes ikke i databasen."
    else
      strSQL = "DELETE FROM bruger WHERE id = " & rs("id")
      objConn.Execute strSQL
      strBesked = "Brugeren '" & strBrugernavn & "' er nu slettet."
    end if
    rs.Close
    set rs = nothing
    objConn.Close
    set objConn = nothing
  else
    strBesked = "Både brugernavn og adgangskode skal være udfyldt."
  end if

end if
%>
<html>

<head>
  <meta http-equiv="Content-Language" content="da">
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  <title>Ny side 1</title>
</head>

<body>

<p align="center">&nbsp;</p>
<p align="center"><font size="7"><b>Til opdatering af database</b></font></p>
<p align="center">&nbsp;</p>
<p align="center"><%=strBesked%></p>
<p align="center">&nbsp;</p>
<form method="POST" action="">
  <p align="center"><font size="4"><b>Brugernavn:</b></font>&nbsp;&nbsp;&nbsp;
  <input type="text" name="brugernavn" size="20"></p>
  <p align="center"><b><font size="4">Adgangskode:</font></b>
  <input type="text" name="adgangskode" size="20"></p>
  <p align="center"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  <input type="submit" value="Slet" name="slet" style="font-size: 10pt; font-weight: bold">
  <input type="submit" value="Send" name="send" style="font-size: 10pt; font-weight: bold"></p>
</form>

</body>

</html>

tak

Tak for point :)

Hejsa,

ved ikke om man kan skrive på et gammelt spm, men forsøger lige.

Jeg har fundet dette spm meget brugbart, men dog er der enkelte ting som jeg gerne ville spørge softspot om. Så jeg håber ligsom at jeg via denne vej kan komme direkte til kilden og spørge.

På forhånd tak!!

Mvh dsj

Prøv at skrive dit spørgsmål :)

Hej softspot,

Ok, det er sådan at jeg er ved at lave en hjemme side som jeg gerne vil beskytte på nogle sider af hensyn til misbrug, så derfor har jeg taget din udemærket opskrift her på dette spm ibrug, men da jeg har en hostet hjemmeside hos b-one kunne jeg ikke umiddelbart tyde hvordan min connection string til database som er en MySQL hos b-one.
under deres support oplyser de at en connection string kan se således ud:

<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;
DATABASE=[DOMAIN_COM];UID=[DOMAIN_COM];PWD=[PASSWORD];"
objConn.Open

objRS.Open "[QUERY]", objConn, 3,3
%>

<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

Jeg er ikke nogen haj til script sprog.
Så kunne du fortælle mig hvordan man bedst kan tilpasse deres connections string til så det passer ind i din connSetup.asp???

for når det passer tror jeg såmæn at det vil virke!!!

På forhånd tak!!

mvh dsj

p.s jeg vil gerne postere point i et andet spm, bare du lige flg med så ;-)

mvh dsj

De steder hvor der står noget i [] skal udskiftes med de faktiske oplysninger, dvs. [DOMAIN_COM] er databasenavnet som du har fået af din udbyder [PASSWORD] skal være den adgangskode der er lagt på din database og [QUERY] er den forspørgsel som skal udføres imod databasen. Eksempel:

databasenavn: dsj31
adgangskode: yhb23g1n2
forspørgsel: SELECT * FROM bruger WHERE

Vil give flg. kode:

<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;
DATABASE=dsj31;UID=dsj31;PWD=yhb23g1n2;"
objConn.Open

objRS.Open "SELECT * FROM bruger WHERE", objConn, 3,3
%>

<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

Hej softspot,

ja det havde jeg nu også gjort, dog havde jeg glemt at fjerne [] et af stederne, men får dog stadig samme fejl, nemlig

HTTP 500.100 med denne beskrivelse (måske du kan tyde)

Error Type:
Sun ONE ASP VBScript compilation (0x800A0438)
Unexpected end of line inside a string
connSetup.asp, line 7, column 60


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)

på forhånd tak

Mvh dsj

Prøv lige at vise din kode, for det lyder som om du mangler at lukke en eller anden streng korrekt... du må f.eks. ikke lave linieskift inde midt i en streng.

Det er nok denne her:

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;
DATABASE=dsj31;UID=dsj31;PWD=yhb23g1n2;"

Der f.eks. skal rettes til dette:

objConn.ConnectionString = "DRIVER={MySQL};SERVER=localhost;" & _
    "DATABASE=dsj31;UID=dsj31;PWD=yhb23g1n2;"

Ja nu blev det rettet, men en ny fejl blev fundet, men det kunne godt tyde på at jeg måske ikke har oprettet tabellen rigtigt i SQL....anyway får denne fejl nu

Error Type:
ADODB.Recordset.1 (0x80004005)
SQLState: 4 Native Error Code: 1064 [TCX][MyODBC]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
connSetup.asp, line 11

Der mangler jo også noget til den where-clause:

objRS.Open "SELECT * FROM bruger WHERE id=" & id, objConn, 3,3

Aarh crap! Jeg var igang med at skrive en WHERE-clause i mit eksempel, men så ombestemte jeg mig til bare at vælge alle - jeg fik så bare ikke lige slettet WHERE fra SQL-sætningen... SORRY!

Men ja, det var som sagt bare et eksempel, så du er nød til at have databasen defineret og naturligvis bruge den datastruktur du har lagt dig fast på, for ellers får du ikke noget til at fungere... :)

Hej igen,

hvordan definet, jeg har oprettet en tabel (bruger) og i denne har jeg 3 felter "id" , "brugernavn" og "adgangskode"

Er der noget jeg skal erstatte i denne streng:

objRS.Open "SELECT * FROM bruger WHERE id=" & id, objConn, 3,3

Nu har jeg rettet connSetup.asp dette nedenstående, men mangler der ikke en getConnected streng eller noget i den du´r???

<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost; & _
"DATABASE=dsj31;UID=dsj31;PWD=yhb23g1n2;"
objConn.Open

objRS.Open "SELECT * FROM bruger" , objConn, 3,3
%>

<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

1. Har du oplysninger om din database, dvs. hvordan du kommer på den (adgangskode og brugernavn), samt hvor den ligger osv.?

2. Har du defineret din database, dvs. oprettet tabeller og givet de enkelte felter typer osv.?

3. Har du oprettet alle de filer der er instrueret om i denne tråd?

Hvis du kan svare på alle ovenstående spørgsmål, så burde det bare være et spørgsmål om at indsætte din egen connectionstreng i funktionen getConnected (find den tidligere i denne tråd) og så udføre din forspørgsel imod din database. Andet er der ikke umiddelbart i det...

Bemærk i øvrigt at din connectionstreng skal formuleres i en lovlig VBS-syntaks, således:

objConn.ConnectionString = "DRIVER={MySQL};SERVER=localhost;" & _
  "DATABASE=dsj31;UID=dsj31;PWD=yhb23g1n2;"

Der mangler altså et anførselstegn inden & _

Hej softspot,

Ja, opdagede godt at jeg glemte anførelsestegn, men den står rigtigt i filen.

Jeg har sådan set fået det til at virke så langt at den beder om brugernavn og password, men i det den skal springe ind til den pågældene side så går den i fejl, hvor den skriver at getConnected function ikke er defineret.

Og så var jeg jo lige oppe i starten af denne tråd og kigge og kan se at du har funktionen getConnected i både "login.asp" og "connSetup.asp"

Det var derfor jeg spurgte til om jeg egentlig ikke skulle have en getConnected funktion lagt ind i min connSetup.asp, men det er jo ikke sikkert da min connSetup.asp adskiller sig lidt fra din opskrift.

Undskylder lige lange svartider, men det er sgu´tte ikk nemt med arbejde, familie og det ene og det andet  :o)

Mvh dsj

getConnected skal kun ligge et sted og det sted skal der være adgang til fra de filer der benytter den. Hvis du ikke har adgang til den, så er det nok fordi du ikke har inkluderet den fil hvor den ligger. Der er i denne tråd blevet flyttet lidt rundt på tingene, så det kan være du er blevet lidt forvirret i løbet af tråden (eller også er jeg).

Jeg vil umiddelbart anbefale at du lægger den i en separat asp-fil, da den så kan bruges andre steder uden at login-funktionaliteten i øvrigt skal blandes ind i de sammenhænge.

Ja måske er det mig som er blevet lidt forvirret, men der hvor jeg mener at læse (men er jo ikke nogen ekspert i at læse scripts) dine getConnected functions ligger i båede "login.asp" og "connSetup.asp"

Men kan da godt se at en "getConnected.asp" fil kunne være en fordel for mig, men så antager jeg at man i så fald skal fjerne funktionen i de andre "asp-filer", eller???

Måske er det bare mig som snørkler lidt i det, må prøve at læse igennem igen.

Mvh dsj

Jeg ville foreslå at du lægger funktionen i en separat fil (hvor du evt. også kunne have andre databaseorinterede funktioner liggende). Den fil skal du så inkludere i de filer hvor du skal foretage opslag eller opdateringer i databasen. Dette gøres ved at indsætte flg. linie i dine ASP-sider:

<!-- #include file="connection.asp" -->

Funktionen getConnected skal så KUN ligge i connection.asp.

Hov det var min intention i mit indslag 21/03-2006 11:49:56 at nævne dit indslag Kommentar: softspot
09/10-2005 16:48:17
efter de 2 første linier, så kunne du måske forstå hvad det var jeg mente.

mvh dsj

Jeg fastholder min rådgivning indtil videre :)

Hej softspot,

Det er bare helt i orden, jeg må jo bare prøve mig frem lidt og se hvad der sker.

Jeg har oprettet spm 696894 med point til dig, hvis du lige gider ligge svar ind der.

Og tusind tak for din tid og hjælp!!


Mvh dsj

Prøv at smide en oversigt over din filstruktur og kort beskriv hvad hver fil indeholder, for det lader til at du ikke er helt afklaret med hvad du skal...

Ok, jeg er jeg lige ophængt lige nu men vender tilbage i aften så skal jeg nok give dig det du spørger på.

Mvh dsj

Super! :)

Hej igen,

undskyld ventetiden men det var lige før jeg ikke kunne slippe for mere arbejde!

Nå men som sagt så er mit domain hosted hos b-one!
HVor jeg har data oplysninger s.s: domain, mySQL; databasenavn, brugernavn , password (bruger PHPMyadmin til administration af database)
Jeg har lavet flg. filer efter din opskift, dog er connSetup. asp anderledes som du nok selv ved. Har også oprettet en tabel i min MySQL database som er navn givet "bruger" med 3 felter "id" , "brugernavn" og "adgangskode". (data base funktion ser ud til at virke i orden.

"login.asp" , "connSetup.asp" , "checkprotect.asp", ja har sågar også lavet "opdater bruger.asp" men den har jeg ikke sat ind endnu, før det hele virker. alle filerne er i første omgang lagt i roden ( ja det vil sige roden af det som jeg nu kan se på mit webhotel, tror du ved hvad jeg mener). de filer kan jo altid sener hen blive lagt andre steder hen for optimal sikkerhed.

du har ret i at jeg ikke er helt afklaret med hvad jeg skal mht. den getConnected funktion, for jeg syntes jo umiddelbart at det ville være det nemmeste at omskrive "min" connSetup.asp script version således at den passer med "din" connSetup.asp opskift.

specielt føler jeg at  det er denne linie jeg skal have tilpasset mine oplysnings data (fra webhotel).

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")

Men jeg kam ikke lige hitte hvad den Provider skal være, har prøvet med "MySQLProv" men det så ikke ud til at webhost ville æde det, så det du´tter nok ikk.

men som sagt jeg prøver mig lidt frem.

Prøv lige at vise den kode du arbejder med.

Hvis jeg lige skal prøve at skitsere hvilken løsning jeg ville mene du skulle ende med:

connSetup.asp indeholder flg. kode:

<%
function getConnected()
  dim strConn, objConn
 
  strConn = "DRIVER={MySQL};SERVER=localhost;" & _
            "DATABASE=dsj31;UID=dsj31;PWD=yhb23g1n2;"

  set objConn = Server.CreateObject("ADODB.Connection")
  ' Forbind til databasen
  objConn.Open strConn

  set getConnected = objConn
end function
%>


beskyttede sider indeholder bla. flg. kode (skal lægges i toppen):

<% @language="vbscript" %>
<!-- #include file="checkprotect.asp" -->


og læg dette kode i en fil der hedder checkprotect.asp:

<%
if isempty(session.contents("userid")) then
  server.transfer "login.asp"
end if
%>


login.asp er så en side med en formular hvor du kan logge på systemet og hvor der altså skal checkes i databasen om brugeren findes osv. (ligesom den der er lavet her: http://www.eksperten.dk/spm/654393#rid5840561)

Bingo, det var lige precis det jeg mente, det var bare connSetup filen som skulle rettes lidt til i scriptet. jeg tog lige og afprøvede det med det samme da jeg kunne se at det var lidt derhen af jeg selv ville.

nu springer den fint videre til den side man opringeligt bad om og den godkender brugernavn og password. lækkert.

Godt så! :D

nej det er sgu sejt, tusind tak for hjælpen!!

Jeg har dog et lille tillægs spørgsmål, som går ud på noget du forklarede tidligere i dette spm, om sessions på serveren. som jeg forstod er standard 20 min og derfor vil en browser huske siden/erne efter login indtil at den/disse er blevet 20 min. for gamle.....
Er disse sessions noget man kan stille tiden ned på via scripts eller er det noget som skal gøres indefra på serveren???

Jeg har ikke arbejdet så meget i at ændre på timeout i kode eller på serveren for den sags skyld, men der findes en egenskab på session-objektet der hedder timeout - det burde efter min bedste overbevisning sætte timeout for den aktuelle session. Det må være nogenlunde således:

Session.Timeout = 10

for at opnå et timeout på 10 minutter

Den kan du så f.eks. sætte i global.asa i funktionen Session_OnStart() eller i en asp-fil som bliver kaldt tidligt i en session.

Hvis du gerne vil sørge for at en brugers login-informationer bliver slettet fra session, kan du enten kalde session.abandon eller fjerne den session-variabel som indeholder brugerens login-info. Det kan du gøre med

Session.Contents.Remove("userid")

hvis login-info altså ligger i userid :)

Dette vil dog kræve at brugeren selv sørger for at logge af. Hvis det skal ske automatisk, så er du straks ude i en helt anden, om ikke kompliceret så resursekrævende teknik...

Det tror jeg du har ret i at det nok bliver en kompliceret omgang så det bliver ikke i denne omgang jeg sysler med det, men vil da absolut prøve på et tidspunkt og se om det kan lade sig gøre.

Du skal i alle fald have mange tak for din hjælp og meget omhyggelige forstående input, det er noget jeg syntes du gør rigtig meget ud af.

NU tror jeg at jeg vil finde min seng, det har været en lang dag.

Hav en forsat god aften!!

mvh dsj

Velbekomme og tak i lige måde :)