Hej igen
Jeg har 3 frame en topFrame & en Leftframe(mine knapper)og en mainFrame
Knappen i leftframe hedder login - når men trykker der kommer login scriptet fint i min mainFrame - Men når bruger og kode er indtastes sker der sådan set ikke mere(den skal så åbne velkommen.asp igen i min main)
Men her er login scriptet
<%
response.Buffer = TRUE
response.expires = 0
%>
<!--#include file="Adovbs.inc" -->
<html>
<head>
<title>Login</title>
<meta content="text/html; charset=windows-1252" http-equiv="Content-Type">
<style>
TD.format
{
COLOR: black;
FONT-FAMILY: Verdana;
FONT-SIZE: 15px;
FONT-WEIGHT: bolder
}
TD.format A:active
{
COLOR: red;
TEXT-DECORATION: none
}
TD.format A:link
{
COLOR: blue;
TEXT-DECORATION: none
}
TD.format A:visited
{
COLOR: blue;
TEXT-DECORATION: none
}
TD.format A:hover
{
COLOR: red;
TEXT-DECORATION: none
}
</style>
<meta content="Microsoft FrontPage 3.0" name="GENERATOR">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body bgColor="#ffffff">
<table bgColor="#FFE6AA" border="1" borderColorDark="#0000ff" borderColorLight="#000000" cellPadding="10" cellSpacing="5" width="100%" height="98%">
</table>
</td>
</tr>
<tr>
<td vAlign="center" height="80%"><div align="center"><center><p> </p><table border="0" cellPadding="0" cellSpacing="0" width="500">
<tr>
<td align="middle" vAlign="top" width="500" class=format >
<!-- Start indtastnings form -->
<%
'indform genererer Indtastnings formen
Sub indform()%>
<div style="BACKGROUND-COLOR: #FFE6AA; BORDER-BOTTOM-STYLE: groove; BORDER-LEFT-STYLE: groove; BORDER-RIGHT-STYLE: groove; BORDER-TOP-STYLE: groove;">
<br>
<table border="0" cellpadding="7">
<form method="post" action="vsLogin.ASP" name="form1">
<tr>
<td class="vc"><b>Username:</b> </td>
<td><input name="brugernavn" class="hc"> </td>
</tr>
<tr>
<td class="vc"><b>Password:</b> </td>
<td><input type="password" name="password" class="hc"></td>
</tr>
<tr>
<td></td><td align="right">
<input type="submit" value=" OK " class="vc" id=submit1 name=submit1> <input type="reset" value=" Fortryd " class="vc" id=reset1 name=reset1>
</td>
</tr></table></form></div>
<% End Sub %>
<!-- Slut indtastnings form -->
<%
' Her defineres variabler til brugernavn, password og klientens IP-nummer
brugernavn = request.form("brugernavn")
password = request.form("password")
remote_host = request.ServerVariables("REMOTE_HOST")
' Hvis enten brugernavn-feltet eller password-feltet er tomme,
' er det enten første gang at siden bliver loadet eller en fejl
' Ind
If brugernavn = "" OR password = "" then
indform()
else
%>
<div id="DIV1">
<%'**** sikkerhedscheck hvis der er lavet gentagende mislykkedes logins lukkes database
' Her bliver det chekket om der er noget der er lukket.
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("log.mdb")
set aa = Server.CreateObject("ADODB.Recordset")
aa.Open "select * from logind WHERE (lukket = True) AND (remote_host = '" & remote_host & "')", conn, adOpenKeyset, adLockOptimistic
'set Session("aa") = aa
If not aa.EOF Then
DO
' Her chekkes det efter IP
if remote_host = aa.fields("remote_host") then
user = "ikke_ok"
session("remote_host") = remote_host
End If
aa.MoveNext
Loop Until user = "ikke_ok" OR aa.EOF
aa.close
Response.Clear
Response.Redirect("LUKLOKIN.asp")
Response.End
End If
If not user = "ikke_ok" Then
%>
<!-- Slut : Ja databasen er åben -->
<%
If Session("taeller") > 3 Then
aa.AddNew
aa("brugernavn") = brugernavn
aa("password") = password
aa("datoogtid") = now()
aa("lukket") = true
aa("remote_host") = request.ServerVariables("REMOTE_HOST")
aa.update
aa.close
response.write("Adgangen til indtastning vil nu blive lukket ")
Session("godkendt")=""
else
aa.AddNew
aa("brugernavn") = brugernavn
aa("password") = password
aa("datoogtid") = now()
aa("lukket") = false
aa("remote_host") = request.ServerVariables("REMOTE_HOST")
aa.update
aa.close
Session("taeller")= Cint(Session("taeller")) + 1
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from brugernavn WHERE (brugernavn = '"& CStr( brugernavn ) &"') AND (password = '"& CStr( password ) &"')", conn
set Session("rs") = rs
if rs.EOF Then
Session("godkendt")="ikkegodkendt"
response.write("Du har forsøgt at lokke på:<B> ")
response.write(cstr(Session("taeller")) + ". gang</B></DIV> ")
rs.close
indform
else
Session("userlevel") = rs.Fields("userlevel")
Session("brugernavn") = rs.Fields("brugernavn")
rs.close
Session("godkendt")="godkendt"
Session("taeller")= 0
Response.Clear
Response.Redirect("velkommen.asp " )
Response.End
End If
End if
End if
End if
%>
</a> </a> </div>
</td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</body>
</html>
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
