<%@ Langue=vbscript %>
<%
Option explicite
Dim strSubmit 'La valeur utilisée pour enregistrer le bouton de soumission dans le formulaire
Dim strPrinterPath 'La valeur du chemin de l'imprimante réseau enregistrée dans le formulaire
Dim strUsername 'La valeur du nom d'utilisateur dans le formulaire
Dim strPassword 'Valeur du mot de passe dans le formulaire
Dim strMessage 'Valeur du contenu d'impression du formulaire
Dim objFS 'Objet système de fichiers dans VBScript
Dim objWS.NET 'Objets réseau dans WSH
Dim objPrinter 'Objet d'impression
strSubmit = Request.Form (Soumettre)
%>
<HTML>
<TÊTE>
<META NAME=GENERATOR Content=microsoft Visual Studio 6.0>
</HEAD>
<CORPS>
<%
Si strSubmit = Alors
%>
Noter que:
Puisqu'il s'agit d'une démonstration, le numéro de compte et le mot de passe liés à NT sont transmis en ASP par des moyens non cryptés.
Dans les applications réelles, le processus de connexion doit être géré de manière sécurisée.
<FORM action=ASPPrint.asp method=POST id=form name=form>
<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD ALIGN=right NOWRAP>Chemin de l'imprimante réseau :</TD>
<TD ALIGN=left NOWRAP><INPUT type=text id=printerpath name=printerpath
value=< domaine >< Imprimante >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Connexion au compte :</TD>
<TD ALIGN=left NOWRAP><INPUT type=text id=nom d'utilisateur name=nom d'utilisateur
value=<% = strUsername %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Mot de passe de connexion :</TD>
<TD ALIGN=gauche NOWRAP><INPUT type=mot de passe id=mot de passe
nom=mot de passe></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Veuillez saisir le texte que vous souhaitez imprimer :</TD>
<TD ALIGN=left NOWRAP><TEXTAREA rows=2 cols=20 id=message
nom=message></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP> </TD>
<TD ALIGN=left NOWRAP><INPUT type=submit value=Soumettre
id=soumettre nom=soumettre></TD>
</TR>
</TABLE>
</FORM>
Une fois les informations ci-dessus soumises, vous pouvez imprimer selon le code suivant.
<%
Autre
'Obtenir les informations de réponse à partir du formulaire.
strPrinterPath = Request.Form (chemin d'impression)
strUsername = Request.Form (nom d'utilisateur)
strPassword = Request.Form (mot de passe)
strMessage = Requête.Form(message)
Nous allons maintenant utiliser l'objet VBScript FileSystem et l'objet WSH Network.
donnez-nous les méthodes dont nous avons besoin pour ouvrir une connexion à une imprimante, et le FileSystemObject nous permettra de diffuser notre
sortie vers l'imprimante. Nous créons ces objets dans l'exemple de code suivant :
Définir objFS = CreateObject (Scripting.FileSystemObject)
Définir objWSHNet = CreateObject (WScript.Network)
' Utiliser WSH pour vous connecter à une imprimante réseau
objWSHNet.AddPrinterConnection LPT1, strPrinterPath, False, strUsername, strPassword
' Utiliser l'objet système de fichiers pour utiliser le périphérique d'impression comme fichier
Définir objPrinter = objFS.CreateTextFile(LPT1 :, True)
'Envoyer du texte au périphérique d'impression
objPrinter.Write(strMessage)
'Fermez l'objet du périphérique d'impression et effectuez le traitement des erreurs.
En cas d'erreur, reprendre ensuite
objPrinter.Fermer
' Si une erreur se produit, fermez la connexion d'impression et affichez le message d'erreur.
Si erreur alors
Response.Write (Erreur # & CStr (Err.Number) & & Err.Description)
Err.Effacer
Autre
' L'opération est réussie et un message de confirmation est émis.
Réponse.Write(<CENTRE>)
Réponse.Write(<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Imprimer le message envoyé :</B></TD>)
Réponse.Write(<TD ALIGN=LEFT> & strMessage & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Chemin de l'imprimante réseau :</B></TD>)
Réponse.Write(<TD ALIGN=LEFT> & strPrinterPath & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Compte de connexion :</B></TD>)
Réponse.Write(<TD ALIGN=LEFT> & strUsername & </TD></TR>)
Réponse.Write(</TABLE>)
Réponse.Write(</CENTER>)
Fin si
'Annuler la connexion d'impression
objWSHNet.RemovePrinterConnection LPT1 :
Définir objWSHNet = Rien
Définir objFS = Rien
Définir objPrinter = Rien
Fin si
%>
</CORPS>
</HTML>