[MySQL] Leggere i campi di una tabella

Con questo script, viene mostrato come legger una tabella di un database mySql. In fondo alla tabella, viene mostrato il tempo impiegato a svolger tale operazione.

<%

inizioTempo = Timer()

Set conn = Server.CreateObject(“ADODB.Connection”)

Set comm = Server.CreateObject(“ADODB.Command”)

Set Rs = Server.CreateObject(“ADODB.Recordset”)

conn.CommandTimeout = 40

conn.CursorLocation = 1

conn.ConnectionString = “db=innoDb;uid=innovatel;pwd=innovatel;driver=MySQL”

conn.Open

comm.ActiveConnection = conn

comm.CommandType = 1

comm.CommandText = “SELECT nome FROM clienti”

Rs.Open comm,,1,1

%>

<TABLE>

<%

do while not(rs.eof)

i=i+1

if i mod 2 = 0 then

strFondo=”#CCFF00″

else

strFondo=”#CC33CC”

end if

%>

<TR>

<TD bgcolor=”<%=strFondo%>”>

<%

if i mod 2 = 0 then

response.write “<font size=””2″” color=””#66CCCC””>”

else

response.write “<font size=””2″” color=””#CC33FF””>”

end if

response.write “Messaggio numero –> ” & i & ” – Testo –> ” & rs(0)

response.write “<br></font>”&chr(13)&chr(10)

rs.movenext

%>

</TD>

</TR>

<%

loop

%>

</TABLE>

<%

rs.close

conn.close

set rs = nothing

set comm= nothing

set conn = nothing

response.write “Secondi Impiegati : ” & ( timer() – inizioTempo )

%>

I Video di HTML.it

Internet è un computer!