15 svar · 835 visningar · startad av Paze
NU står jag still igen!!!
Hittade ett asp script som jag tänkte mig använda till min hemsida för inloggning pbwebb_loggin V3.0.
Nu när jag lagt upp detta på min server så går det inte att logga in, får fel medelande error '8007007f'
/mapp/inc/do_login.asp , line 125
Tacksam om någon kan ge mig tipps på hur F.. jag skall komma vidare med mitt problem..
Paze
Hoppas jag gör rätt nu
<head>
<meta name="VI60_DTCScriptingPlatform" content="Server (ASP)">
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>PBWEBB LOGIN 3.0 - Logga In</title>
</head>
<script language='JavaScript' type='text/JavaScript' src='script.js'></script>
<style type=text/css>
<!--
body { background: threedface; color: windowtext; margin: 0px; border-style: none }
td { font-size: 8pt; font-family: arial }
select { font-size: 8pt; font-family: arial }
input { font-size: 8pt; font-family: arial }
-->
</style>
<script language=javascript>
<!--// INGEN HÖGER KLICK PÅ DENNA SIDA
var message="";
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {(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>
<SCRIPT LANGUAGE=javascript>
<!--
function loginsubmit(form) {
missinginfo = "";
if (document.check.user.value == "") {
missinginfo += "\n - User";
}
if (document.check.pass.value == "") {
missinginfo += "\n - Pass";
}
if (missinginfo != "") {
missinginfo ="Dessa fält är blanka eller felinskrivna:\n" +
"__\n" +
missinginfo +
"\n__\n" +
"\nVar vänlig fyll i alla fälten korrekt!";
alert(missinginfo);
return false;
}
else return true;
}
-->
</SCRIPT>
<% If Session("alert") = "no_member" then %>
<script language="javascript">
<!--
alertmess = ("Pbwebb.com login informerar: \n" +
"__\n" +
"\n Du försöker logga in med fel" +
"\n användaruppgifter, eller så " +
"\n skrev du fel." +
"\n Ditt ip är registrerat\n" +
"\n__\n" +
"\n Åtgärda felen och försök igen !");
alert(alertmess);
-->
</script>
<% Session("alert") = ""
End If%>
<% If Request.Querystring("do") = "" Then %>
<body onLoad="document.form.user.focus();" onunload="goBackUrl('../default.asp?link=')">
<form method='post' action='do_login.asp?do=check' name='check' onSubmit='return loginsubmit()'>
<center>
<img border="0" src="gfx/login.gif">
<table cellspacing=0 cellpadding=0 align=center border=0>
<tbody>
<tr>
<td align=middle>
<fieldset align=center width="290">
<legend align=left>SECURE LOGIN V3.0</legend>
<table cellspacing=4 align=center border=0>
<tbody>
<tr>
<td nowrap align=right width=40>User: </td>
<td nowrap><input size=35 name=user></td>
</tr>
<tr>
<td nowrap align=right>Pass: </td>
<td nowrap><input size=35 name=pass type="password"></td>
</tr>
</tbody>
</table>
</fieldset>
</td>
</tr>
<tr>
<td align=middle colspan=2>
<table cellpadding=3>
<tbody>
<tr>
<td align=middle>
<input type=submit value="Login">
<input type=reset value=Reset>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</center>
</form>
<% End If
If Request.Querystring("do") = "check" Then
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/sql.mdb")
Set Rs = Cn.Execute("SELECT * FROM login")
If Rs.EOF then
Session("alert") = "no_member"
Response.Redirect "do_login.asp?do="
Else
Do Until RS.EOF
If Request.Form("user") = Rs("user") AND Request.Form("pass") = Rs("pass") Then
Session("user") = Rs("user")
Session("user_level") = Rs("page")
Session.TimeOut = 20
Response.Redirect "do_login.asp?do=login"
End If
RS.MoveNext
Loop
strIpReg = Request.ServerVariables("REMOTE_ADDR")
Cn.Execute("INSERT INTO ip " &\_
"(\[ip\],\[username\],\[password\],\[date\])" &\_
"VALUES('"& strIpReg &"','"& Request.Form("user") &"', "&\_
"'"& Request.Form("pass") &"','"& Now &"') ")
Session("alert") = "no_member"
Session("ip") = Request.ServerVariables("REMOTE_ADDR")
Response.Redirect "do_login.asp?do="
End If
Rs.Close : Set Rs = Nothing
Cn.Close : Set Cn = Nothing
End If
If Request.Querystring("do") = "login" then
Response.Write "<html><head><title>! INLOGGAD</title></head>" & VbCrLf
Response.Write "<body onload='setTimeout(window.close, 1500)'><center><br><br>" & VbCrLf
Response.Write "<font face=verdana size=+2 color=black>Inloggad</font></center></body></html>" & VbCrLf
End If
%>
</body>
</html>
Ett tips bara! Använd kod-taggarna så syns dina tabbar och texten blir mycket mer lättläst, kanske får du dessutom ett snabbare svar på frågan också.
Sedan får du gärna markera raden som genererar felmeddelandet...
Sorry boys and girls är helt ny på asp och det språk ni skriver till mig på, så jag ser ut som en fågelholk för condorer just nu.
Vet inte villken rad det är Josef, vet bara att när man efter att man har angivet sina inloggnings uppgifter ochklickar på loggin så kommer ovan angivet fel...
Hur räknar jag fram villken rad det är?
räknas alla blanka rader ?
Kan felet ligga på default.asp villket är sidan som man loggar in ifrån??
nej inte om du får felmeddelandet på andra sidan. Du skrev att det var fel på rad 125, markera den raden
Riktigt långsökt lösning, säkert inte det som är felet men det är vad jag hittar när jag söker på ditt fel..
Btw, fungerar andra aspsidor med databashämtningar för dig?
http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=91135&highlight=8007007f
http://www.dbforums.com/showpost.php?p=3647613&postcount=5
Hela tråden: http://www.dbforums.com/t873684.html
http://groups.google.com/groups?q="8007007F+the+fix"&hl=fr&lr=&ie=UTF-8&selm=081601c309fd%242ac4c3e0%24a001280a%40phx.gbl&rnum=1
Jag tror att rad 125 kommer att peka på detta kodparti:
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/sql.mdb")
Set Rs = Cn.Execute("SELECT * FROM login")
Ja jag kan komma oin på andra asp sidor på nätet allt funkar så långt
Men även denna inloggningen funka när jag kör den på IIS
Hm... nu förstår jag inte riktigt.
Fungerar den koden du visar på en server men inte på en annan?
Andra aspsidor fungerar alltså där denna kod inte fungerar?
Ja när jag kör den i localhost så funkar den delvis, det går att logga in men inte lägga till nya loggin uppgifter dvs.
Sen när det gäller servern som sidan ligger på har dem precis öppnat den för asp så det kan lika gärna vara där men server teknikern säger att det skall fungera men han är inte 100 på det.
har ingen annan asp sida som jag vet fungerar som jag kan testa med...
Då tror jag att de måste se över och uppdatera sin server, typ som i länkarna jag postade lite högre upp i tråden.