يقدم هذا المقال أساسًا ASP لبناء غرفة دردشة بسيطة للغاية.
بعد مرحلة من تعلم ASP ، سنبني أبسط غرفة دردشة بناءً على المحتوى الذي تعلمناه.
الخطوات الرئيسية الموضحة أدناه:
1. إضافة الكود في ملف Global.ASA. على النحو التالي.
- < scriptLanguage = vbscriptrunat = الخادم >
- subplication_onstart
- يعرّف Dimmachats (15) بيانات تحتوي على 15 عنصرًا.
- التطبيق (Gachats) = تخزين MACHATS محتوى المحادثة.
- التطبيق (gicounter) = 0 يخزن عدد المحادثات الموجودة.
- ينتهي
- </السيناريو >
2. أضف رمزًا في ملف ASPCHAT.ASP.
- < palign = المركز >< fontsize = 5 > غرفة دردشة بسيطة </font ></p >
- <br>
- < ٪
- إدخال العملية
- ifrequest.servervariables (request_method) = posthen
- قم بتوقيع المتحدث
- iflen (طلب (txtwho)) > 0then
- الجلسة (sswho) = طلب (txtwho)
- Endif
- حظر كائنات التطبيق
- application.lock
- إنشاء مؤشر مرجعي محلي
- mlcounter = التطبيق (gicounter)
- MACHATS = التطبيق (Gachats)
- إذا تجاوز عدد الخطوط المكتوبة 10 ، فابدأ العد مرة أخرى.
- IFMLCOUNTER> 9THEN
- mlcounter = 0
- Endif
- زيادة مدخلات المستخدم ، وزيادة العداد بمقدار 1
- MACHAT (MLCHOUNTER) = الجلسة (SSWHO) و: & طلب (txtcents)
- mlcounter = mlcounter+1
- تعيين المتغيرات المحلية لتكون صالحة في نطاق التطبيق.
- applicatigicounter) = mlcounter
- التطبيق (gachats) = المتوهمين
- التخلص من حظر كائن التطبيق
- application.unlock
- Endif
- ٪ >
- < ٪
- اكتب إلى Textarea
- ifapplication (gicounter) = 0then
- LSTEMP = التطبيق (gachats) (0)
- آخر
- forx = 0 toapplication (gicounter) -1
- LSTEMP = LSTEMP & <BR> التطبيق (gachats) (x)
- التالي
- Endif
- الرد. whitestemp
- ٪ >
- < HR >
3. تهيئة محتوى TXTWHO الجلسة (SSWHO) لتسجيل التصفح.
- < formmethod = postAction = aspchat.aspname = frmasp>
- < divalign = المركز >< الوسط >< p > الكلام: < inputType = textName = txtCentsSize = 34 ></p >
- </center ></div >< divalign = المركز >< المركز >< p > الكائن: < inputType = submitValue = send name = b1 ></p >
- </المركز ></div >
- </form >
كاملة.