ASP login sfalma..

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

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

Απάντηση
ctcp
Δημοσιεύσεις: 27
Εγγραφή: 11 Οκτ 2003 09:18
Επικοινωνία:

ASP login sfalma..

Δημοσίευση από ctcp » 08 Μάιος 2009 16:10

Κώδικας: Επιλογή όλων

<!-- #Include File=INC_DB.asp -->
<%
IF Request&#40;"Send"&#41; = "login" Then

Set Rs = Server.CreateObject&#40;"ADODB.Recordset"&#41;
Rs.Open "Select * From Configuration",conn,3,3

IF Rs&#40;"AUser"&#41; <> Request&#40;"User"&#41; OR Rs&#40;"APass"&#41; <> Request&#40;"Pass"&#41; Then
	Response.Redirect "Login.asp?Error=True"
End IF

IF Error = "" Then

Session&#40;"Admin"&#41; = "True"

Rs.Close
Set rs = Nothing
conn.Close
Set Conn = Nothing

Response.Redirect "Default.asp"

End IF

End IF
%>
<html>
<head>
<title>Administration</title>
</head>

<body>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
		<tr>
			<td>
			<div align="center">
				<table border="2" width="45%" cellpadding="0" style="border-collapse&#58; collapse" id="table1" height="156" bordercolor="#000000">
					<form method="get" action="Login.asp" id="Login">
					<tr>
						<td width="35%" rowspan="3" bgcolor="#C0C0C0" style="border-right-style&#58; none; border-right-width&#58; medium">
						<img border="0" src="../images/Lock.png" width="128" height="128"></td>
						<td width="23%" height="27" bgcolor="#C0C0C0" style="border-left-style&#58; none; border-left-width&#58; medium; border-right-style&#58; none; border-right-width&#58; medium; border-bottom-style&#58; none; border-bottom-width&#58; medium">
						<font face="Verdana" size="2">Username</font></td>
						<td height="27" width="41%" bgcolor="#C0C0C0" style="border-left-style&#58; none; border-left-width&#58; medium; border-bottom-style&#58; none; border-bottom-width&#58; medium">
						<input name="User" id="User" size="33" style="font-size&#58; 8pt; font-family&#58; Tahoma; border&#58; 1px solid #C0C0C0; background-color&#58; #FFFFFF; float&#58;left" maxlength="50"></td>
					</tr>
					<tr>
						<td width="23%" bgcolor="#C0C0C0" style="border-style&#58; none; border-width&#58; medium" height="27"><font face="Verdana" size="2">
						Password</font></td>
						<td width="41%" bgcolor="#C0C0C0" style="border-left-style&#58; none; border-left-width&#58; medium; border-top-style&#58; none; border-top-width&#58; medium; border-bottom-style&#58; none; border-bottom-width&#58; medium" height="27">
						<input type="password" name="Pass" id="Pass" size="33" style="font-size&#58; 8pt; font-family&#58; Tahoma; border&#58; 1px solid #C0C0C0; background-color&#58; #FFFFFF; float&#58;left" maxlength="50"></td>
					</tr>
					<tr>
						<td width="64%" bgcolor="#C0C0C0" style="border-style&#58; none; border-width&#58; medium" colspan="2">
						<p align="center">
						<% IF Request.QueryString&#40;"Error"&#41; = "True" Then %>
						<font color="#FF0000" face="Verdana" size="2">Wrong 
						login!</font><br>
						<br>
						<% End IF %>
						<input type="hidden" name="send" value="login">
							<input type="button" value="Get Access  &gt;&gt;" name="BTNLogin" id="BTNLogin" style="font-family&#58; Tahoma; font-size&#58; 8pt; color&#58; #FFFFFF; float&#58; center; border-style&#58; solid; border-width&#58; 1px; padding-left&#58; 30px; padding-right&#58; 30px; padding-top&#58; 0px; padding-bottom&#58; 0px; background-color&#58; #717171"></td>
					</tr>
					</form>
					
					<Script language="vbscript">
					Function CheckUsername&#40;User&#41;	
						Flag = True
						For i = 1 To Len&#40;User&#41;
							IF &#40;Asc&#40;Mid&#40;User,i,1&#41;&#41; < 48&#41; OR &#40;Asc&#40;Mid&#40;User,i,1&#41;&#41; > 57&#41; Then
								If &#40;Asc&#40;Mid&#40;User,i,1&#41;&#41; < 65&#41; OR &#40;Asc&#40;Mid&#40;User,i,1&#41;&#41; > 90&#41; Then
									If &#40;Asc&#40;Mid&#40;User,i,1&#41;&#41; < 97&#41; OR &#40;Asc&#40;Mid&#40;User,i,1&#41;&#41; > 122&#41; Then
										Flag = False
									End IF
								End IF
							End IF
						Next
						CheckUsername = Flag
					End Function
					
					Sub User_OnFocus
						IF Login.User.value = "Username" Then
							Login.User.value = ""
						End IF
					End Sub
					
					Sub Pass_OnFocus
						IF Login.Pass.value = "Password" Then
							Login.Pass.value = ""
						End IF
					End Sub
					
					Sub BTNLogin_OnClick
						
						Dim User, Pass
						
						User = Login.User.value
						Pass = Login.Pass.value
						
						IF User = Empty OR Pass = Empty Then
							Msgbox "You must fill all the fields!", VBCritical, "Error"
						ElseIF CheckUsername&#40;User&#41; = False OR CheckUsername&#40;Pass&#41; = False Then
							Msgbox "Use only a-z, A-Z, 1-9 chars!", VBCritical, "Error"
						Else
							Login.submit
						End IF
						
					End Sub
					</Script>
					
				</table>
			</div>
			</td>
		</tr>
		</table>
