Recommandé: utilisez ASP pour créer une recherche en site Si vous avez un énorme site Web et beaucoup de contenu, il est souvent difficile pour les visiteurs de trouver ce dont ils ont besoin. Pour le moment, vous avez besoin d'une recherche de site Web pour aider les visiteurs à trouver les informations qu'ils recherchent plus rapidement! Vous pouvez maintenant facilement implémenter cette fonction avec ASP, sans parler qu'il y a tellement de sites qui prennent en charge ASP maintenant. Vous pouvez utiliser ce moteur de recherche pour rechercher l'une de votre page d'accueil
<% @ Language = vbscript%>
<%
Option explicite
Formulaire Dim StrSubmit 'utilisé pour enregistrer la valeur du bouton Soumettre
Dim strPrinterpath 'Enregistrer la valeur du chemin d'imprimante réseau sous forme
Dim Struername 'Valeur du nom d'utilisateur sous forme
Dim strpassword 'la valeur du mot de passe sous forme
Le formulaire Dim StrMessage 'imprime la valeur du contenu
Objets du système de fichiers DIM OBJFS dans VBScript
DIM OBJWSHNET 'Network Objets Net dans WSH
Objet imprimé DIM Objprinter
strSubmit = request.form (soumis)
%>
<html>
<adal>
<Meta name = Generator Content = Microsoft Visual Studio 6.0>
</ Head>
<body>
<%
Si strSubmit = alors
%>
Noter que:
Puisqu'il s'agit d'une démonstration, le compte et le mot de passe sur NT sont passés dans l'ASP en utilisant des moyens non cryptés.
Le processus de connexion doit être géré en toute sécurité dans une utilisation réelle.
<Formulaire Action = aspprint.asp Method = Post id = form name = form>
<Largeur du tableau = 100% Align = Centre Border = 0 CELLSPACINE = 1 CELLPADDING = 1>
<tr>
<Td align = tout de suite le chemin de l'imprimante réseau: </td>
<Td align = Left Nowrap> <Type d'entrée = Text ID = PrinterPath Name = PrinerPath
valeur = // <omain> / <imprimante >> </td>
</tr>
<tr>
<Td align = tout de suite> Compte de connexion: </td>
<Td align = Left Nowrap> <Type d'entrée = Text ID = nom d'utilisateur = nom d'utilisateur
Value = <% = StrUsername% >> </td>
</tr>
<tr>
<Td align = tout de suite> Mot de passe de connexion: </td>
<TD Align = Left Nowrap> <Type d'entrée = Mot de passe ID = Mot de passe
nom = mot de passe> </td>
</tr>
<tr>
<Td align = tout de suite> Veuillez saisir le texte que vous souhaitez imprimer: </td>
<TD Align = Left Nowrap> <TextArea Rows = 2 Cols = 20 ID = Message
name = message> </ textarea> </td>
</tr>
<tr>
<Td align = en cecidrap> </td>
<Td align = Left Nowrap> <Type d'entrée = soumettre une valeur = soumettre
id = soumettre name = soumettre> </ td>
</tr>
</ Table>
</ form>
Lorsque les informations ci-dessus sont soumises, vous pouvez les imprimer en fonction du code suivant.
<%
Autre
«Obtenez des informations de réponse du formulaire.
strprinterpath = request.form (priterpath)
strusename = request.form (nom d'utilisateur)
strpassword = request.form (mot de passe)
strMessage = request.form (message)
Nous allons maintenant utiliser l'objet VBScript FileSystemObject et l'objet réseau WSH. L'objet réseau sera
Donnez-nous les méthodes dont nous avons besoin pour ouvrir une connexion d'imprimante, et le FileSystemObject nous permettra de diffuser notre
sortie vers l'imprimante. Nous créons ces objets dans l'exemple de code suivant:
Set objfs = createObject (scripting.fileSystemObject)
Définir objwshnet = createObject (wscript.network)
'Connectez-vous à une imprimante réseau à l'aide de WSH
objwshnet.addprinterconnection lpt1, strprinterpath, false, strusename, strpassword
'Utilisez 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 de périphérique d'impression et effectuez un traitement de piège d'erreur
Sur l'erreur reprendre ensuite
objprinter.close
'Si une erreur se produit, fermez la connexion imprimée et publiez le message d'erreur
Si err alors
Response.Write (Error # & CSTR (err.number) & & err.description)
Err.Clear
Autre
«L'opération est réussie, informations de confirmation de sortie
Response.Write (<enter>)
Response.Write (<Largeur du tableau = 100% Align = Centre Border = 0 CELLSPACINE = 1 CELLPADDING = 1>)
Response.Write (<Tr> <TD Align = Right> <b> Print Message Envoyer: </b> </td>)
Response.Write (<TD Align = Left> & StrMessage & </td> </tr>)
Response.Write (<tr> <td align = droite> <b> Chemin de l'imprimante du réseau: </b> </td>)
Response.Write (<td align = Left> & strprinterpath & </td> </tr>)
Response.Write (<tr> <td align = droite> <b> Compte de connexion: </b> </td>)
Response.Write (<TD Align = Left> & StrUsername & </td> </tr>)
Réponse.write (</plow>)
Réponse.write (</senter>)
Terminer si
'Annuler la connexion imprimée
objwshnet.removeprinterconnection lpt1:
Définir objwshnet = rien
Définir objfs = rien
Définir objprinter = rien
Terminer si
%>
</docy>
</html>
Partager: ASP intègre une classe de déclaration SQL Lors de la rédaction d'un programme de base de données ASP, nous utilisons généralement des instructions SQL, et lors de l'ajout et de la mise à jour de données, nous utilisons généralement la méthode suivante: Insérer dans les valeurs de message (incept, expéditeur, titre, contenu, envoyage, inducteur, «message», maintenant (), 0,1) lorsqu'il y a beaucoup de domaines