Avatar billede remedy Nybegynder
21. oktober 2001 - 19:33 Der er 51 kommentarer og
1 løsning

LOGIN SCRIPT

Jeg sakl bruge En side hvor man kan logge ind på, og en side som man havner på hvis man har tastet rigtig password og user navn ind... Nogle der lige vil lave en eksempel for mig? der er 400 point ude i puljen.

Remedy out.
Avatar billede Slettet bruger
21. oktober 2001 - 19:35 #1
Avatar billede Slettet bruger
21. oktober 2001 - 19:36 #2
Der er eksempel på brugeroprettelse, login osv...
Hvis du skal bruge mere må du bare sige til...
Avatar billede cliche Nybegynder
21. oktober 2001 - 19:38 #4
remedy, jeg er selv ved at lave det ultimative uden brug af cookies.....det bliver ondt, kan havde det helt færdigt til dig mandag aften?
Avatar billede egede Nybegynder
21. oktober 2001 - 19:39 #5
Avatar billede remedy Nybegynder
21. oktober 2001 - 19:46 #6
Cliche:

Jo det er da bare i orden... :-) de 400 for du når jeg ser det virker på min side :-)

hvis det er kan du jo lige kigge på
http://www.aabenraa-techno.subnet.dk
Jeg ved godt subnet.dk ikek understøtter ASP men domæne med FP ASP PHP osv osv. er på vej :-)
Avatar billede crunch Nybegynder
21. oktober 2001 - 20:17 #7
forside (admin.asp):

<html>
<head>
<title>ADMINISTRATION</title>

