21. oktober 2001 - 19:33Der 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.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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 :-)
<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>
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 %>
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
magik, alle på eksperten skal ha gavn af sourcekoder, du skal paste det her ;) lille ven
Synes godt om
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... ;)
Jeg magler stadigvæk fra en vis person, men hvis du har et foreslag, så sig til...
Synes godt om
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()\"\">« 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> </td> <td><input type=\"submit\" value=\"Log ind\"></td> </tr> </table> </form> <%End If%> </body> </html>
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...
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
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.