ASP membangun ruang obrolan sederhana

Artikel ini terutama memperkenalkan ASP untuk membangun ruang obrolan yang sangat sederhana.

Setelah tahap pembelajaran ASP, kami akan membangun ruang obrolan paling sederhana berdasarkan konten yang telah kami pelajari.

Langkah utama dijelaskan di bawah ini:

1. Tambahkan kode dalam file global.aSa. adalah sebagai berikut.

1. ＜ ScriptLanguage = vbscriptrunat = server ＞
2. Subapplication_onstart
3. Dimmachats (15) mendefinisikan data dengan 15 elemen.
4. Aplikasi (gachats) = Machats menyimpan konten percakapan.
5. Aplikasi (gicounter) = 0 menyimpan jumlah percakapan yang ada.
6. Endsub
7. ＜/skrip ＞

2. Tambahkan kode dalam file aspchat.asp.

---

Program pertama -tama menentukan apakah metode posting digunakan saat melamar beranda ini, karena metode pengiriman jendela dalam contoh ini adalah postingan. Metode POST adalah metode POST, itu berarti bahwa browser tertentu menerapkan kembali saat mengirimkan konten percakapannya tidak mengirimkan percakapan apa pun, jadi Anda hanya perlu menampilkan konten percakapan saat ini.

1. ＜ palign = tengah ＞＜ fontSize = 5 ＞ ruang obrolan sederhana ＜/font ＞＜/p ＞
2. ＜BR>
3. ＜%
4. Proses input
5. ifrequest.serverVariable (request_method) = postthen
6. Tanda tangani pembicara
7. iflen (request (txtwho)) ＞ 0then
8. Sesi (sswho) = request (txtwho)
9. endif
10. Memblokir objek aplikasi
11. Application.lock
12. Buat penunjuk referensi lokal
13. mlcounter = aplikasi (gicounter)
14. MATHATS = Aplikasi (gachats)
15. Jika jumlah baris yang ditulis melebihi 10, mulailah menghitung lagi.
16. ifmlcounter> 9then
17. mlcounter = 0
18. endif
19. Tingkatkan input pengguna, tingkatkan penghitung dengan 1
20. Machat (mlchounter) = sesi (sswho) &: & request (txtcents)
21. mlcounter = mlcounter+1
22. Tetapkan variabel lokal agar valid dalam ruang lingkup aplikasi.
23. ApplicatigiCounter) = Mlcounter
24. Aplikasi (gachats) = Machat
25. Hilangkan Pemblokiran Objek Aplikasi
26. Application.unlock
27. endif
28. %＞
29. ＜%
30. Menulis ke TextArea
33. ifapplication (gicounter) = 0then
34. lstemp = aplikasi (gachats) (0)
35. kalau tidak
36. forx = 0toApplication (gicounter) -1
37. lstemp = lstemp & ＜br> aplikasi (gachats) (x)
38. Berikutnya
39. endif
40. Respons.whitestemp
41. %＞
42. ＜ jam ＞

3., inisialisasi konten txtwhe Sesi (SSWHO) untuk merekam penjelajahan.

1. ＜ FormMethod = postaction = aspchat.aspname = frmasp>
2. ＜ Divalign = Center ＞＜ Pusat ＞＜ P ＞ Pidato: ＜ InputType = TextName = txtCentSsize = 34 ＞＜/p ＞
3. ＜/Center ＞＜/Div ＞＜ Divalign = Center ＞＜ Center ＞＜ P ＞ Objek: ＜ InputType = SubmitValue = Kirim Nama = B1 ＞＜/P ＞
4. ＜/Center ＞＜/Div ＞
5. ＜/bentuk ＞

Lengkap.