推奨：ASPを使用して、敷地内検索を作成しますあなたが巨大なウェブサイトとたくさんのコンテンツを持っている場合、訪問者が必要なものを見つけることはしばしば困難です。現時点では、訪問者が探している情報をより速く見つけるのを支援するために、ウェブサイト検索が必要です！これで、ASPを使用してこの機能を簡単に実装できるようになりましたが、ASPをサポートするサイトが非常に多いことは言うまでもありません。この検索エンジンを使用して、ホームページを検索できます
<％@言語= vbscript％>
<％
オプションは明示的です
Dim StrSubmit '送信ボタンの値を保存するために使用されるフォーム
dim strprinterpath 'ネットワークプリンターパスの値をフォームの保存
フォームのユーザー名のDim Strusername '値
dim strpassword 'フォームのパスワードの値
Dim Strmessage 'フォームは、コンテンツの値を印刷します
vbscriptのDim objfsのファイルシステムオブジェクト
WSHのDIM OBJWSHNET 'ネットネットワークオブジェクト
dim objprinter 'プリントオブジェクト
strsubmit = request.form（submit）
％>
<html>
<head>
<メタ名=ジェネレーターコンテンツ= Microsoft Visual Studio 6.0>
</head>
<body>
<％
strsubmit = thenの場合
％>
ご了承ください：
これはデモンストレーションであるため、NTに関するアカウントとパスワードは、暗号化されていない手段を使用してASPで渡されます。
ログインプロセスは、実際に使用して安全に処理する必要があります。
<form action = aspprint.asp method = post id = form name = form>
<テーブル幅= 100％align = center border = 0 cellspacing = 1 cellpadding = 1>
<tr>
<td align =正しいnowrap>ネットワークプリンターパス：</td>
<td align = left nowrap> <入力タイプ=テキストid = printerpath name = printerpath
値= // <domain>/<プリンター>> </td>
</tr>
<tr>
<td align =正しいnowrap>ログインアカウント：</td>
<td align = left nowrap> <入力タイプ=テキストid = username name = username
値= <％= Strusername％>> </td>
</tr>
<tr>
<td align =正しいnowrap>ログインパスワード：</td>
<td align = left nowrap> <入力タイプ=パスワードid =パスワード
名前=パスワード> </td>
</tr>
<tr>
<td align =正しいnowrap>印刷するテキストを入力してください：</td>
<td align = left noverap> <textarea rows = 2 cols = 20 id = message
name = message> </textarea> </td>
</tr>
<tr>
<td align = suld nowrap> </td>
<td align = left nowrap> <入力タイプ=送信値=送信
id = submit name = submit> </td>
</tr>
</table>
</form>
上記の情報が送信されたら、次のコードに従って印刷できます。
<％
それ以外
'フォームから応答情報を取得します。
strprinterpath = request.form（printerpath）
Strusername = request.form（username）
strpassword = request.form（パスワード）
strmessage = request.form（メッセージ）
次に、VBScript FilesystemObjectオブジェクトとWSHネットワークオブジェクトを使用します。ネットワークオブジェクトはそうします
プリンター接続を開くために必要な方法を教えてください、そして、ファイルSystemObjectは私たちをストリーミングすることを可能にします
プリンターへの出力。これらのオブジェクトを次のコードの例で作成します。
objfs = createObject（scripting.filesystemObject）を設定します
objwshnet = createObject（wscript.network）を設定します
'WSHを使用してネットワークプリンターに接続します
objwshnet.addprinterconnection lpt1、strprinterpath、false、srusername、strpassword
'ファイルシステムオブジェクトを使用して、印刷デバイスをファイルとして使用します
objprinter = objfs.createTextfile（lpt1：、true）を設定
'印刷装置にテキストを送信します
objprinter.write（strmessage）
'プリントデバイスオブジェクトを閉じて、エラートラップ処理を実行します
エラーの再開時に次に再開します
objprinter.close
「エラーが発生した場合、印刷接続を閉じてエラーメッセージを出力します
エラーの場合
Response.write（エラー＃＆cstr（err.number）＆＆err.description）
err.clear
それ以外
'操作は成功しています、出力確認情報
Response.Write（<center>）
Response.write（<table width = 100％align = centerborder = 0 cellspacing = 1 cellpadding = 1>）
Response.write（<tr> <td align = right> <b>印刷メッセージ送信：</b> </td>）
respons.write（<td align = left>＆strmessage＆</td> </tr>）
Response.write（<tr> <td align = right> <b>ネットワークプリンターパス：</b> </td>）
respons.write（<td align = left>＆strprinterpath＆</td> </tr>）
Response.write（<tr> <td align = right> <b>ログインアカウント：</b> </td>）
Response.write（<td align = left>＆strusername＆</td> </tr>）
respons.write（</table>）
respons.write（</center>）
ifを終了します
'印刷接続をキャンセルします
objwshnet.RemovePrinterConnection LPT1：
objwshnet =何も設定しません
objfs = Nothingを設定します
objprinter =何も設定しません
ifを終了します
％>
</body>
</html>
共有：ASPはSQLステートメントクラスを統合しますASPデータベースプログラムを作成するときは、通常SQLステートメントを使用し、データを追加および更新するときは、通常、次の方法を使用します。メッセージ（Incept、sender、title、content、sendtime、flag、flag、flag、falsend）値（ 'incept（i）'、 'membername'、 'title'、 'message'、now（）、0,1）