<%@ Language=vbscript %>
<%
Option explizit
Dim strSubmit 'Der Wert, der zum Speichern der Senden-Schaltfläche im Formular verwendet wird
Dim strPrinterPath 'Der Wert des im Formular gespeicherten Netzwerkdruckerpfads
Dim strUsername 'Der Wert des Benutzernamens im Formular
Dim strPassword 'Wert des Passworts im Formular
Dim strMessage 'Druckinhaltswert bilden
Dim objFS 'Dateisystemobjekt in VBScript
Dim objWS.NET 'Netzwerkobjekte in WSH
Dim objPrinter 'Objekt drucken
strSubmit = Request.Form(Submit)
%>
<HTML>
<KOPF>
<META NAME=GENERATOR Content=microsoft Visual Studio 6.0>
</HEAD>
<KÖRPER>
<%
Wenn strSubmit = Dann
%>
Beachten Sie, dass:
Da es sich um eine Demonstration handelt, werden die NT-Kontonummer und das Kennwort unverschlüsselt in ASP übertragen.
In realen Anwendungen sollte der Anmeldevorgang sicher abgewickelt werden.
<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>Netzwerkdruckerpfad:</TD>
<TD ALIGN=left NOWRAP><INPUT type=text id=printerpath name=printerpath
value=< Domäne >< Drucker >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Anmeldekonto:</TD>
<TD ALIGN=left NOWRAP><INPUT type=text id=username name=username
value=<% = strUsername %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Login-Passwort:</TD>
<TD ALIGN=left NOWRAP><INPUT type=password id=password
name=passwort></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Bitte geben Sie den Text ein, den Sie drucken möchten:</TD>
<TD ALIGN=left NOWRAP><TEXTAREA rows=2 cols=20 id=message
name=Nachricht></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP> </TD>
<TD ALIGN=left NOWRAP><INPUT type=submit value=Submit
id=submit name=submit></TD>
</TR>
</TABLE>
</FORM>
Nachdem die oben genannten Informationen übermittelt wurden, können Sie gemäß dem folgenden Code drucken.
<%
Anders
' Antwortinformationen vom Formular abrufen.
strPrinterPath = Request.Form(Druckerpfad)
strUsername = Request.Form(Benutzername)
strPassword = Request.Form(Passwort)
strMessage = Request.Form(Nachricht)
Wir verwenden nun das VBScript-FileSystemobject-Objekt und das WSH-Network-Objekt
Geben Sie uns die Methoden, die wir zum Öffnen einer Druckerverbindung benötigen, und das FileSystemObject ermöglicht uns das Streamen unserer
Ausgabe an den Drucker. Diese Objekte erstellen wir im folgenden Codebeispiel:
Setze objFS = CreateObject(Scripting.FileSystemObject)
Setze objWSHNet = CreateObject(WScript.Network)
' Verwenden Sie WSH, um eine Verbindung zu einem Netzwerkdrucker herzustellen
objWSHNet.AddPrinterConnection LPT1, strPrinterPath, False, strUsername, strPassword
' Verwenden Sie das Dateisystemobjekt, um das Druckgerät als Datei zu verwenden
Setze objPrinter = objFS.CreateTextFile(LPT1:, True)
' Text an das Druckgerät senden
objPrinter.Write(strMessage)
„Schließen Sie das Druckgeräteobjekt und führen Sie eine Fehlerfallenverarbeitung durch.“
Bei Fehler Weiter fortsetzen
objPrinter.Close
' Wenn ein Fehler auftritt, schließen Sie die Druckverbindung und geben Sie die Fehlermeldung aus
Wenn Sie sich irren, dann
Response.Write (Fehlernummer & CStr(Err.Number) & & Err.Description)
Err.Clear
Anders
' Der Vorgang ist erfolgreich und es wird eine Bestätigungsmeldung ausgegeben.
Response.Write(<CENTER>)
Response.Write(<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Gesendete Nachricht drucken:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strMessage & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Netzwerkdruckerpfad:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strPrinterPath & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Anmeldekonto:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strUsername & </TD></TR>)
Response.Write(</TABLE>)
Response.Write(</CENTER>)
Ende wenn
'Brechen Sie die Druckverbindung ab
objWSHNet.RemovePrinterConnection LPT1:
Setze objWSHNet = Nothing
Setze objFS = Nothing
Setze objPrinter = Nothing
Ende wenn
%>
</BODY>
</HTML>