ASP KAI LOG ON ! GIA LIGOYS...!

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

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

Απάντηση
Άβαταρ μέλους
mihalisp
Δημοσιεύσεις: 123
Εγγραφή: 04 Ιουν 2002 03:00
Επικοινωνία:

ASP KAI LOG ON ! GIA LIGOYS...!

Δημοσίευση από mihalisp » 18 Ιούλ 2002 02:29

PAIDIA MPOREITE NA MOY PEITE POY GINETAI O ELEGXOS AN TA STOIXEIA POY BAZEI ENAS XRHSTHS SE MIA FORMA LOG ON SE MIA DYNAMIKH ASP ISTOSELIDA EINAI SWSTA H OXI KAI STH SYNEXEIA NA SE PHGAINEI STHN ANALOGH HTML SELIDA(GIA SWSTH H LATHOS EISAGWGH STOIXEIWN)?GINETAI ME JAVASCRIPT STON CLIENT H STON SERVER ME ASP KWDIKA?NOMIZW OMWS OTI GINETAI KAI ME TOYS 2 TROPOYS ALLA AYTO TO PARAPANW POY XREIAZETAI EINAI NA FTIAKSEIS DYNAMIKA STON ASP KWDIKA 2 DIAFORETIKES HTML SELIDES MIA GIA KATHE ROYTINA(SUB) DHLADH GIA SWSTA H LATHOS STOIXEIA.ETSI DEN EINAI? PARAKATW EINAI O KWDIKAS THS SELIDAS POY KANEI TON ELEGXO EKSOLOKLHROY SE ASP(KATHOLOY JAVASCRIPT SE CLIENT) GIA TO DIKO MOY SITE.MPOREITE NA KANETE KAPOIA SXOLIA GIA TON KWDIKA AYTON?OTIDHPOTE.1)AN EINAI SWSTOS,2)AN YPARXEI KALYTEROS TROPOS,3)AN THELEI SESSIONS,4)PWS MPORW NA ALLAKSW MEROS,MEGETHOS KAI STYL STA LOGIA POY GRAFEI STO "WEND" KAI STO "ELSE" STO KATW MEROS THS SELIDAS,5)STHN PRWTH HTML POY GRAFW XREIAZETAI H FORMA POY EXW BALEI H EINAI ASKOPH?KAI SE AYTHN THN FORMA EXW BALEI ACTION MIA ASP ME ONOMA "MENU.ASP" H OPOIA MPOREI NA EINAI KAI KENH.EINAI LATHOS?TO SCRIPTAKI VBSCRIPT EINAI SWSTO?MPORW NA ALLKSW KAPWS TIS IDIOTITES AYTOY TOY ALERT BOX POY DHMIOYRGEITAI ME AYTON TO SCRIPTAKI VBSCRIPT?O KWDIKAS EINAI O EKSHS:

<%@ Language=VBScript %>

<%
SUB correct_form(correct)
%>
<html>
<head><title>anter kai ...3</title></head>
<body>
<%=correct%>
<FORM method="post" action="menu.asp" id=form2 name=form2>
<TABLE style="WIDTH: 488px; HEIGHT: 3px" height=3
cellSpacing=0 cellPadding=2 width=488 border=1 borderColor=steelblue align=center bgColor=white background="">