<style fprolloverstyle>A:hover {color: #000000; text-decoration: underline}
</style>

<script language=\"JavaScript\">
<!--
function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_validateForm() { //v3.0
  var i,p,q,nm,test,num,min,max,errors=\'\',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!=\"\") {
      if (test.indexOf(\'isEmail\')!=-1) { p=val.indexOf(\'@\');
        if (p<1 || p==(val.length-1)) errors+=\'- \'+nm+\' must contain an e-mail address.\\n\';
      } else if (test!=\'R\') { num = parseFloat(val);
        if (val!=\'\'+num) errors+=\'- \'+nm+\' must contain a number.\\n\';
        if (test.indexOf(\'inRange\') != -1) { p=test.indexOf(\':\');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+=\'- \'+nm+\' must contain a number between \'+min+\' and \'+max+\'.\\n\';
    } } } else if (test.charAt(0) == \'R\') errors += \'- \'+nm+\' is required.\\n\'; }
  } if (errors) alert(\'The following error(s) occurred:\\n\'+errors);
  document.MM_returnValue = (errors == \'\');
}
//-->
</script>
</head>
<body bgcolor=\"#FFFFFF\">
<table width=\"600\" border=\"0\" align=\"center\" bgcolor=\"#999999\" height=\"100%\">
  <tr>
               
<td>
                 
<div align=\"center\">
   
        <form name=\"myform\" action=\"admin-gateway.asp\" method=post onSubmit=\"MM_validateForm(\'Brugernavn\',\'\',\'R\',\'Password\',\'\',\'R\');return document.MM_returnValue\">
          <center>
                       
<div align=\"center\">
                         
<table border = 0 width=\"350\">
                           
<tr>
                             
<td colspan=\"2\">
                               
<div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"3\"><b><br>
                                </b><br>
                                  <b> <%
Select Case request.querystring(\"error\")
Case \"1\"%>
    <script language=\"javascript\">
<!--
alert(\"Forkert Brugernavn eller Adgangskode !\")
//-->
</script>
<%
End select
%> Log ind</b><br>
                                  <br>
                                  </font></div>
</td>
</tr>
                           
<tr>
                             
<td width=\"177\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Brugernavn:</b></font></td>
<td width=\"213\">
                               
<div align=\"right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
                                 
<input name=\"Brugernavn\" type=text>
                                  </font></div>
</td>
<tr>
                             
<td width=\"177\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Password:</b></font></td>
<td width=\"213\">
                               
<div align=\"right\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
                                 
<input name=\"Password\" type=password>
                                  </font> </div>
</td>
<tr>
                             
<td width=\"177\">&nbsp;</td>
<td width=\"213\">
                               
<div align=\"right\"><br>
                                 
<input type=\"submit\" value= \"  LOG IND  \" name=\"submit\">
                                </div>
</td>
</table>
<p><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><br>
                          <br>
                          </font> </p>
</div>
</center>
</form>
</div>
</td>
</tr>
           
</table>

</body>
</HTML>


tjek side (admin-gateway.asp)

<%
session(\"a\") =         Request.Form(\"Brugernavn\")
session(\"b\") =         Request.Form(\"Password\")

if Request.Form(\"Brugernavn\")= \"godkentbrugernavnskrivesher\" and Request.Form(\"Password\") = \"godkendtpasswordskrivesher\" then
Response.Cookies(\"Identifi\") = \"supernova\"
response.redirect \"admin-login.asp\"
else
response.redirect \"admin.asp?error=1\"
end if
%>



godkendt login side (admin-login.asp) skal indeholde:

<%
if Request.cookies(\"Identifi\") = \"supernova\" then
response.write \"\"
else
response.redirect \"admin.asp?error=1\"
end if
%>


- og alle andres sider skal også indeholde:

if Request.cookies(\"Identifi\") = \"supernova\" then
response.write \"\"
else
response.redirect \"admin.asp?error=1\"
end if
%>
Avatar billede -sofus- Nybegynder
21. oktober 2001 - 20:25 #8
=> Magik dit login script er genialt, men hvad er betingelsen for at bruge det kommercielt og hvornår vil du sige at en side er kommercielt  ?

Avatar billede cliche Nybegynder
21. oktober 2001 - 20:27 #9
remedy så vent til imorgen aften med at acceptere, sidder og har en småskid på efter en 60 års fødselsdag, så kan desværre ikke arbejde på det idag ;)
Avatar billede remedy Nybegynder
21. oktober 2001 - 20:34 #10
Ja okay... Jeg kigge på alle forslag herinde... Det der komme i brug... giver jeg 400 til.. .:-)

Bare ikke de der linkz... dem kan alle finde....

:-Þ
Avatar billede cliche Nybegynder
21. oktober 2001 - 20:35 #11
Med mit kan du adde bruger på to måder, det er genialt simpelt og utroligt sikkert
Avatar billede 2-maz Nybegynder
21. oktober 2001 - 20:39 #12
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"dindatabase.mdb\")
Conn.Open DSN

strSQL = \"SELECT * FROM dintabel WHERE brugernavn = \'\" & Request.Form(\"brugernavn\") & \"\'\"
Set rs = Conn.Execute(strSQL)
If rs.EOF Then
  Response.Write \"Brugeren findes ikke\"
Else
nick1 = rs(\"brugernavn\")
nick2 = Request.Form(\"brugernavn\")
pass1 = rs(\"kodeord\")
pass2 = Request.Form(\"adgangskode\")
If Lcase(nick1) = Lcase(nick2) AND LCase(pass1) = Lcase(pass2) Then
Response.Redirect(\"dinside.asp\")
Session(\"login\") = \"JA\"
Else
  response.Write \"Der skete en FEJL\"
End If
End If

%>

PÅ den anden side indsætter du:
If Session(\"login\") <> \"JA\" Then
  Response.Write \"DU ER IKKE LOGGET IND\"
End if
Avatar billede disk Nybegynder
21. oktober 2001 - 22:03 #13
Jeg kan lave et med acces kan have det klar on 2 dage!
Avatar billede disk Nybegynder
21. oktober 2001 - 22:04 #14
UPS om 2 dage
Avatar billede remedy Nybegynder
21. oktober 2001 - 22:55 #15
Kan ikke lide Acces :-(

Avatar billede remedy Nybegynder
21. oktober 2001 - 22:56 #16
Att. Cliche

Har du ikke lige et ICq nummer?
Avatar billede cliche Nybegynder
21. oktober 2001 - 23:14 #17
Jo hvad er dit ?
Er ikke så meget for at det florere alt for mange lamers :)
Avatar billede cliche Nybegynder
21. oktober 2001 - 23:36 #18
Hvad er dit nr. ??
Avatar billede remedy Nybegynder
21. oktober 2001 - 23:42 #19
Cliche:

47304771
Avatar billede Slettet bruger
22. oktober 2001 - 10:51 #20
remedy: Du kan nok godt få lov til at bruge det uden afregning hvis du gerne vil :)

Har også et nyere script du kan få - bare send en mail på webmaster@magik.dk hvis du er interesseret!
Avatar billede cliche Nybegynder
22. oktober 2001 - 10:56 #21
magik, alle på eksperten skal ha gavn af sourcekoder, du skal paste det her ;) lille ven
Avatar billede Slettet bruger
22. oktober 2001 - 11:38 #22
jaja, rolig nu cliche... skal nok poste hvis han vil have mig til at lave det.. synes bare ikke der er nogen grund til at spamme forums som nogen gør det... ;)
Avatar billede disk Nybegynder
22. oktober 2001 - 22:11 #23
Har du fådet et login system eller har du ikke??
Avatar billede remedy Nybegynder
23. oktober 2001 - 07:17 #24
Jeg magler stadigvæk fra en vis person, men hvis du har et foreslag, så sig til...
Avatar billede Slettet bruger
23. oktober 2001 - 14:08 #25
<html>
<head>
<title>Login-system</title>
<style>
TD, BODY {font-size:9pt;font-family:Verdana, Tahoma;}
INPUT {font-size:8pt;font-family:Verdana, Tahoma;}
</style>
</head>
<body>
<%
Dim mode
mode = Request.QueryString(\"mode\")

If mode= \"validate\" Then
Dim brugernavn, password, Conn, rs, tilbageLink
tilbageLink = \"<br><a href=\"\"java script:history.back()\"\">&laquo;&nbsp;Tilbage</a>\" \'Link til at gå en side tilbage

brugernavn = Trim(Replace(Request.Form(\"brugernavn\"), \"\'\", \"\")) \'Fjerner plinger (\') for at man ikke kan snyde sig igennem
password = Trim(Replace(Request.Form(\"password\"), \"\'\", \"\")) \' -||-

If brugernavn = \"\" Or password = \"\" Then
errorTxt = \"Både brugernavn og password skal indtastes for at du kan logge ind.\" \'Fejltekst til udskrivning ved manglende indtastning
End If

If errorTxt = \"\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN

Set rs = Conn.Execute(\"SELECT * FROM brugere WHERE brugernavn=\'\" & brugernavn & \"\' AND password=\'\" & password & \"\'\")
If Not rs.EOF Then
Session(\"login\") = True \'Bruges til at teste på om bruger er logget ind (If Session(\"login\") = True Then...)
Session(\"brugerID\") = rs(\"id\") \'Bruges til at finde ud af hvem vedkommende er
Response.Redirect(\"ny_side.asp\") \'Siden man skal overføres til når der er logget korrekt ind
Else
Response.Write \"Du blev ikke logget ind. Du har muligvis indtastet forkert password eller brugernavn.\" & tilbageLink
End If
Conn.Close
Set Conn = Nothing
Else
Response.Write errorTxt & tilbageLink \'Udskrives ved manglende indtastning
End If
Else%>
<form method=\"POST\" action=\"login.asp?mode=validate\">
<table width=\"50%\" cellspacing=0 cellpadding=4 border=0>
<tr>
    <td colspan=2><h3>Login</b></td>
</tr>
<tr>
    <td width=100>Brugernavn:</td>
    <td><input type=\"text\" name=\"brugernavn\" size=\"20\"></td>
</tr>
<tr>
    <td width=100>Password:</td>
    <td><input type=\"text\" name=\"password\" size=\"20\"></td>
</tr>
<tr>
    <td>&nbsp;</td>
    <td><input type=\"submit\" value=\"Log ind\"></td>
</tr>
</table>
</form>
<%End If%>
</body>
</html>
Avatar billede disk Nybegynder
23. oktober 2001 - 19:56 #26
Jeg kan lave et i asp hvor koden står i scriptet hvis du skulle være intereseret
Avatar billede remedy Nybegynder
23. oktober 2001 - 23:15 #27
Att. Disk

Du må gerne lave et, så skal jeg se om det er det jeg søger efter, men jeg mangler stadigvæk, et fra en anden person, og da jeg tager det jeg bedst kan \"lide\" så er det ikke sikkert at du for så meget ud af det...

Remedy.
Avatar billede disk Nybegynder
24. oktober 2001 - 19:29 #28
Ok jeg prøver lige at lave et
Avatar billede disk Nybegynder
24. oktober 2001 - 20:59 #29
Ok er er et link til et exempel: http://www21.brinkster.com/coolkoder/experten/login.asp
kommer snart et download til det hvis sedfølgie du siger at det er godt nok.
Avatar billede disk Nybegynder
24. oktober 2001 - 21:12 #30
hvis der mangler noget i det skal du bare sige til så kan jeg højest sansyneligt også lave det!

/disk
Avatar billede disk Nybegynder
24. oktober 2001 - 21:36 #31
UPS! jeg glemte at skrive brugernavn & password brugernavn er lige nu bruger og password er kode

/disk
Avatar billede remedy Nybegynder
24. oktober 2001 - 22:54 #32
Att. Disk

Jeg fornemmer, at man kan gå bagom, altså at skrive hele url\'n i adresse og den vej rundt....
Avatar billede disk Nybegynder
25. oktober 2001 - 15:20 #33
Ja men så skal man skrive den efterfølgende querystring og det kan man ikke vide før man har logget ind en gang

/disk
Avatar billede disk Nybegynder
25. oktober 2001 - 15:22 #34
den querystring kan man jo også lave til noget helt mulapyk det kan man jo gå ind og redigere i som man vil hvis ikke du kan det vil jeg gerne gøre det
Avatar billede disk Nybegynder
25. oktober 2001 - 15:29 #35
Jeg kan også gøre så dataene ikke bliver sendt via url\'en hvis du hellere vil det

/disk
Avatar billede remedy Nybegynder
25. oktober 2001 - 15:51 #36
Att. Disk.

Jeg prøver mig frem...
Avatar billede disk Nybegynder
25. oktober 2001 - 19:11 #37
Hvad mener du med mit login system eller ved andre??
Avatar billede pepsi2 Nybegynder
25. oktober 2001 - 19:47 #38
Har forleden lavet et loginscript

http://www20.brinkster.com/bonopc
Avatar billede disk Nybegynder
25. oktober 2001 - 19:52 #39
Er det ikke med access??
Avatar billede remedy Nybegynder
25. oktober 2001 - 21:47 #40
Att. Disk:

Jeg mener jeg kigger på alle... Og ser hvilket jeg kan bruge...

Att. Pepsi2:

Desværre, den er ikke lige jeg har brug for...

Avatar billede disk Nybegynder
25. oktober 2001 - 21:50 #41
Husk hvis du ønsker ændringer i sriptet skal du bare sige det.

/disk
Avatar billede disk Nybegynder
26. oktober 2001 - 19:54 #42
Remedy: Har du fundet et??
Avatar billede remedy Nybegynder
26. oktober 2001 - 21:27 #43
Att. Disk

Nej, jeg venter stadigvæk på at Cliche skal lave sit færdigt... jeg giver i morgen med eller så brugeer jeg et jeg kan finde her på siden...
Avatar billede disk Nybegynder
27. oktober 2001 - 09:25 #44
Okay hvis du gerne vil have jeg laver det mere sikkert så man ikke kan snyde via url\'en  vil jeg gerne lave det.

/disk
Avatar billede disk Nybegynder
28. oktober 2001 - 19:47 #45
Hvornår er imorgen??

/disk
Avatar billede Slettet bruger
28. oktober 2001 - 20:07 #46
>>disk: imorgen må jo være igår :) *g*
Avatar billede disk Nybegynder
29. oktober 2001 - 20:49 #47
Nu synes jeg det har været imorgen nogle gange!
venter....

/disk
Avatar billede remedy Nybegynder
20. november 2001 - 19:17 #48
hmmm
Avatar billede Slettet bruger
20. november 2001 - 19:18 #49
snyd?
Avatar billede remedy Nybegynder
20. november 2001 - 19:28 #50
kunne ikke bruge nogen af dem anyway... fik en ven til at lave det...

sorry....
Avatar billede Slettet bruger
20. november 2001 - 19:29 #51
det er jo nemt at sige...
Avatar billede remedy Nybegynder
20. november 2001 - 19:30 #52
ja, men det er der jo ikke noget at gøre ved....
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester