tilføj en admin mere til loginscript hjælp
Hej jeg ville høre om nogle af jer kunne lave en bruger som min admin bruger her i mit login script. Nu skal der bare være en til som hedder "demo3". ved ikke rigtig selv hvor det skal sidde så vist en gad kigge på det ville det være nice.'Scriptet:
<!--#include file="../includes/inc_forbindelse.asp" -->
<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>
