Série intermédiaire d'entrée et de maîtrise du composant Asp

Auteur：Eve Cole Date de mise à jour：2009-06-20 17:20:11

J'ai écrit sept tutoriels principaux,

l'un des séries d'entrée intermédiaire et de maîtrise des composants Asp

. Il y a certainement quelques choses de base qui doivent être écrites. Je vais lentement compléter

le contenu des tutoriels intermédiaires :

C'est peut-être aussi ce que tout le monde est. les plus préoccupés par : tels que : base de données Opération et emballage. Utilisation des objets intégrés Asp. Je vais passer beaucoup de temps à expliquer ces parties. Cette partie nécessite que vous soyez plus compétent dans l'utilisation d'ADO pour faire fonctionner la base de données et que vous soyez familier avec les cinq objets principaux d'ASP.

Jetons un coup d’œil à certaines des informations qui circulent en ligne :
Comme nous le savons tous, ASP possède cinq objets intégrés : Réponse, Demande, Serveur, Session et Application. En fait, ces cinq objets intégrés sont les cinq composants DLL ActiveX initialisés par la console IIS. cinq composants à utiliser dans ASP. Bien entendu, nous pouvons également référencer directement ces composants dans notre DLL ActiveX pour implémenter notre programmation, ce qui signifie que nous pouvons réaliser la fonction d'accès aux objets intégrés ASP en référençant ces composants dans les applications VB.

Tant que vous installez un serveur WEB avec PWS4 ou IIS4 ou supérieur, vous disposerez d'une bibliothèque d'objets nommée "Microsoft Active Server Pages Object". Nous pouvons référencer cette bibliothèque d'objets dans l'application DLL ActiveX de VB. obtenu un objet (classe) : ScriptingContext, qui est également l'objet principal de tout notre article. La relation au sein de la bibliothèque d'objets est la suivante :

Classe de bibliothèque d'objets, membre de classe

ASPTypeLibrary ScriptingContext Application

Request

Response

Session

Server

Grâce au diagramme de relation ci-dessus, nous pouvons facilement comprendre la classe ScriptingContent.

Jetons un coup d'œil à un exemple spécifique :

ouvrez vb6 et créez un nouveau projet Activex Dll. Changez le nom du projet en fCom et le nom de la classe en fZ1
Référence à la bibliothèque d'objets « Microsoft Active Server Pages Object ».
Créez deux événements de composant : OnStartPage et OnEndPage
Créez une référence à la classe ScriptingContent dans l'événement OnStartPage.
Instanciez la classe ScriptingContent.

Le code est le suivant :

'Cet événement est déclenché lorsque le composant est détruit
Sous-public OnEndPage()
myResponse.Write "Le composant DLL ActiveX a été détruit !"
'Détruisez l'objet
Définir maRéponse = Rien
Définir maRequête = Rien
Définir mon serveur = Rien
Définir monApplication = Rien
Définir maSession = Rien
End Sub

'Définir notre propre méthode de composant
Sous-public HelloWorld()
myResponse.Write "Ceci est écrit à l'aide d'objets intégrés asp"
Fin du sous-marin

Testez Open Visual Interdev6.0 et générez un fichier asp

code de programme
<%@ Langage=VBScript %>
<HTML>
<CORPS>
<%
set obj=server.CreateObject("fCom.fZ1")
appelez obj.HelloWorld()
%>
</CORPS>
</HTML>

Configurez le répertoire virtuel et exécutez ce fichier asp dans IE. Les résultats sont les suivants :
Le composant DLL ActiveX a été créé ! Ce composant DLL ActiveX écrit avec des objets intégrés asp a été détruit !

Série intermédiaire et maîtrise du composant Asp, partie 2.

Examinons d'abord l'objet Application. Auparavant, l'objet Application était souvent utilisé pour les compteurs. et les bases de données Pour la chaîne de connexion, nous prenons le compteur comme exemple :
Regardons d'abord le fichier global.asa. C'est relativement simple.

code de programme
<langage de script =vbscript runat=server>
sousApplication_onstart
Application("Compteur")=0
fin du sous
</script>

Ensuite,

ouvrez vb6 et créez un nouveau projet Activex Dll. Le nom du projet est changé en fCom et le nom de la classe est changé en fZ2
Référence à la bibliothèque d'objets « Microsoft Active Server Pages Object ».
Créez deux événements de composant : OnStartPage et OnEndPage
Créez une référence à la classe ScriptingContent dans l'événement OnStartPage.
Instanciez la classe ScriptingContent.

Le code est le suivant :

code du programme
Option explicite
'Déclaration d'objet
Atténuer ma réponse en tant que réponse
Atténuer ma requête en tant que demande
Atténuer myApplication en tant qu'application
Dim myServer en tant que serveur
Atténuer ma session en tant que session
'Cet événement sera déclenché lors de la création du composant
Sous-public OnStartPage (myScriptingContent As ScriptingContext)
'Exécuter l'instanciation d'objet
Définir maRéponse = myScriptingContent.Response
Définir myRequest = myScriptingContent.Request
Définir monServeur = myScriptingContent.Server
Définir monApplication = myScriptingContent.Application
Définir maSession = myScriptingContent.Session
Fin du sous-marin
'Cet événement est déclenché lorsque le composant est détruit
Sous-public OnEndPage()
'Détruisez l'objet
Définir maRéponse = Rien
Définir maRequête = Rien
Définir mon serveur = Rien
Définir monApplication = Rien
Définir maSession = Rien
Fin du sous-marin
« Vous pouvez voir que la méthode d'écriture est la même après avoir déplacé ce qui a été écrit en asp vers vb.
Sous-public ShowCounter()
Dim intcounter aussi longtemps
monApplication.Lock
intcounter = monApplication("compteur")
compteur entier = compteur intérieur + 1
monApplication("compteur") = compteurint
monApplication.UnLock
maRéponse.Write CStr(intcounter)
Fin du sous-marin

Testez

Open Visual Interdev6.0 et générez un fichier asp

code de programme
<%@ Langage=VBScript %>
<HTML>
<CORPS>
<%
obj obscur
set obj=server.CreateObject("fCom.fZ2")
obj.ShowCounter()
%>
</CORPS>
</HTML>

Après avoir configuré le répertoire virtuel, vous devez placer le fichier global.asa dans le répertoire racine, exécuter ce fichier asp dans IE, actualiser la page et vous verrez un numéro changeant.
C'est tout pour l'utilisation de l'application.

Par rapport

au niveau d'entrée intermédiaire du composant Asp et à la troisième série de maîtrise,

Session, c'est beaucoup plus simple

. Ouvrez vb6 et créez un nouveau projet Activex Dll. Changez le nom du projet en fCom et le nom de la classe en fZ3
Référence à la bibliothèque d'objets « Microsoft Active Server Pages Object ».
Créez deux événements de composant : OnStartPage et OnEndPage
Créez une référence à la classe ScriptingContent dans l'événement OnStartPage.
Instanciez la classe ScriptingContent.

Le code est le suivant :

code de programme
Option explicite
'Déclaration d'objet
Atténuer ma réponse en tant que réponse
Atténuer ma requête en tant que demande
Atténuer myApplication en tant qu'application
Dim myServer en tant que serveur
Atténuer ma session en tant que session
'Cet événement sera déclenché lors de la création du composant
Sous-public OnStartPage (myScriptingContent As ScriptingContext)
'Exécuter l'instanciation d'objet
Définir maRéponse = myScriptingContent.Response
Définir myRequest = myScriptingContent.Request
Définir monServeur = myScriptingContent.Server
Définir monApplication = myScriptingContent.Application
Définir maSession = myScriptingContent.Session
End Sub

'Cet événement est déclenché lorsque le composant est détruit
Sous-public OnEndPage()
'Détruisez l'objet
Définir maRéponse = Rien
Définir maRequête = Rien
Définir mon serveur = Rien
Définir monApplication = Rien
Définir maSession = Rien
Fin du sous-marin
« Vous pouvez voir que la méthode d'écriture est la même après avoir déplacé ce qui a été écrit en asp vers vb.
'Obtenir toutes les variables et valeurs de session
Sous-ShowSession publique()
'Vous pouvez définir un délai d'attente de 20 minutes
maSession.Timeout = 20
Assombrir mon article
'Obtenir toutes les sessions
Pour chaque myitem dans mySession.Contents
myResponse.Write monélément & ": " & maSession.Contents(monélément)
maRéponse.Écrivez "<br>"
Suivant
Fin du sous-marin

Testez

open visual interdev6.0, générez un fichier asp pour configurer le répertoire virtuel, exécutez ce fichier asp dans IE, vous pouvez voir

le nom : tornado
âge: 26
Spécialité :

C'est tout pour l'utilisation du composant Session. Les autres utilisations de Session sont similaires.

Composant Asp entrée intermédiaire et série de maîtrise quatre,

nous apprenons à demander
Pour voir comment obtenir le contenu soumis par la page dans le composant

, ouvrez vb6 et créez un nouveau projet Activex Dll. Le nom du projet est changé en fCom et le nom de la classe est changé en fZ4
Référence à la bibliothèque d'objets « Microsoft Active Server Pages Object ».
Créez deux événements de composant : OnStartPage et OnEndPage
Créez une référence à la classe ScriptingContent dans l'événement OnStartPage.
Instanciez la classe ScriptingContent.

Le code est le suivant :

'Vous pouvez voir que la méthode d'écriture est la même après avoir déplacé ce qui a été écrit en asp vers vb.
Sous-public ShowRequest()
Assombrir mon article
'Possibilité de poster
Pour chaque myitem dans myRequest.Form
maResponse.Write monélément & ": " & maRequête.Form(monélément)
maRéponse.Écrivez "<br>"
Suivant
'Obtenir la méthode
Pour chaque myitem dans myRequest.QueryString
myResponse.Write mon article & ": " & myRequest.QueryString (mon article)
maRéponse.Écrivez "<br>"
Suivant
'Message unique
myResponse.Write "L'un des messages est " & " : " & myRequest("username")
maRéponse.Écrivez "<br>"
Fin du sous-marin

Testez

Open Visual Interdev6.0 et générez un

code de programme

de fichier fz41.asp

<%@ Langage=VBScript %>
<HTML>
<CORPS>
<form action="fz4_result.asp" method="post">
<INPUT id=text1 nom=nom d'utilisateur>
<INPUT id=text2 nom=âge>
<INPUT id=submit1 type=submit value=Submit name=submit>
</form>
</CORPS>
</HTML>

Vous devez également générer un

code de programme

de fichier fz4_result.asp soumis

<%@ Langage=VBScript %>
<HTML>
<CORPS>
<%
obj obscur
set obj=server.CreateObject("fCom.fZ4")
appelez obj.ShowRequest
%>
</CORPS>
</HTML>

De plus, nous devons également examiner la méthode de soumission, nous avons donc besoin d'un

code de programme

de fichier fz42.asp

<%@ Langage=VBScript %>
<HTML>
<CORPS>
<form action="fz4_result.asp?username='"& nom d'utilisateur &"'& age=""& âge &"'" method="get" id=form1 name=form1>
<INPUT id=text1 nom=nom d'utilisateur>
<INPUT id=text2 nom=âge>
<INPUT id=submit1 type=submit value=Submit name=submit>
</form>
</CORPS>
</HTML>

Configurez le répertoire virtuel et exécutez le fichier fc41.asp dans IE Après avoir entré le contenu, cliquez sur le bouton et vous verrez

le nom d'utilisateur : Tornado.
âge: 26
Soumettre : Soumettre
L'un des messages est : Tornado.

Exécutons le fichier fc42.asp dans IE. Après avoir entré le contenu, cliquez sur le bouton et vous pouvez voir

le nom d'utilisateur : Tornado.
âge: 26
Soumettre : Soumettre
L'un des messages est : Tornado

et la barre d'adresse devient
http://yang/xml/fz4_result.asp?username=%C1%FA%BE%ED%B7%E7&age=26&%CC%E1%BD%BB=Submit

À suivre

Série d'entrée intermédiaire et de maîtrise du composant Asp Partie 5

Jetons un coup d'œil à l'objet Response. En fait, nous avons utilisé la méthode Write de cet objet dans les didacticiels précédents.

Ici, nous utilisons l'objet Response pour définir des cookies.

Ouvrez vb6 et créez un nouveau projet Activex Dll. Changez le nom du projet en fCom et le nom de la classe en fZ5
Référence à la bibliothèque d'objets « Microsoft Active Server Pages Object ».
Créez deux événements de composant : OnStartPage et OnEndPage
Créez une référence à la classe ScriptingContent dans l'événement OnStartPage.
Instanciez la classe ScriptingContent.

Le code est le suivant :

'Cet événement sera déclenché lors de la création du composant
Sous-public OnStartPage (myScriptingContent As ScriptingContext)
'Exécuter l'instanciation d'objet
Définir maRéponse = myScriptingContent.Response
Définir myRequest = myScriptingContent.Request
Définir monServeur = myScriptingContent.Server
Définir monApplication = myScriptingContent.Application
Définir maSession = myScriptingContent.Session
End Sub

'Définir les cookies de la page et les récupérer du composant
Sous-public GetCookie()
Assombrir mon article
'Toutes les informations
Pour chaque myitem dans myRequest.Cookies
myResponse.Write mon article & ": " & myRequest.Cookies.Item (mon article)
maRéponse.Écrivez "<br>"
Suivant
'Message unique
myResponse.Write "où le nom d'utilisateur est " & " : " & myRequest.Cookies("username")
maRéponse.Écrivez "<br>"
myResponse.Write "où se situe l'âge de l'utilisateur" & ": " & myRequest.Cookies("age")
maRéponse.Écrivez "<br>"
End Sub

'Définissez les cookies dans le composant et récupérez-les dans la page
Sous-ensemble public SetCookie()
myResponse.Cookies("com_username") = "Tornade"
maRéponse.Cookies("com_age") = 26
maRéponse.Expires = #13/09/2004#
Fin du sous-marin

Compilez-le dans un fichier Dll et le système l’enregistrera automatiquement.
Sinon, enregistrez Regsvr32 manuellement f:testfcom.dll

pour tester

l'ouverture de Visual Interdev6.0, générez un fichier fz5.asp

et configurez le répertoire virtuel, exécutez le fichier fc5.asp dans IE, vous pouvez voir

la tornade
26
âge: 26
nom d'utilisateur : tornade
com_age : 26
com_username : Tornado où le nom d'utilisateur est : Tornado où l'âge de l'utilisateur est : 26

A suivre

Intermédiaire Introduction et maîtrise des composants Asp Série n°6

En tant qu'objet intégré d'Asp, nous découvrons enfin l'objet Serveur

. L'objet utilise davantage de codage HTML et de redirection et de transmission de pages Web.

Ouvrez vb6 et créez un nouveau projet Activex Dll. Le nom du projet est changé en fCom et le nom de la classe est changé en fZ6
Référence à la bibliothèque d'objets « Microsoft Active Server Pages Object ».
Créez deux événements de composant : OnStartPage et OnEndPage
Créez une référence à la classe ScriptingContent dans l'événement OnStartPage.
Instanciez la classe ScriptingContent.

Le code est le suivant :

-sub public ShowHtml (ByVal strHtml As String)
maRéponse.Write monServeur.HTMLEncode(strHtml)
Fin du sous

-sub public ShowUrl (ByVal strUrl As String)
maRéponse.Write monServeur.URLEncode(strUrl)
Fin du sous

-sub public ExecuteUrl()
monServeur.Transfer "fz5.asp"
Fin du sous-marin

Compilez-le dans un fichier Dll et le système l’enregistrera automatiquement.

Sinon, enregistrez manuellement Regsvr32 f:testfcom.dll

pour tester

l'ouverture de Visual Interdev6.0, générez un fichier fz6.asp

configurez le répertoire virtuel dans IE pour le voir

C1 %FA%BE%ED%B7%E7&age=26

Vous pouvez utiliser IE pour afficher le fichier source afin d'afficher l'encodage HTML.

Il s'agit d'une introduction temporaire des objets intégrés d'ASP, et nous continuerons à les étudier plus tard.

Vous pouvez également tirer des conclusions à partir d’un exemple et apprendre des propriétés et des méthodes qui n’ont pas été introduites.

Le composant Asp d'entrée intermédiaire et la série de maîtrise sept

démarrent les opérations de base de données.

Emballage des composants communs

1. Encapsulez les informations de connexion à la base de données.

1> Renvoie directement la chaîne de connexion à la base de données, telle que

le code du programme

dans le composant

Source de données de fonction publique () en tant que variante
datasource = "driver={serveur SQL};server=yang;uid=sa;pwd=; base de données=northwind"
Fonction de fin

