/ Forside/ Teknologi / Udvikling / ASP / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Add bruger til login
Fra : tj_cuper
Vist : 180 gange
20 point
Dato : 06-05-06 21:20

hej kan jeg få en af jer til at lave en session mere hvor der er en bruger der hedder "demo3"

kan ikke rigtig selv finde ud af hvor jeg skal sætte det ind så hvis en af jer gider ville det være mega nice.

Scriptet ::

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="../Layout/design.css" rel="stylesheet" type="text/css">
</head>
<%
If Request.QueryString("action") = "login" Then

strUID = Trim(Replace(Request.Form("Brugernavn"),"'","''"))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'","''"))

If (Len(strUID) > 0) And (Len(strPWD) > 0) Then

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM protect WHERE (Username = '" & strUID & "') AND (Password = '" & strPWD & "')", database

If (Not rs.BOF) And (Not rs.EOF) Then

intUID = rs("id")
intTRAN = rs("transfer")

'********************* admin koden sidder her ************
                   'Login OK
                   session("userID") = rs("id")
                   if rs("id") = 1 then
                     session("demo1") = true   
                   else
                     session("demo1") = false
                   end if
Else
strERR = "Access Denied"
End If

If Len(intUID) > 0 Then

Session("id") = intUID
response.write session("id")
Response.Redirect intTRAN
End If

Else
strErr = "Access Denied"
End If

If Len(strErr) > 0 Then
strErr = "<p><font color=""red"">" & strErr & "</font></p>"
End If
End If
%>
<!-------------------------------------------------------- Login formularen ------------------------------------------------------------>
   <form method="post" action="default.asp?action=login">
      <table class="Text" border="0" cellpadding="0" cellspacing="0">
         <tr>
            <td colspan="2" class="Overskrift">Login ::</td>
         </tr>
         <tr>
            <td>
         <a href="reg.asp"><img style="margin-top:2px;" src="../layout/register.gif" border="0"></a>
            </td>
            <td>
            <a href="#"><img style="margin-top:2px;" src="../layout/password.gif" border="0"></a>   
            </td>
         </tr>
         <tr>
            <td width="50%">ID:</td>
            <td width="50%"><input class="logFelt" type="text" name="Brugernavn"></td>
         </tr>
         <tr>
            <td width="50%">Pass:</td>
            <td width="50%"><input class="logFelt" type="password" name="Adgangskode"></td>
         </tr>
         <tr>
            <td colspan="2" align="right"><input class="logGo" type="submit" value="Login" name="Action"></td>
         </tr>
         <tr>
            <td colspan="2">
            <%=strErr%>
            </td>
         </tr>
      </table>
   </form>
      <!--#include file="../cgi-bin/db_siker/md5.asp" -->

<%
dim Adgangskode
Adgangskode = "E807F1FCF82D132F9BB018CA6738A19F"
if Adgangskode = md5(Request.Form("Adgangskode")) then
Response.Write ""
end if
%>
</body>
</html>


på forhånd tak :)

 
 
Annuller spørgsmålet
Fra : tj_cuper


Dato : 06-05-06 21:31

Jeg har desværre ikke modtaget et gyldigt svar, og annullerer derfor dette spørgsmål

Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 177428
Tips : 31962
Nyheder : 719565
Indlæg : 6407943
Brugere : 218877

Månedens bedste
Årets bedste
Sidste års bedste