Advertisement
Guest User

Untitled

a guest
Jun 19th, 2017
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 1.83 KB | None | 0 0
  1. <!-- METADATA TYPE="typelib" NAME="Microsoft ActiveX Data Objects 2.8 Library" UUID="{2A75196C-D9EB-4129-B803-931327F72D5C}" VERSION="2.8" -->
  2. <%
  3.     ' Questa parte non è necessaria per l'esempio.
  4.     ' È mia abitudine includerla per assicurarmi che le pagine siano servite come dico io.
  5.     Response.Clear
  6.     Response.CodePage = 65001
  7.     Response.CharSet = "utf-8"
  8.     Response.ContentType = "application/xhtml+xml"
  9.    
  10.     ' Dichiara la variabile che conterrà il recordset restituito dalla funzione.
  11.     Dim Prodotti
  12.    
  13.     ' Questa funzione si occupa di leggere un recordset dal database e di restituirlo.
  14.     Function LeggiProdotti
  15.    
  16.         ' Dichiara le variabili per gli oggetti ADO.
  17.         Dim Connection, Command, Recordset
  18.        
  19.         ' Inizializza gli oggetti ADODB.
  20.         Set Connection = Server.CreateObject("ADODB.Connection")
  21.         Set Command = Server.CreateObject("ADODB.Command")
  22.         Set Recordset = Server.CreateObject("ADODB.Recordset")
  23.        
  24.         ' Imposta e apri la connessione al database.
  25.         Connection.ConnectionString = "Provider=SQLNCLI10; Server=SERVER; Database=DATABASE; Uid=UTENTE; Pwd=PASSWORD;"
  26.         Connection.Open
  27.        
  28.         ' Imposta il comando ADO.
  29.         Command.ActiveConnection = Connection
  30.         Command.CommandText = "select id_prodotto as id, nome_prodotto as nome from prodotti where quantita > 0"
  31.        
  32.         ' Popola il recordset coi dati.
  33.         ' Queste impostazioni sono necessarie per rendere il recordset disconnettibile.
  34.         Recordset.CursorLocation = adUseClient
  35.         Recordset.Open Command, , adOpenForwardOnly, adLockReadOnly
  36.        
  37.         ' Disconnetti il recordset.
  38.         Set Recordset.ActiveConnection = Nothing
  39.        
  40.         ' Restituisci il recordset.
  41.         Set LeggiProdotti = Recordset
  42.        
  43.         ' Chiudi la connessione al database.
  44.         Connection.Close
  45.        
  46.         ' Dereferenzia gli oggetti ADO utilizzati.
  47.         Set Recordset = Nothing
  48.         Set Command = Nothing
  49.         Set Connection = Nothing
  50.    
  51.     End Function
  52. %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement