ASP

ASP signifie Active Server Page, fonctionne avec un serveur comme IIS.





Bases de données : penser à bien refermer les connexions !!!

- Récupérer un champ passé en GET :
valeur = Request.querystring("champ")
- Récupérer un champ passé en POST :
valeur = Request.form("champ")

- Redirection :
response.Redirect("gestionfournisseur.asp")


Fichier conn.asp :

<%
Set conn = Server.CreateObject("ADODB.Connection")

'ACCESS
connstring = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" &Server.Mappath(".")&"base.mdb"
'SQL SERVER
'connstring = "Driver={SQL Server};" & "server=;uid=;pwd=;database="


conn.Open connstring
%>

et Fichier fermerconn.asp :

<%
conn.close
set conn=nothing
%>

Ce fichier est à inclure de la façon suivante :
<!-- #include file="conn.asp" -->

Pour un SELECT :

Set rs = server.CreateObject("ADODB.recordset")
rs.open requeteSQL, conn,3,3

//nombre de résultats
rsa.recordcount

Lecture des résultats :

rsa.movefirst
do while not rsa.eof
  Response.Write("<br>")
  id = rsa.fields("champ")   rsa.movenext loop

Fermeture du curseur et de la connexion :

rsa.close
Set rsa=Nothing
<!-- #include file="fermerconn.asp" -->

Ajouter une nouvelle ligne :

<!-- #include file="conn.asp" --><%
Set rs = server.CreateObject("ADODB.recordset")
rs.open "decodagefournisseur",conn,1,2,2  'pour ajouter une row
rs.addNew
rs.fields("libelle") = nouveaulibelle
rs.update
rs.close
set rs=nothing
%><!-- #include file="fermerconn.asp" --><%
response.Redirect("gestion.asp")

Faire un UPDATE, sans requête UPDATE : On fait un SELECT des champs à modifier, on les modifie et on valide

<!-- #include file="conn.asp" -->
<%
'on modifie le fournisseur ayant pour id idf
Set rs = server.CreateObject("ADODB.recordset")
rs.open "SELECT * FROM fournisseur WHERE idf="&monid, conn,1,2,1

rs.movefirst
if not rs.eof then
  rs.fields("libelle") = monlibelle
  rs.update
end if
rs.close
%><!-- #include file="fermerconn.asp" -->

Supprimer dans la base :

conn.execute("DELETE FROM fournisseur WHERE id=2)