この記事では、主に非常にシンプルなチャットルームを構築することができます。
ASPラーニングの段階の後、学んだコンテンツに基づいて最も簡単なチャットルームを構築しますが、チャットルームを確立するための基本的なプロセスをマスターし、その機能を継続的に改善できます。
主な手順を以下に説明します。
1.グローバルファイルにコードを追加します。主にこのイベントを処理します。次のとおりです。
- ＜scriptlanguage = vbscriptrunat = server＞
- subapplication_onstart
- Dimmachats（15）は、15の要素を持つデータを定義します。
- Application（Gachats）= Machatsは会話の内容を保存します。
- アプリケーション（gicounter）= 0は、既存の会話の数を保存します。
- Endingub
- ＜/スクリプト＞
2. ASPCHAT.ASPファイルにコードを追加します。ホームページの2つの水平線、つまりテキストの2つの水平線の間にこの部分を追加する必要があります。
- parign = center ＞＜ fontsize = 5＞シンプルなチャットルーム＜/フォント＞＜/p＞
- ＜br>
- ＜％
- プロセス入力
- ifrequest.servervariables（request_method）= postthen
- スピーカーに署名します
- iflen（request（txtwho））＞0then
- session（sswho）= request（txtwho）
- endif
- アプリケーションオブジェクトをブロックします
- Application.Lock
- ローカルリファレンスポインターを作成します
- mlcounter = application（gicounter）
- Machats = Application（Gachats）
- 書かれた行の数が10を超える場合は、もう一度カウントを開始します。
- ifmlcounter> 9then
- mlcounter = 0
- endif
- ユーザーの入力を増やし、カウンターを1増やします
- Machat（mlchounter）= session（sswho）＆：＆request（txtcents）
- mlcounter = mlcounter+1
- アプリケーション範囲内でローカル変数を有効にするように設定します。
- applicatigicounter）= mlcounter
- アプリケーション（gachats）=マチャット
- アプリケーションオブジェクトのブロックを排除します
- Application.UnLock
- endif
- ％＞
- ＜％
- Textareaに書き込みます
- ifapplication（gicounter）= 0then
- LSTEMP = Application（Gachats）（0）
- それ以外
- forx = 0toapplication（gicounter）-1
- lstemp = lstemp＆＜br> application（gachats）（x）
- 次
- endif
- Response.whitestemp
- ％＞
- ＜HR＞
3.つまり、ブラウザがそれぞれの視聴者を区別するために、ブラウザが再び入力する必要はありません閲覧を記録するセッション（SSWHO）。
- ＜formmethod = postaction = aspchat.aspname = frmasp>
- ＜divalign = center ＞＜センター＞＜p＞ speech：＜inupttype = textname = txtcentssize = 34 ＞＜/p＞
- ＜/center ＞＜/div＞＜ divalign = center ＞＜センター＞＜p＞オブジェクト：＜inupttype = submitvalue = send name = b1 ＞＜/p＞
- ＜/中央＞＜/div＞
- ＜/form＞
完全なHTMファイルコードは、ASPCHAT.ASPとして保存します。