ΠΡΟΒΛΗΜΑ ΜΕ Login Page se ASP

Πληροφορίες σχετικές με την ASP, ASP.NET και με τις εφαρμογές που είναι γραμμένες με αυτήν.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
nikpony
Δημοσιεύσεις: 104
Εγγραφή: 12 Ιούλ 2006 02:58

ΠΡΟΒΛΗΜΑ ΜΕ Login Page se ASP

Δημοσίευση από nikpony » 31 Αύγ 2006 17:05

Παίδες γεια σας..
Έχω φτιάξει μια φορμούλα για login έχω κάνει όλα τα βήματα με τα πεδία κλπ εντάξει αλλά κάπου κολλάει το ζήτημα και καθώς πατάς το κουμπί για login η σελίδα δεν κάνει τίποτα, ότι στοιχεία και να βάλεις(και να μη βάλεις)και μου βγάζει στον explorer error on page(κάτω αριστερά).
Ο κώδικας είναι αυτός παρακάτω,όποιος μπορει να βοηθήσει και να βρει το λάθος θα του είμαι ευγνώμων.Ευχαριστώ


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ibs.asp" -->
<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Session("UserLoggedIn") = ""
If Request.form("Enter") = "true" Then
CheckLogin
Else
ShowLogin
End If

Sub ShowLogin
Dim Recordset1
Dim Recordset1_numRows
frmUsername = Request.Form("username")
frmPassword = Request.Form("password")

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_ibs_STRING
Recordset1.Source = "SELECT ID, NAME, PWD FROM dbo.PUSER"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
End Sub
%>

<%
Sub CheckLogin
Response.Write("Login Failed.<br><br>")
' If LCase(Request.Form("usrfield")) = "" And LCase(Request.Form("passfield")) = "" Then
' Session("UserLoggedIn") = "true"
' Response.Redirect "welcomefrm.asp"
' Else
' Response.Write("Login Failed.<br><br>")
' ShowLogin
' End If
End Sub
%>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<script language="vbscript">
<%

Function CheckParams()

Dim username
Dim password

username=usrfield.form1("username")
password=passfield.form1("password")

if username="" and
if password="" then
response.redirect("welcomefrm.asp")
else
response.write("Please Enter a Valid Username and Password")
end if
end if
%>
</script>

</head>

<body>
<form action="welcomefrm.asp" method="post" name="form1" id="form1">
<label>
<div align="center"></div>
</label>
<p align="center">
<label></label>
</p>
<p>
<label>
<div align="center">
<table width="273" border="1">
<tr bordercolor="#000000" bgcolor="#CCCCCC">
<th><span class="style1">Username</span></th>
<th><div align="center">
<input name="usrfield" type="text" id="usrfield" />
</div></th>
</tr>
<tr bordercolor="#000000" bgcolor="#CCCCCC">
<th><span class="style1">Password</span></th>
<th><div align="center">
<input name="passfield" type="password" id="passfield" />
</div></th>
</tr>
<tr bordercolor="#000000" bgcolor="#CCCCCC">
<th colspan="2"><div align="center">
<input name="Button" type="button" onclick="CheckParams" value="Enter" />
</div></th>
</tr>
</table>
</div>
</label>
</p>
</form>

</body>
</html>

Megistos
Δημοσιεύσεις: 149
Εγγραφή: 14 Ιουν 2005 15:38

ΠΡΟΒΛΗΜΑ ΜΕ Login Page se ASP

Δημοσίευση από Megistos » 08 Σεπ 2006 13:40

Φιλαράκι, έχεις βάλει την function CheckParams σε server side block. Δεν την φορτώνει η σελίδα και όταν πατάς το κουμπί ψάχνει να την βρει, δεν την βρίσκει και σταματάει!
The Flame Still Burns

Απάντηση

Επιστροφή στο “ASP, ASP.NET”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες