Il y a quelques jours, mon frère aîné m'a dit que l'utilisation d'ASP est vraiment gênante, l'environnement de compilation est vraiment mauvais.
Dans le programme, pour cela, j'ai proposé une solution ici. Utilisez VB pour remplacer tous les objets d'ASP et écrivez des programmes ASP purs dans VB.
Tout le monde devrait savoir qu'en fait, de nombreux composants dans ASP sont écrits en VB, mais ce qui rend tout le monde très gênant, c'est comment utiliser ASP inhérent.
Ce composant, tel que la réponse, la demande, l'application, la session, etc. Si je peux utiliser ces composants directement dans VB, alors je peux
Assez pour utiliser VB pour écrire ASP pour utiliser le programme.
Ce qui suit est une étape détaillée:
1 et 1 Créez une nouvelle DLL ActiveX dans VB.
2 Vous devez maintenant faire référence à deux DLL dans VB.
La première consiste à citer la DLL du moteur ASP.
Sélectionnez la commande project / références dans le menu et citez la bibliothèque d'objets Microsoft Active Server Pages ".
Si vous ne l'avez pas trouvé, vous pouvez trouver ce fichier ASP.dll% SystemDirectory% / System32 / INETSVR dans le répertoire suivant
Cliquez sur le bouton «Parcourir ...» pour importer cette bibliothèque de connexion dynamique
La seconde consiste à citer l'objet Microsoft Transaction Server (MTS).
«Microsoft Transaction Server Type Library».
Si vous ne l'avez pas trouvé, vous pouvez trouver ce fichier mtxas.dll dans le répertoire suivant
% SystemDirectory% / System32 / MTS / 3. Eh bien, toutes les préparatifs sont terminés, comment rédiger le code ci-dessous, je pense que tout le monde peut comprendre
de.
Ceci est le code du fichier:
option explicite
dim m_objresponse comme réponse
dim m_objrequest comme demande
Dim m_objserver comme serveur
dim m_objapplication comme application
Dim M_OBjSession comme session
Private Sub class_Initialize ()
Dim objContext comme objetContext
définir objContext = getObjectContext ()
Définir m_objResponse = objContext (Response)
Définir m_objrequest = objContext (demande)
Définir m_objserver = objContext (serveur)
set m_objapplication = objContext (application)
Définir m_objSession = objContext (session)
Sub-Sub
Public subsptest ()
M_OBJRESPONSE.WRITE ADIEL À LA CARTEUR D'ÉCRIT, Utilisez l'environnement VB pour écrire le programme ASP!
Sub-Sub
Collez le code ci-dessus dans votre programme, puis compilez ce projet vers DLL. Utilisation finale
RegSVR32 ComponentName.dll a enregistré cette DLL en IIS.
Ce qui suit est la méthode d'utilisation de ce composant dans le fichier ASP:
<%
set object = server.createObject (yourprjName.AspTest)
objtest.asptest
définir objet = rien
%>
Eh bien, j'espère que ma méthode pourra résoudre la détresse du frère aîné, haha.