Login hjælp :D
Jeg er i færd med at lave et login til en chat, men jeg giver op.. Det virker ikke.. ;( Indtil videre har jeg budt 200 point, men ved fyldestgørende hjælp kan vi godt sætte point'ne op med 400..Nogen der vil hjælpe? .. her kommer de forskellige koder:
____________
Login2.asp
<%@ Language=VBScript %>
<% mode = request("mode") %>
<% if mode = "" then %>
<%
Session("brugernavn") = request.form("brugernavn")
Session("kodeord") = request.form("password")
%>
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"http://www.stibolt.nu/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"
Response.Buffer = True
Function checklogin(brugernavn,password)
set tjek = Conn.Execute("SELECT * FROM brugere WHERE brugernavn = '"& brugernavn &"' AND kodeord = '"& password &"'")
If tjek.EOF THEN
Response.Write "<center><FONT FACE=Verdana SIZE=2 COLOR=#FF0000><B>Brugernavn ellers password er forkert</B></FONT></center>"
Else
Session("login") = tjek("id")
Response.Redirect("frame.htm")
End If
End Function
Function sqlreplace(streng)
sqlreplace = Replace(streng,"'","''")
End Function
REM Diverse funktioner slut
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Chat log ind !</title>
</head>
<SCRIPT language=JavaScript>
function pviiW3Cbg(obj, pviiColor) { //v1.1 by Project VII
obj.style.backgroundColor=pviiColor
}
</SCRIPT>
<body bgcolor="#3399FF">
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then checklogin sqlreplace(Request.Form("brugernavn")),sqlreplace(Request.Form("password")) %>
<FORM ACTION="login2.asp" METHOD="POST">
<TABLE align="center">
<TR>
<font size="1">
<TD class="skrift"><font color="#000000" size="1" face="Arial">Brugernavn:</font> </TD>
<b>
<TD>
<font size="1" color="#000000" face="Arial">
<INPUT TYPE="text" SIZE="14" NAME="brugernavn" CLASS="bottom" style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 2px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #C0C0C0">
</font>
</TD>
</b></font>
</TR>
<TR>
<font size="1">
<TD class="skrift"><font size="1" color="#000000" face="Arial">Kodeord:</font> </TD>
<b>
<TD>
<font size="1" color="#000000" face="Arial">
<INPUT TYPE="password" SIZE="14" NAME="password" CLASS="bottom" style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 2px; BORDER-LEFT: #000000 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #C0C0C0">
</font>
</TD>
</b></font>
</TR>
<tr>
<font size="1">
<TD ALIGN="RIGHT">
<p align="left"></p>
</TD>
<b>
<TD ALIGN="RIGHT">
<font size="1" face="Arial"><input border="no" name="image" src="../gfx/login.gif" type="image"> </font>
</TD>
</b></font>
</tr>
</TABLE>
</body>
</FORM>
<% end if %>
_____________
System.asp:
<html>
<head>
<STYLE TYPE="text/css">
BODY {
cursor: default;
}
</STYLE>
<base target="display">
<title></title>
</head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false" bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<font face="Verdana" color="#FFFFFFFF" size=1></font><div id=chat><font size="1" face="Verdana">Henter
siden...</font></div>
<script language="JavaScript" type="text/javascript" src="mouse.js"></script>
<script src="vent.php?load=&navn=medievil" id="js" language="JavaScript" type="text/javascript"></script>
<%
'//Kontakt til MainDatabase
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("http://www.stibolt.nu/db.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From chat"
rs.Open strSQL, Conn, 1, 3
'//Henter brugeroplysninger
navn = rs("brugernavn")
figur = rs("kon")
farve = "#FFFFFF"
felt = "left=120; top=10;"
%>
<script language="JavaScript" type="text/javascript">
function cleanchat(){
var num = 1;
while (num != 49){
parent.display.document.all["itm"+num].src = "none.gif";
parent.display.document.all["img"+num].src = "none.gif";
parent.display.document.all["navn"+num].innerHTML = "";
num++;
}
}
function insertuser(navn,figur,felt,farve){
parent.display.document.all["img"+felt].src = '../gfx/person/glad_<%=figur%>.gif';
parent.display.document.all["navn"+felt].innerHTML = '<a onclick="parent.data.info(\'info.asp?bruger="<%=navn%>"\')" ondblclick="parent.tekstfelt.sendform.privat.select = \'krede\';" style="cursor: hand;"><font color="<%=farve%>" title="<%=navn%>"><%=navn%></font></a>';
}
function alertuser(txt){
alert(txt);
}
function insertitem(ting,felt,http){
parent.display.document.all["itm"+felt].src = '../gfx/ting/'+ting+'.gif';
}
function placetext(txt){
parent.data.document.all.chat.innerHTML = txt+parent.data.document.all.chat.innerHTML.substr(0,5000);
}
function reloadchat(num) {
document.all.js.src='load.asp?num='+num+'';
}
setTimeout("reloadchat('0')",1000);</script>
</body>
</html>
_________
display.asp
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="Microsoft FrontPage 6.0" name=GENERATOR>
<SCRIPT language=JavaScript>
<!--
var message="Function Disabled!";
///////////////////////////////////
function clickIE() {if (document.all) {alert(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {alert(message);return false;}}}
if (document.layers)
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}
document.oncontextmenu=new Function("return false")
// -->
</SCRIPT>
<STYLE type=text/css>BODY {
FONT-SIZE: 10px; BACKGROUND: white; COLOR: white; FONT-FAMILY: verdana
}
#rum {
Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 0px
}
#itm {
Z-INDEX: 2; POSITION: absolute
}
#item {
Z-INDEX: 2; POSITION: absolute
}
#felt {
Z-INDEX: 3; POSITION: absolute
}
.navn {
Z-INDEX: 4; POSITION: absolute
}
#you {
Z-INDEX: 5; POSITION: absolute
}
#ynavn {
Z-INDEX: 6; POSITION: absolute; TOP: 47px
}
#cir {
Z-INDEX: 6; POSITION: absolute
}
#dot {
Z-INDEX: 6; POSITION: absolute
}
</STYLE>
</HEAD>
<BODY oncontextmenu="return false" onselectstart="return false"
ondragstart="return false">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("http://www.stibolt.nu/db.mdb")
sql = "select * from brugere where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
kon = rs("kon")
brugernavn = rs("brugernavn")
toj = rs("toj")
hoved = rs("hoved")
haar = rs("haar")
%>
<SCRIPT language=JavaScript src="mouse.js"
type=text/javascript></SCRIPT>
<SCRIPT language=JavaScript type=text/javascript>
document.write("<div id='rum'><img src='../gfx/rum/reception.jpg' alt=''></div>");
function change(x,y,felt){
var oldy = you.style.top;
var oldx = you.style.left;
parent.system.document.all.js.src = '../ryk.asp?b='+felt+'&oldbrick='+oldfelt+'&ty='+oldy+'&tx='+oldx+'';
oldfelt = felt;
you.style.top = y;
you.style.left = x;
cir.style.top = y;
cir.style.left = x;
ynavn.style.top = y+60;
ynavn.style.left = x;
online = 20;
}
function samleop(){
parent.system.location.replace('../tag.asp');
}
var int = 1;
var oldfelt = 0;
var corx = 0;
var cory = 0;
while (int != 57){
corn = cory+47;
corm = corx+45;
corl = cory+20;
document.write("<div id='felt' style='top:"+cory+"; left:"+corx+";'>");
document.write("<a id='hrlink"+int+"' onclick='java script:change("+corx+","+cory+","+int+");' style='cursor: none' onfocus='blur()'>");
document.write("<img id='img"+int+"' border=1 src='none.gif' alt=''></a></div>");
document.write("<div id='item' style='top:"+cory+"; left:"+corx+";'><img id='itm"+int+"' border=0 src='none.gif' alt=''></div>");
document.write("<div id='navn"+int+"' class='navn' style='top:"+corn+"; left:"+corx+";'></div>");
corx = corx+45;
if (corx == 360){
cory = cory+45;
corx = 0;
}
int++;
}
document.write("<div id='you' align='center'>");
document.write("<table cellSpacing='0' cellPadding='0' border='0' width='50' height='4'><tr><td width='55' height='85' align='left' background='../gfx/person/glad_<%=kon%>.gif'>");
document.write("<table cellSpacing='0' cellPadding='0' border='0' width='100%' height='4'><tr>");
document.write("<td width='55' height='85' align='left' background='../gfx/<%=kon%>/toj/<%=toj%>.gif'>");
document.write("<table cellSpacing='0' cellPadding='0' border='0' width='100%' height='4'><tr>");
document.write("<td width='55' height='85' align='left' background='../gfx/<%=kon%>/hoved/<%=hoved%>.gif'>");
document.write("<table cellSpacing='0' cellPadding='0' border='0' width='100%' height='4'><tr>");
document.write("<td width='55' height='85' align='left' background='../gfx/<%=kon%>/haar/<%=haar%>.gif'>");
document.write("</td></tr></table>");
document.write("</td></tr></table>");
document.write("</td></tr></table>");
document.write("</td></tr></table></div>");
document.write("<div id='ynavn' align='center' style='FILTER: dropshadow(color:black,offy:1,offx:1); COLOR: #FFFFFF'><a onclick='parent.data.info(\"info.php?bruger=<%=brugernavn%>\");' style='cursor: hand; color:; text-decoration: none;' onfocus='blur()'><%=brugernavn%>ChainWEB</a></div>");
document.write("<div id='cir' align='center'><a align='center' onclick='samleop();' style='cursor: hand;' width='55' onfocus='blur()'><img id='dot' src='none.gif' alt='' border=0></a></div>");
</SCRIPT>
</BODY></HTML>
__________
frame.htm
<html>
<head>
<STYLE TYPE="text/css">
BODY {
cursor: default;
}
</STYLE>
<base target="display">
<title></title>
</head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false" bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<font face="Verdana" color="#FFFFFFFF" size=1></font><div id=chat><font size="1" face="Verdana">Henter
siden...</font></div>
<script language="JavaScript" type="text/javascript" src="mouse.js"></script>
<script src="vent.php?load=&navn=medievil" id="js" language="JavaScript" type="text/javascript"></script>
<%
'//Kontakt til MainDatabase
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("http://www.stibolt.nu/db.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From chat"
rs.Open strSQL, Conn, 1, 3
'//Henter brugeroplysninger
navn = rs("brugernavn")
figur = rs("kon")
farve = "#FFFFFF"
felt = "left=120; top=10;"
%>
<script language="JavaScript" type="text/javascript">
function cleanchat(){
var num = 1;
while (num != 49){
parent.display.document.all["itm"+num].src = "none.gif";
parent.display.document.all["img"+num].src = "none.gif";
parent.display.document.all["navn"+num].innerHTML = "";
num++;
}
}
function insertuser(navn,figur,felt,farve){
parent.display.document.all["img"+felt].src = '../gfx/person/glad_<%=figur%>.gif';
parent.display.document.all["navn"+felt].innerHTML = '<a onclick="parent.data.info(\'info.asp?bruger="<%=navn%>"\')" ondblclick="parent.tekstfelt.sendform.privat.select = \'krede\';" style="cursor: hand;"><font color="<%=farve%>" title="<%=navn%>"><%=navn%></font></a>';
}
function alertuser(txt){
alert(txt);
}
function insertitem(ting,felt,http){
parent.display.document.all["itm"+felt].src = '../gfx/ting/'+ting+'.gif';
}
function placetext(txt){
parent.data.document.all.chat.innerHTML = txt+parent.data.document.all.chat.innerHTML.substr(0,5000);
}
function reloadchat(num) {
document.all.js.src='load.asp?num='+num+'';
}
setTimeout("reloadchat('0')",1000);</script>
</body>
</html>
På forhånd tak
