Recomendado: use ASP para crear búsqueda en el sitio Si tiene un gran sitio web y mucho contenido, a menudo es difícil para los visitantes encontrar lo que necesitan. ¡En este momento, necesita una búsqueda en el sitio web para ayudar a los visitantes a encontrar la información que buscan más rápido! Ahora puede implementar fácilmente esta función con ASP, sin mencionar que hay tantos sitios que admiten ASP ahora. Puede usar este motor de búsqueda para buscar cualquiera de su página de inicio.
< %@ Idioma = vBscript %>
<%
Opción explícita
Dim strsubmit 'formulario utilizado para guardar el valor del botón Enviar
Dim strprinterpath 'Guardar el valor de la ruta de la impresora de red en el formulario
Dim strusername 'valor del nombre de usuario en forma
Dim strPassword 'El valor de la contraseña en el formulario
El formulario Dim strmessage 'imprime el valor del contenido
Dim OBJFS 'File System Objects en VBScript
Dim objwshnet 'objetos de red de red en WSH
Objprinter 'Dim Object de impresión
strsubmit = request.form (enviar)
%>
<html>
<Evista>
<Meta name = generador content = Microsoft Visual Studio 6.0>
</ablo>
<Body>
<%
Si strsubmit = entonces
%>
Tenga en cuenta que:
Dado que esta es una demostración, la cuenta y la contraseña sobre NT se pasan en el ASP utilizando medios sin cifrar.
El proceso de inicio de sesión debe manejarse de manera segura en uso real.
<Form Action = AspPrint.asp Method = Post id = Form Name = Form>
<Ancho de tabla = 100% align = border central = 0 CellSpacing = 1 CellPadding = 1>
<tr>
<Td align = nowrap> ruta de impresora de red: </td>
<Td align = left nowrap> <input type = text id = imprinterpath name = printerpath
valor = // <domain>/<printer>> </td>
</tr>
<tr>
<Td align = ahora nowrap> cuenta de inicio de sesión: </td>
<Td align = left nowrap> <input type = text id = username name = username
valor = < % = strusername % >> </td>
</tr>
<tr>
<Td align = ahora nowrap> contraseña de inicio de sesión: </td>
<Td align = left nowrap> <input type = contraseña id = contraseña
nombre = contraseña> </td>
</tr>
<tr>
<Td align = en ahora rape> Ingrese el texto que desea imprimir: </td>
<Td align = left nowrap> <textarea shows = 2 cols = 20 id = mensaje
name = Message> </textarea> </td>
</tr>
<tr>
<Td align = ahora nowrap> </td>
<Td align = left nowrap> <input type = enviar value = enviar
id = enviar nombre = enviar> </td>
</tr>
</table>
</form>
Cuando se envía la información anterior, puede imprimirla de acuerdo con el siguiente código.
<%
Demás
'Obtenga información de respuesta del formulario.
strprinterpath = request.form (PrinterPath)
strusername = request.form (nombre de usuario)
strpassword = request.form (contraseña)
strmessage = request.form (mensaje)
Ahora usaremos el objeto VBScript FileSystemObject y el objeto WSH Network. El objeto de red
Danos los métodos que necesitamos para abrir una conexión de impresora, y el sistema de archivos de SystemObject nos permitirá transmitir nuestro
Salida a la impresora. Creamos estos objetos en el siguiente ejemplo de código:
Establecer objfs = createObject (scripting.filesystemObject)
Establecer objwshnet = createObject (wscript.network)
'Conéctese a una impresora de red usando WSH
objwshnet.addprinterconnection lpt1, strprinterpath, false, strusername, strassword
'Use el objeto del sistema de archivos para usar el dispositivo de impresión como un archivo
Establecer objprinter = objfs.createTextFile (lpt1:, true)
'Enviar texto al dispositivo de impresión
objprinter.write (strmessage)
'Cierre el objeto del dispositivo de impresión y realice el procesamiento de trampa de error
En el currículum de error siguiente
objprinter.clar
'Si se produce un error, cierre la conexión de impresión y envíe el mensaje de error
Si err entonces
Response.Write (Error # & cstr (err.number) & & err.description)
Err.Clear
Demás
'La operación es exitosa y información de confirmación de salida
Response.Write (<Center>)
Response.write (<worth width = 100% align = border central = 0 Cellspacing = 1 CellPadding = 1>)
Response.write (<tr> <td align = right> <b> Imprimir mensaje Enviar: </b> </td>)
Response.write (<td align = izquierda> & strmessage & </td> </tr>)
Response.Write (<tr> <td align = right> <b> ruta de impresora de red: </b> </td>)
Response.Write (<td align = left> & strprinterpath & </td> </tr>)
Response.Write (<tr> <td align = right> <b> cuenta de inicio de sesión: </b> </td>)
Response.Write (<td align = izquierda> & strusername & </td> </tr>)
Response.write (</table>)
Response.write (</center>)
Final si
'Cancelar la conexión de impresión
objwshnet.removePrinterConnection lpt1:
Establecer objwshnet = nada
Establecer objfs = nada
Establecer objprinter = nada
Final si
%>
</body>
</Html>
Compartir: ASP integra una clase de declaración SQL Al escribir un programa de base de datos ASP, generalmente usamos las declaraciones SQL, y al agregar y actualizar datos, generalmente usamos el siguiente método: insertar en el mensaje (Incept, remitente, título, contenido, TIME, SendEns, Flag, Issend) Valores ('Incept (i)', 'MemberName', 'Title', 'Message', Now (), 0,1) Cuando hay muchos campos