Recomendado: Use ASP para criar pesquisa no local Se você tem um site enorme e muito conteúdo, geralmente é difícil para os visitantes encontrarem o que precisam. Neste momento, você precisa de uma pesquisa de site para ajudar os visitantes a encontrar as informações que estão procurando mais rápido! Agora você pode implementar facilmente essa função com a ASP, sem mencionar que existem tantos sites que agora suportam ASP. Você pode usar este mecanismo de pesquisa para pesquisar em qualquer sua página inicial
< %@ Idioma = vbscript %>
<%
Opção explícita
Formulário Strsubmit 'Dim usado para salvar o valor do botão Enviar
Dim StrPrinterPath 'salve o valor do caminho da impressora de rede em forma
Dim Strusername 'valor do nome de usuário em forma
Dim Strpassword 'o valor da senha no formulário
O formulário Dim Strmessage imprime o valor do conteúdo
Objetos do sistema de arquivos de Dim Objfs no VBScript
Objetos de rede da Dim Objwshnet 'em WSH
Objeto de impressão dim objprinter '
strsubmit = request.form (envio)
%>
<html>
<head>
<Meta nome = conteúdo do gerador = Microsoft Visual Studio 6.0>
</head>
<Body>
<%
Se strsubmit = então
%>
Observe que:
Como essa é uma demonstração, a conta e a senha sobre o NT são passadas no ASP usando meios não criptografados.
O processo de login deve ser tratado com segurança em uso real.
<Forma de ação = aspprint.asp método = post id = nome do formulário = formulário>
<Largura da tabela = 100% alinhado = borda central = 0 CellSpacacing = 1 CellPadding = 1>
<tr>
<Td align = agora nowrap> Caminho da impressora de rede: </td>
<Td align = esquerda Nowrap> <tipo de entrada = iD de texto = nome do impressor = impressor PrinterPath
Valor = // <Domain>/<Prenster>> </td>
</tr>
<tr>
<Td align = agora na conta de login: </td>
<Td align = esquerda Nowrap> <tipo de entrada = iD de texto = nome de usuário Nome = Nome de usuário
Valor = < % = Strusename % >> </td>
</tr>
<tr>
<Td align = agora agorap> Login Senha: </td>
<Td align = esquerda Nowrap> <type de entrada = senha id = senha
nome = senha> </td>
</tr>
<tr>
<Td align = agora no agora, por favor, insira o texto que deseja imprimir: </td>
<Td align = esquerda Nowrap> <textarea linhas = 2 cols = 20 id = mensagem
Nome = Mensagem> </sexttarea> </td>
</tr>
<tr>
<Td align = agora agora </td>
<Td align = esquerda Nowrap> <type de entrada = submeter valor = submeter
id = enviar nome = enviar> </td>
</tr>
</Tabela>
</morm>
Quando as informações acima são enviadas, você pode imprimi -las de acordo com o código a seguir.
<%
Outro
'Obtenha informações de resposta do formulário.
strPrinterPath = request.form (PrinterPath)
strusename = request.form (nome de usuário)
strpassword = request.form (senha)
strMessage = request.form (mensagem)
Agora usaremos o objeto VBScript FileSystemObject e o objeto WSH Network. O objeto de rede irá
Dê -nos os métodos de que precisamos para abrir uma conexão da impressora, e o arquivo de sistema de arquivo nos permitirá transmitir nosso
saída para a impressora. Criamos esses objetos no seguinte exemplo de código:
Set objfs = createObject (script.filesystemoBject)
Definir objwshNet = CreateObject (wscript.network)
'Conecte -se a uma impressora de rede usando WSH
objwshnet.addprinterConnection lpt1, strprinterpath, false, strusername, strpassword
'Use o objeto do sistema de arquivos para usar o dispositivo de impressão como um arquivo
Set objprinter = objfs.createTextFile (lpt1:, verdadeiro)
'Envie o texto para o dispositivo de impressão
objprinter.write (strmessage)
'Feche o objeto de dispositivo de impressão e execute o processamento de interceptação de erros
Em erro de erro em seguida
objprinter.close
'Se ocorrer um erro, feche a conexão de impressão e produza a mensagem de erro
Se errar então
Response.Write (Erro # & CSTR (Err.Number) & & Err.Description)
Err.clear
Outro
'A operação é bem -sucedida, informações de confirmação de saída
Response.Write (<Center>)
Response.write (<largura da tabela = 100% alinhamento = borda central = 0 CellSpacacing = 1 CellPadding = 1>)
Response.write (<tr> <td align = right> <b> Mensagem de impressão Envie: </b> </td>)
Response.write (<td align = esquerda> & strmessage & </td> </tr>)
Response.Write (<tr> <td align = direita> <b> Caminho da impressora de rede: </b> </td>)
Response.write (<td align = esquerda> & strPrinterPath & </td> </tr>)
Response.write (<tr> <td align = direita> <b> Conta de login: </b> </td>)
Response.write (<td align = esquerda> & strusename & </td> </tr>)
Response.write (</ tabela>)
Response.write (</fente>)
Final se
'Cancelar a conexão de impressão
objwshnet.removePrinterConnection lpt1:
Defina objwshnet = nada
Defina objfs = nada
Definir objprinter = nada
Final se
%>
</Body>
</html>
Compartilhar: ASP integra uma classe SQL Ao escrever um programa de banco de dados ASP, geralmente usamos as instruções SQL e, ao adicionar e atualizar dados, geralmente usamos o seguinte método: Insira na mensagem (INCECT, remetente, título, conteúdo, envio, sinalizador, sinalize) valores ('INCTECT (i)', 'MemberName', 'Title', 'Mensagem', agora (), 0,1) quando há muitos fiel