<%@ Idioma=vbscript %>
<%
Opção Explícita
Dim strSubmit 'O valor usado para salvar o botão de envio no formulário
Dim strPrinterPath 'O valor do caminho da impressora de rede salvo no formulário
Dim strUsername 'O valor do nome de usuário no formulário
Dim strPassword 'Valor da senha no formulário
Dim strMessage 'Valor do conteúdo de impressão do formulário
Dim objFS 'Objeto do sistema de arquivos em VBScript
Dim objWS.NET 'Objetos de rede no WSH
Dim objPrinter 'Imprimir objeto
strSubmit = Request.Form(Enviar)
%>
<HTML>
<CABEÇA>
<NOME DA META=Conteúdo do GERADOR=microsoft Visual Studio 6.0>
</HEAD>
<CORPO>
<%
Se strSubmit = Então
%>
Observe que:
Por se tratar de uma demonstração, o número da conta e a senha relacionados ao NT são transmitidos em ASP por meios não criptografados.
Em aplicações reais, o processo de login deve ser realizado de forma segura.
<FORM action=ASPPrint.asp method=POST id=form name=form>
<LARGURA DA TABELA=100% ALIGN=centro BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD ALIGN=right NOWRAP>Caminho da impressora de rede:</TD>
<TD ALIGN=left NOWRAP><INPUT type=text id=printerpath name=printerpath
valor=< domínio >< Impressora >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Conta de login:</TD>
<TD ALIGN=esquerda NOWRAP><INPUT tipo=texto id=nome de usuário nome=nome de usuário
valor=<% = strNome de usuário %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Senha de login:</TD>
<TD ALIGN=esquerda NOWRAP><INPUT tipo=senha id=senha
nome=senha></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Por favor, insira o texto que deseja imprimir:</TD>
<TD ALIGN=esquerda NOWRAP><TEXTAREA linhas=2 colunas=20 id=mensagem
nome=mensagem></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=direita NOWRAP> </TD>
<TD ALIGN=left NOWRAP><INPUT type=submit value=Enviar
id=enviar nome=enviar></TD>
</TR>
</TABELA>
</FORM>
Após o envio das informações acima, você pode imprimir de acordo com o código a seguir.
<%
Outro
'Obtém informações de resposta do formulário.
strPrinterPath = Request.Form (caminho da impressora)
strUsername = Request.Form(nome de usuário)
strSenha = Solicitação.Form(senha)
strMessage = Request.Form(mensagem)
Agora usaremos o objeto VBScript FileSystemobject e o objeto WSH Network.
forneça os métodos necessários para abrir uma conexão de impressora, e o FileSystemObject nos permitirá transmitir nosso
saída para a impressora Criamos esses objetos no exemplo de código a seguir:
Definir objFS = CreateObject(Scripting.FileSystemObject)
Definir objWSHNet = CreateObject (WScript.Network)
'Usa WSH para conectar a uma impressora de rede
objWSHNet.AddPrinterConnection LPT1, strPrinterPath, False, strUsername, strPassword
'Use o objeto do sistema de arquivos para usar o dispositivo de impressão como um arquivo
Definir objPrinter = objFS.CreateTextFile(LPT1:, True)
' Envia texto para o dispositivo de impressão
objPrinter.Write(strMessage)
'Fecha o objeto do dispositivo de impressão e executa o processamento de interceptação de erros
Em caso de erro, retomar o próximo
objPrinter.Fechar
'Se ocorrer um erro, feche a conexão de impressão e emita a mensagem de erro
Se errar então
Response.Write (Erro # & CStr (Err.Number) & & Err.Description)
Err.Limpar
Outro
'A operação foi bem sucedida e uma mensagem de confirmação é emitida.
Response.Write(<CENTRO>)
Response.Write(<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Imprimir mensagem enviada:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strMessage & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Caminho da impressora de rede:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strPrinterPath & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Conta de login:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strNome de usuário & </TD></TR>)
Resposta.Write(</TABLE>)
Resposta.Write(</CENTER>)
Terminar se
'Cancela a conexão de impressão
objWSHNet.RemovePrinterConnection LPT1:
Definir objWSHNet = Nada
Definir objFS = Nada
Definir objPrinter = Nada
Terminar se
%>
</BODY>
</HTML>