Nu har jeg haft så meget besvær med mit login system så det kan være løgn.. jeg kan ikke få det til at virke.
Er der ikke en sød sjæl som er sød at gide prøve at hjælpe mig ved at lave et login system til denne side
http://80.161.70.237 som kan dette :
** LOGIN SYSTEM **
- have 2 slags status menuer. (-"admin og user") *
- status skal hentes inde fra db´en
- i midten skal der skrives - "Logged In As ("usernamet") **
* = (status bliver hentet inde fra db´en i amember32)
** = når man har trykket på login knappen og menuen kommer frem henne i højre side
Kan lige vise min logintest.asp , top.asp og bund.asp :
- logintest.asp
<%
If request("ID") = "UD" then
Session("M") = ""
'---------------------------------- Hent Oplysninger
varUsername = Request.Form("username")
varPassword = Request.Form("password")
'------------ Connect Til Databasen
Set conn = CreateObject("ADODB.Connection")
conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=HIDDEN;" _
& " DATABASE=asp;" _
& "UID=HIDDEN;PWD=HIDDEN; OPTION=3"
Set rs = CreateObject("ADODB.Recordset")
'------------ Hent Bruger Login Oplysninger
varSQL = "Select * From amember32 Where username = '" &varUsername &"'"
rs = Conn.Execute(varSQL) '------------ Recordset Udføres
'----------- hent status-----
varStatus = rs("status")
If rs.EOF Then
Response.Write "Bruger findes ikke."
Else '------------Ellers
If rs("password") = varPassword Then '------------ Login
session("username") = rs("username")
session("status") = varStatus
session("loggedin") = yes
Session.Timeout = 30
Response.Redirect("default.asp")
Else '------------Ellers
Session("login") = "NEJ"
Session.Timeout = 30
Response.Write "Not logged in"
Response.Redirect("default.asp")
End If
End If
'------------ Luk Databaseforbindelsen
Conn.Close
Set Conn = Nothing
%> '------------ Luk End If
<!-- #include file="top.asp"-->
Logged Out
<!-- #include file="bund.asp"-->
- top.asp
<html>
<title>// :: ASP Test side - LunjintoN :: \\\\</title>
<%if session("M") = "admin" Then Login = "admin"%>
<%if session("M") = "user" Then Login = "user"%>
<head>
<link rel="stylesheet" href="style/style.css" type="text/css">
</head>
<body>
<center>
<table cellpadding="0" cellspacing="0" class="banner">
<tr>
<td></td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" class="top">
<tr>
<td>Dette <u>Bliver</u> Til Clan Brødrene Bisp´s Nye Hjemmeside</td>
</tr>
</table>
</center>
<center>
<table cellpadding="0" cellspacing="0">
<tr>
<td class="leftmenu" valign="top">
<br>
<ul>
<li><a href="news.asp">News</li></a>
<li><a href="story.asp">Story</li></a>
<li><a href="members.asp">Members</li></a>
<li><a href="sponsors.asp">Sponsors</li></a>
<li><a href="tagwall.asp">Tagwall</li></a>
<li><a href="contact.asp">Contacts</li></a>
</ul>
<ul>
<li><a href="clanwars.asp">Clanwars</li></a>
<li><a href="clanrules.asp">Clanrules</li></a>
<li><a href="downloads.asp">Downloads</li></a>
</ul>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<center>
<%
function dDate( datDato )
if IsDate( datDato ) then
'konstant som indeholder
'det tegn som skal være deler
const strDiv = "-"
'deklering af variabler
dim intDag, intMaaned, intAar
'Vi bruger de indbyggede dato-
'funktioner til at splitte datoen op
intDag = Day( datDato )
intMaaned = Month( datDato )
intAar = Year( datDato )
'returnering af datoen
dDate = intDag & strDiv & intMaaned & strDiv & intAar
else
'Hvis datoen ikke er korrekt returners -1
'men det kan jo være alt hvad du måtte
'finde på
dDate = -1
end if
end function
'Du kan evt. kalde den således
Response.Write( dDate( now() ) )
%></br>
<%Response.Write " kl. " & FormatDateTime(Now, vbShortTime)%>
</center>
</td>
<td class="sect" valign="top"></td>
<td class="main" style="text-align: justify; padding: 10" valign="top">
- bund.asp
<html>
</td>
<td class="sect" valign="top"></td>
<td class="rightmenu" valign="top" background="/pics/menu.gif">
<br>
<table cellpadding="0" cellspacing="0">
<tr>
<td class="head">
<ul>
<li>
<%if login = "" then%>
<a href="login.asp"> Log In</li></a>
<% else %>
<a href="logintest.asp?ID=UD"> Log Out</li></a>
<%end if%>
</ul>
<%
if Login = "admin" Then
<!-- #include file="adminmenu.asp"-->
else
<!-- #include file="usermenu.asp"-->
%>
<% End If %>
</td>
</tr>
<tr>
<td class="head1" > </td>
</tr>
<tr>
<td class="status" valign="top"> </br>
- Status </br>
</br>
Last Joined :
</br>
</td>
</tr>
<tr>
<td class="statestik" valign="top"> <br>
- Statestik</td>
</tr>
<tr>
<td class="friends" valign="top"> <br>
- Friends</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
<br>
<center>
<table cellpadding="0" cellspacing="0">
<tr>
<td class="bottom">Copyright by Clan |Br.B| - All Rights Reserved - Made by Mesias^</td>
</tr>
</center>
<br>
</body>
</html>
Så hvis der er en sød sjæl derude et sted. så please hjælp mig..
Det her gider ikke virke.. og jeg ved ikke hvad der er galt med det.
MVH // Lasse Jørgensen