asp appelant

le code du programme
set obj=server.CreateObject("webdb.getinfo")

Les défauts de

oconn=obj.datasource()

sont évidents dans le fichier asp, directement response.write oconn peut afficher la chaîne de connexion à la base de données, ce qui n'a pas l'effet escompté.

2> Renvoyer

le code du programme

objet adodb.connection

Fonction publique GetConn() en tant que ADODB.Connection
Définir conn = Nouveau ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=Northwind;Data Source=yang"
conn.Ouvrir
Définir GetConn = conn
Fonction de fin

Code du programme

appelant Asp

Faible requête de données
Définir DataQuery=Server.CreateObject("WebDbtest.GetInfomation")
set rs=server.createobject("adodb.recordset")
sql="sélectionner * parmi les employés"
Rs.open sql,DataQuery.getconn,1,3
réponse.Écrivez Rs("LastName")
Response.write DataQuery.getconn.ConnectionString
set Rs=nothing

semble bon, mais Response.write DataQuery.getconn.ConnectionString affichera toujours la chaîne de connexion à la base de données. Vous pouvez la tester.

2. Pour encapsuler des composants dans un jeu d'enregistrements, vous pouvez lire ce que j'ai écrit il y a quelque temps : http://blog.csdn.net/online/archive/2003/12/11/7764.aspx
Le mauvais côté de ce code est que la connexion à la base de données est jugée sur la page. Une fois la connexion réussie, les données sont accessibles. Personnellement, je pense que le meilleur moyen est de

les encapsuler dans un jeu d'enregistrements et de se connecter à la base de données. Méthode du composant. Une fois l'opération terminée, fermez-la à

temps et essayez de générer du code HTML dans le composant pour tout encapsuler. Comme la méthode suivante

au lieu d’une encapsulation partielle.

La série d'entrée intermédiaire et de maîtrise des composants Asp n° 8

a été assez chargée pendant cette période Haha, aujourd'hui, nous allons jeter un œil à un exemple complet d'encapsulation de données et de pagination

Open vb6 et créer un nouveau projet Activex Dll. Le nom du projet est changé en fCom et le nom de la classe est changé en fZ8
Référence à la bibliothèque d'objets « Microsoft Active Server Pages Object », « Microsoft Activex Data Object 2.7 Library ».

Créez deux événements de composant : OnStartPage et OnEndPage
Créez une référence à la classe ScriptingContent dans l'événement OnStartPage.
Instanciez la classe ScriptingContent.

Le code est le suivant :

code du programme
Option explicite
'************************************************ *
'Auteur : Tornade
'Fonction : Composant simple personnalisable et entièrement encapsulé
'Heure : 2005-01-01
'************************************************ *

'Déclaration d'objet
Atténuer ma réponse en tant que réponse
Atténuer MyRequest en tant que demande
Atténuer myApplication en tant qu'application
Dim myServer en tant que serveur
Dim mySession As Session

'Variables privées
mPageSize privée aussi longtemps
MstrSql privé en tant que chaîne
'Cet événement sera déclenché lors de la création du composant
Sous-public OnStartPage (myScriptingContent As ScriptingContext)
'Exécuter l'instanciation d'objet
Définir MyResponse = myScriptingContent.Response
Définir MyRequest = myScriptingContent.Request
Définir monServeur = myScriptingContent.Server
Définir monApplication = myScriptingContent.Application
Définir maSession = myScriptingContent.Session
End Sub

'Cet événement est déclenché lorsque le composant est détruit
Sous-public OnEndPage()
'Détruisez l'objet
Définir MyResponse = Rien
Définir MyRequest = Rien
Définir mon serveur = Rien
Définir monApplication = Rien
Définir maSession = Rien
Fin du sous

-afficher le tableau
Fonction publique ShowTable()
Dim conn comme nouveau ADODB.Connection
Dim rs comme nouveau ADODB.Recordset
Dim i comme entier
Dim j comme entier
Dim intPage en tant qu'entier
Dim intPageCount en tant qu'entier
Dim strScriptName As String
Dim intPos comme entier
Dim intFieldCount comme entier