</div>

</body>
</html>

Mporei kapios na mou ti exei la8os edw .. den patiete to Get access Button gia na kanw login?

http://www12.asphost4free.com/ctcp1/admin/Login.asp

Άβαταρ μέλους
Burned4
Δημοσιεύσεις: 324
Εγγραφή: 21 Σεπ 2007 12:50
Επικοινωνία:

ASP login sfalma..

Δημοσίευση από Burned4 » 08 Μάιος 2009 18:01

Το πρόβλημα είναι στο HTML του κουμπιού από ότι είδα. Εκεί που έχεις:

Κώδικας: Επιλογή όλων

<input type="button" value="Get Access  &gt;&gt;" name="BTNLogin" id="BTNLogin" style="font-family&#58; Tahoma; font-size&#58; 8pt; color&#58; #FFFFFF; float&#58; center; border-style&#58; solid; border-width&#58; 1px; padding-left&#58; 30px; padding-right&#58; 30px; padding-top&#58; 0px; padding-bottom&#58; 0px; background-color&#58; #717171">
άλλαξε το

Κώδικας: Επιλογή όλων

type="button" 
σε

Κώδικας: Επιλογή όλων

type="submit" 
:wink:
You can do anything, but not everything.

ctcp
Δημοσιεύσεις: 27
Εγγραφή: 11 Οκτ 2003 09:18
Επικοινωνία:

ASP login sfalma..

Δημοσίευση από ctcp » 09 Μάιος 2009 02:45

To proto prama pou ekana afto htan ala @@ gmt kati alo ftaei kai i mal**ia einai to exo parei to script apo alou kai den vgazw akri ti ginete..
an mporei kapios as HELP

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

ASP login sfalma..

Δημοσίευση από dva_dev » 09 Μάιος 2009 02:54

Εγώ πάντως που δοκίμασα (από opera) με username/password=test/test πατιέται κανονικά το κουμπί και με πηγαίνει στην σελίδα http://www12.asphost4free.com/ctcp1/adm ... ss++%3E%3E
και βγάζει μήνυμα
404 - File Not Found

The file either does not exist or this member
has violated the Terms of Service and his account has been terminated.

Άβαταρ μέλους
Burned4
Δημοσιεύσεις: 324
Εγγραφή: 21 Σεπ 2007 12:50
Επικοινωνία:

ASP login sfalma..

Δημοσίευση από Burned4 » 09 Μάιος 2009 13:08

Και γω το δοκίμασα σε firefox και δούλεψε με αυτό που σου είπα.

Προχωράει και με πάει στη σελίδα που σου είπε ο dva_dev
You can do anything, but not everything.

ctcp
Δημοσιεύσεις: 27
Εγγραφή: 11 Οκτ 2003 09:18
Επικοινωνία:

ASP login sfalma..

Δημοσίευση από ctcp » 09 Μάιος 2009 18:17

to alaksa kai ekana type="submit" giafto phgenei kanonika .. ala ....

Απάντηση

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

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

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