Inserire User in DB

**tatiana_s** · 25-09-2009, 23:38

Salve, sempre io...
Ho una pagina form, dove aggiungo dei dettagli...
Quando aggiungo un dettaglio, che viene stampato a video, vorrei aggiungere anche l'user dell'utente che lo ha inserito. Il Db è strutturato in 3 tabelle, una con User e Pss, una con i dettagli e l'altra la lista principale.

Sapete suggerirmi qualcosa???
con l'aiuto di Alessio è uscito questo
[B]File update-nota [B]

codice:

<%
id=request.form("id")
if id="" then id=request.querystring("id")

if request.querystring("tipo")="add" then

	if request.form("descrizione")<>"" then
	
		descrizione=replace(request.form("descrizione"), "'", "&#39;")
		descrizione=replace(descrizione, chr(13)&chr(10), "
")
		
		
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
		SQL = "Insert Into descrizioni (descrizione, id, inserita_da) Values('"&descrizione&"', "&request.form("id")&", '"&request.form("user")&"')"
		MyConn.Execute(SQL)
		MyConn.Close
		Set MyConn = Nothing
	
	end if
  
  
end if
if request.querystring("tipo")="mod" then

	if request.form("descrizione")<>"" then
	
		descrizione=replace(request.form("descrizione"), "'", "&#39;")
		descrizione=replace(descrizione, chr(13)&chr(10), "
")
		
		
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
		SQL = "Update descrizioni Set descrizione= '"&descrizione&"' Where id_descrizione = "&request.form("id_descrizione")&""
		Set RS = MyConn.Execute(SQL)
		MyConn.Close
		Set MyConn = Nothing
	
	end if
  
  
end if
if request.querystring("tipo")="del" then
		
		
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
	SQL = "Delete * From descrizioni Where id_descrizione = "&request.form("id_descrizione")&""
	MyConn.Execute(SQL)
	MyConn.Close
	Set MyConn = Nothing
  
end if
  response.redirect "dettagli.asp?id="&id&""
%>

File dettagli

codice:



<%
'elenco dettagli utenti registrati
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Dettaglio utenti</title>
</head>

<body>
  <%
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")

SQL = "select * from mailing_list where id = "&Request.QueryString("id")&""
Set RS = MyConn.Execute(SQL)
While Not RS.EOF
%>

<p align="center"><font size="7" face="Verdana, Arial, Helvetica, sans-serif" color="#6699FF">Scheda 
  Utente</font></p>
<table width="600" border="0" cellspacing="2" cellpadding="2" align="center" bgcolor="#B0CAFF">
  <tr bgcolor="#6699FF"> 
    <td colspan="3" height="104"> 
      <table width="98%" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" align="center">
        <tr> 
          <td width="12%" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><font color="#6699FF"><u>[img]/interfaccia/ico_lente.gif[/img] 
            <%Response.Write(rs("Societa"))%>
            </u> </font>  </font></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Citt&agrave;: 
      <%=(rs("Citta"))%> </font></td>
    <td width="101"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Cap: 
      <%=(rs("Cap"))%> </font></td>
    <td width="101"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Pr:</font> 
      <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=(rs("Provincia"))%></font></td>
  </tr>
  <tr> 
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Indirizzo: 
      <%=(rs("Indirizzo"))%> </font></td>
    <td width="202" colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">n&deg;:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
      </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=(rs("Civico"))%></font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Tel: 
      <%=(rs("Tel"))%> </font></td>
  </tr>
  <tr> 
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Fax: <%=(rs("Fax"))%></font></td>
    <td width="202" colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Cell: 
      <%=(rs("Cell"))%> </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">e-mail: 
      	      <%Response.Write("<a href=""mailto:")
	      Response.Write(rs("EMail"))
	      Response.Write(""">")
	      Response.Write(rs("EMail"))%>
 </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Categoria: 
      <%=(rs("Categoria"))%> </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">P.IVA: 
      <%=(rs("PIva"))%> </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Codice 
      Fiscale: <%=(rs("CodiceFiscale"))%></font></td>
  </tr>
  <tr> 
    <td colspan="3"></td>
  </tr>
<form method="post" action="update-nota.asp?tipo=add"> 
	<tr> 
		<td colspan="3">
		<textarea name="descrizione" rows="6" style="width: 90%;"></textarea>

		<input type="submit" name="Submit" value="Aggiungi nota"><input type="hidden" name="id" value="<%=request.querystring("id")%>" /><input type="hidden" name="usr" value="<%=session("usr")%>" /> 
		</td>
	</tr>
</form>

  <tr> 
    <td colspan="3">Note già inserite</td>
  </tr>
  <%
SQL2 = "select * from descrizioni where id = "&Request.QueryString("id")&""
Set RS2 = MyConn.Execute(SQL2)
While Not RS2.EOF
descrizione=rs2("descrizione")
  %>
  <tr>
    <td colspan="3"><font color="#990000"><%=rs2("data")%> - <%=rs2("inserita_da")%> 
      -</font> <%=descrizione%></td>
  </tr>
  <tr><td colspan="3" style="font-size: 8pt;"> </td></tr>
  <%
RS2.MoveNext
Wend
RS2.Close
Set RS2 = Nothing
  %>
  <tr> 
    <td colspan="3"></td>
  </tr>
  <%
	RS.MoveNext
Wend
RS.Close
Set RS = Nothing

MyConn.Close
Set MyConn = Nothing
%>
</table>
</body>
</html>

Grazie

**Roby_72** · 26-09-2009, 00:28

La user dove è memorizzata?

Roby

**tatiana_s** · 26-09-2009, 00:31

La user è memorizzata nel DB lista, nella cartella ammin... con nome del campo usr

**Roby_72** · 26-09-2009, 00:34

Ok ma come fai a sapere chi sta inserendo il dettaglio?
Non è che usi una sessione o un cookie?
Perché non avendo aperto quella tabella in realtà il titolare dell'inserimento non esiste.

Roby

**tatiana_s** · 26-09-2009, 00:39

Non so risponderti,

Forse questo ti può essere utile?

<%
if Session("Autenticato")<>"OK" then
Response.Redirect("login/default.asp?indir="&request.servervariables("url") &"")
end if
%>

**tatiana_s** · 26-09-2009, 00:42

Questa è la pagina del login

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim usr
Dim pwd

usr = Replace(Request.Form("usr"), "'", "''")
pwd = Replace(Request.Form("pwd"), "'", "''")
url = Replace(Request.form("indir"), "'", "''")

'creazione variabili

Set objRS = Server.CreateObject("ADODB.Recordset")

Dim sql
sql = "SELECT * FROM ammin WHERE usr='" &usr& "' AND pwd='" &pwd& "'"
objRS.Open sql, objConn, 3, 3

Dim autenticato
if objRS.eof then
autenticato = false
else
autenticato = true
session("user")=objrs("usr")
end if

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing

if autenticato = true then
Session("Autenticato") = "OK"
if url <> "" then 'url = request.form("indir")
Response.Redirect(url)
else
Response.Redirect("../default.asp")
end if
else
Response.Redirect("default.asp")
end if
%>

**Roby_72** · 26-09-2009, 12:39

E' qui la user...

session("user")=objrs("usr")

Quindi basta che inserisci un nuovo campo nella tabella e lo aggiungi nella query relativa alla tabella che ti interessa.
Se posti qui la tua query facciamo subito il cambiamento.

Roby

**tatiana_s** · 27-09-2009, 05:42

Si il nuovo campo nella tabella dettagli l'ho creato , si chiama "inserito_da"

codice:

<%
id=request.form("id")
if id="" then id=request.querystring("id")

if request.querystring("tipo")="add" then

	if request.form("descrizione")<>"" then
	
		descrizione=replace(request.form("descrizione"), "'", "&#39;")
		descrizione=replace(descrizione, chr(13)&chr(10), "
")
		
		
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
		SQL = "Insert Into descrizioni (descrizione, id, inserita_da) Values('"&descrizione&"', "&request.form("id")&", '"&request.form("usr")&"')"
		MyConn.Execute(SQL)
		MyConn.Close
		Set MyConn = Nothing
	
	end if
  
  
end if
if request.querystring("tipo")="mod" then

	if request.form("descrizione")<>"" then
	
		descrizione=replace(request.form("descrizione"), "'", "&#39;")
		descrizione=replace(descrizione, chr(13)&chr(10), "
")
		
		
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
		SQL = "Update descrizioni Set descrizione= '"&descrizione&"' Where id_descrizione = "&request.form("id_descrizione")&""
		Set RS = MyConn.Execute(SQL)
		MyConn.Close
		Set MyConn = Nothing
	
	end if
  
  
end if
if request.querystring("tipo")="del" then
		
		
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
	SQL = "Delete * From descrizioni Where id_descrizione = "&request.form("id_descrizione")&""
	MyConn.Execute(SQL)
	MyConn.Close
	Set MyConn = Nothing
  
end if
  response.redirect "dettagli.asp?id="&id&""
%>

**Roby_72** · 27-09-2009, 10:59

codice:

SQL = "Insert Into descrizioni (descrizione, id, inserita_da) Values('"&descrizione&"', "&request.form("id")&", '"&session("user")&"')"

Roby

**tatiana_s** · 27-09-2009, 16:11

No, il problema non è quello...
Inizialmente era così, ho provato a modificare, appunto per provare, xchè non andava!

Discussione: Inserire User in DB

Strumenti discussione

Ricerca discussione

Visualizza

Inserire User in DB

Permessi di invio