'Obtenez le chemin
strScriptName = MyRequest.ServerVariables("Script_Name")
intPos = InStrRev(strScriptName, "/")
Si intPos <> 0 Alors
strScriptName = Milieu (strScriptName, intPos + 1)
Fin si
Si IsEmpty(MyRequest("page")) Alors
intPage = 1
Autre
intPage = CInt(MaRequête("page"))
Fin si
En cas d'erreur, allez à l'erreur
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=localhost"
rs.Open mstrSql, conn, adOpenStatic, adLockReadOnly
'Obtenir le nombre d'enregistrements
intFieldCount = rs.Fields.Count
'Tableau de sortie
MyResponse.Write "<table border=1 cellpacing=0 cellpadding=2>"
Si ce n'est pas rs.EOF alors
rs.PageSize = mPageSize
rs.AbsolutePage = intPage
'Obtenir le numéro de page
intPageCount = rs.PageCount
'Gérer la pagination
Si intPage < 1 Alors intPage = 1
Si intPage > intPageCount Alors intPage = intPageCount
'En-tête de sortie
MaRéponse.Écrivez "<tr>"
Pour i = 0 À intFieldCount - 1
MyResponse.Write "<th>" & rs(i).Name & "</th>"
Suivant
MaRéponse.Écrivez "</tr>"
'Contenu de sortie
Pour i = 1 à mPageSize
Si rs.EOF Alors
Quitter pour
Fin si
MaRéponse.Écrivez "<tr>"
Pour j = 0 À intFieldCount - 1
MyResponse.Write "<td>" & rs.Fields(j).Value & "</td>"
Suivant
MaRéponse.Écrivez "</tr>"
rs.MoveNext
Suivant
'Pagage de sortie
MaRéponse.Écrivez "<tr>"
Si intPage <> 1 Alors
MyResponse.Write "<a href=" & strScriptName & "?page=1>[Première page]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage - 1 & " >[Page précédente]</a>"
Fin si

Si intPage <> intPageCount Alors
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage + 1 & ">[page suivante]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPageCount & ">[dernière page]</a>"
Fin si

MyResponse.Write "Page :<FONT COLOR='Red'>" & intPage & "/ " & intPageCount & "</FONT>"
MaRéponse.Écrivez "</tr>"
Fin si

MaRéponse.Écrire "</table>"

'Libérer des ressources
Si ce n'est pas rs, ce n'est rien alors
Si rs.State = 1 Alors
rs.Fermer
Fin si
Setrs=Rien
Fin si
Si ce n'est pas conn, ce n'est rien alors
Si conn.State = 1 Alors
conn.Fermer
Fin si
Définir la connexion = Rien
Fin si
Erreur de fonction

de sortie :
MyResponse.Write err.Number & err.Description
Si ce n'est pas rs, ce n'est rien alors
Si rs.State = 1 Alors
rs.Fermer
Fin si
Setrs=Rien
Fin si
Si ce n'est pas conn, ce n'est rien alors
Si conn.State = 1 Alors
conn.Fermer
Fin si
Définir la connexion = Rien
Fin si
Fonction de fin
'Définir les attributs
Propriété publique Obtenir ShowPageSize() comme variante
ShowPageSize = mPageSize
Propriété de fin

Propriété publique Let ShowPageSize (ByVal vNewValue As Variant)
mPageSize = vNouvelleValeur
Propriété de fin Propriété

publique Obtenir strSQL() comme variante
strSQL = mstrSql
Propriété de fin Propriété

publique Let strSQL (ByVal vNewValue As Variant)
mstrSql = vNouvelleValeur
Propriété de fin

Compilez-le dans un fichier Dll et le système l’enregistrera automatiquement.
Sinon, enregistrez manuellement Regsvr32 f:testfcom.dll

pour tester

l'ouverture de Visual Interdev6.0 et générer un fichier fz8.asp

code de programme
<%@ Langage=VBScript %>
<HTML>
<CORPS>
<%
obj obscur
set obj=server.CreateObject("fcom.fz8")
'Le nombre d'enregistrements affichés sur chaque page
obj.ShowPageSize=10
'Instruction SQL affichée
obj.strSQL="sélectionner l'ID client, le nom de l'entreprise, le nom du contact, le titre du contact, l'adresse des clients"
obj.ShowTable()
%>
</CORPS>
</HTML>