problema registrazione nuovi utenti su pagine asp

Discussione in 'Classic ASP' iniziata da MartiD, 2 Settembre 2015.

Tag (etichette):
  1. MartiD

    MartiD Nuovo Utente

    Registrato:
    1 Settembre 2015
    Messaggi:
    1
    Mi Piace Ricevuti:
    0
    Punteggio:
    0
    Buongiorno a tutti! Io ho un problema, devo creare un sito che effettui il login e la creazione di nuovi utenti che poi registrerà in un database. Se il nome utente è già presente nel database devo dire che il nome utente è già in uso, altrimenti aggiungerlo al database. Il database è payments.mdb e l'ho salvato nella cartella nella quale sono presenti le pagine del sito.
    Io ho scritto il codice seguente, ma mi da errore quando lo carico.. sono disperata, dove sbaglio? potete aiutarmi?
    Grazie mille!


    <!DOCTYPE HTML PUBLIC"-//W3C//DTD HTML 4.01//EN""http://www.w3.org/TR/html4/strict.dtd">
    <%@language="JScript"%>
    <!--#include file="adojavas.inc"-->

    <html>
    <head>

    <%
    nick = Replace(Request.QueryString("nick"), "'", "''");

    IF nick <> "" then
    var con;
    var conString;
    con = Server.CreateObject("ADODB.Connection");
    conString = "Provider=Microsoft.Jet.OLEDB.4.0; "+"Data Source="+Server.MapPath("payments.mdb");
    con.Open(conString);
    %>
    <title>Registrazione</title>
    <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">

    </head>
    <body>

    <%

    var rst;
    var sSQLString;
    rst = Server.CreateObject("ADODB.Recordset");
    sSQLString = "SELECT * from users where nick = '" & nick &"'";
    rst.Open(sSQLString, con, adOpenStatic, adLockOptimistic);

    IF (!rst.EOF) Then

    usato = True
    Else

    usato = False
    End IF

    rst.Close();
    rst = Nothing;

    IF usato = True then
    %>

    <hr>
    <p align="center"><b><font face="Verdana" size="2">Username inserito già in uso!</font></b></p>
    <hr>

    <%
    Else

    rst = Server.CreateObject("ADODB.Recordset");
    sSQLString = "SELECT * from users Order By user_id Desc";
    rst.Open(sSQLString, con, adOpenStatic, adLockOptimistic);
    rst.Addnew;

    rst("nick") = nick;

    rst.Update;
    rst.Close();
    con.Close();
    rst = null;
    con = null:

    %>
    </body>
    </html>
     
  2. Paolo69

    Paolo69 Moderatore Membro dello Staff MOD

    Registrato:
    18 Febbraio 2010
    Messaggi:
    523
    Mi Piace Ricevuti:
    13
    Punteggio:
    18
    Sesso:
    Maschio
    Occupazione:
    Administrator
    Località:
    Italy
    Home Page:
    Testa questo codice:
    Codice:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
    <!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>
    <title>Registrazione</title>
    <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
    </head>
    
    <body>
    <%
    Dim nik
    	nick = Replace(Request.QueryString("nick"), "'", "''");
    
    
    If nick <> "" then
    					
    					' connessione al DB
    					conString = "Provider=Microsoft.Jet.OLEDB.4.0; "+"Data Source="+Server.MapPath("payments.mdb");
    
    			Set rs = Server.CreateObject("ADODB.Recordset")
    				rs.ActiveConnection = conString
    				rs.Source = "SELECT * from users where nick = '" & nick &"'"
    				rs.CursorType = 0
    				rs.CursorLocation = 2
    				rs.LockType = 1
    				rs.Open()
    		
    					If NOT rs.EOF Then
    					
    					' rs presente
    					' visualizzo un messaggio
    					%>
                        <hr>
    					<p align="center"><b><font face="Verdana" size="2">Username inserito già in uso!</font></b></p>
    					<hr>
    					<%
    					
    					Else
    					
    					' rs assente
    					' inserisco il nick nel DB
    			Set RsU = server.CreateObject ("ADODB.Connection")
    				RsU.ConnectionString = conString
    				RsU.Open
    				QuerySQL = "INSERT INTO users (nick) VALUES ('"&nick&"')"
    				RsU.Execute QuerySQL
    			Set RsU = Nothing
    
    					%>
    						<script language="javascript">
    							msg = "Operazione conclusa con successo!"
    								alert(msg)
    						//	location.replace("default.asp");
    						</script>
    					<%
    	
    					End If
    
    		
    				rs.Close
    			Set rs = Nothing
    
    %>
    </body>
    </html>
    
    
    purtroppo il codice non l'ho testato.
    Se non funziona mandami una copia del DB al seguente indirizzo: virtual_box@hotmail.com
    Buona giornata
     
Sto caricando...

Condividi questa Pagina