<TR>
<TD>
<P style="COLOR: white; BACKGROUND-COLOR: deepskyblue"
><FONT color=#000000 style="FONT-SIZE: larger;
COLOR: white; FONT-STYLE: normal; FONT-FAMILY: sans-serif; BACKGROUND-COLOR: deepskyblue"
>MENU EPILOGWN</FONT></P></TD></TR>
<TR>
<TD style="HEIGHT: 10px" height=10>
<P>&nbsp;</P>
<UL>
<LI><A HREF="http://localhost/dilosi/downframe.asp"> ... p;:FDJSDVS
<LI><A HREF="http://localhost/dilosi/nea_dilosi.asp">NEA DHLWSH</A>&nbsp;:FDJSDVS
<LI><A HREF="http://localhost/dilosi/downframe.asp">YPOBLITHISES DHLWSEIS</A>&nbsp;:FDJSDVS
<LI><A HREF="http://localhost/dilosi/downframe.asp">STOIXEIA PELATH</A>&nbsp;:FDJSDVS
<P>&nbsp;</P>
<P>&nbsp;</P></LI></UL></TD></TR></TABLE>
</FORM> </body></html>
<%
Response.End
END SUB
%>
<%
SUB error_form(the_error)
%>
<html>
<head><script Language=VBScript> 'client scripting...
dim answer
answer=MsgBox("Hello everyone!",48,"Example")
Document.Write (answer)</script>
<title> ante kai..</title></head>
<body>
<%=the_error%>
<form method="post" action="downframe.asp" id=form1 name=form1>
<p> <input type="submit" value="epistrofi sthn arxiki" name="ok">
</form>
</body>
</html>

<%
Response.End
END SUB

'Retrieve from Fields

user_name = TRIM(Request.Form("user_name"))
password = TRIM(Request.Form("password"))

Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "dilosiDSN"

'open recordset
Set RS = Server.Createobject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.Open "SELECT username, password FROM Customers"
WHILE NOT RS.EOF

'check for validity

IF user_name <> RS("username") OR password <> RS("password")THEN

RS.MoveNext
'Response.Write RS( "username" )
'Response.End
ELSE
correct_form " XRHSTHS " & RS("username")
END IF

WEND
error_form "TA STOIXEIA POY DHLWSATE EINAI LATHOS"
%>

PAIDIA OPOIOS KSEREI KATI APO OLA AYTA AS ME BOITHISEI!

SAS EYXARISTW PROKATABOLIKA OLOYS!

Άβαταρ μέλους
hellas
Δημοσιεύσεις: 372
Εγγραφή: 15 Αύγ 2001 03:00
Τοποθεσία: Athens, Greece

ASP KAI LOG ON ! GIA LIGOYS...!

Δημοσίευση από hellas » 18 Ιούλ 2002 10:37

Koita ego den ksero oute asp oute apo vaseis dedomenon. Afto pou ksero omos sta sigoura giati to exo dei, einai oti ginetai me javascript kai malista to exo dei sto js-examples.com. An thes tin gnomi mou omos kala tha kaneis na perimeneis ti mporei na exoun oi alloi tou forum na sou poun giati to javascript pou sou leo ego einai gia aftous tous mikrous tapeinous webmasters pou theloun na exoun kati proxeiro pou na kanei douleia men kai na exeis kai "fatsa" pros tin koinonia de. Afto to javascript einai olofanero oti den exei kamia prostasia, (an tin xreiazesai) sto leo apo tora. Apla sto anefera mpas kai voithisei....

Άβαταρ μέλους
telxinas
Δημοσιεύσεις: 438
Εγγραφή: 15 Ιούλ 2002 03:10
Επικοινωνία:

ASP KAI LOG ON ! GIA LIGOYS...!

Δημοσίευση από telxinas » 22 Ιούλ 2002 15:20

Stin proti sou selida exis fisika mia formoula me dio pediakia to ena gia onoma xristi kai to allo gia password.Action fisika stin epomeni.
Lipon stin epomeni grapse to exis:
<%
if request.form("onoma pediou proigoumenis selidas gia onoma")="to onoma pou thelis" and request.form("onoma pediou proigoumenis selidas gia password")="to password pou thelis" then%>
<html>
<title>mpla mpla</title>.....
Diladi o asp code tha mpi stin proti grammi tis selidas sou kai istera tha akokolouthisi o html kodikas. Min xexasis na grapsis ton asp kodika se mia grammi sinexomeni kai sto telioma tou html diladi eki pou lei
</html> na teliosis to asp script etsi:
<%end if%>

Απάντηση

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

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

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