บทความนี้ส่วนใหญ่แนะนำ ASP เพื่อสร้างห้องแชทง่าย ๆ
หลังจากการเรียนรู้ของ ASP เราจะสร้างห้องแชทที่ง่ายที่สุดตามเนื้อหาที่เราได้เรียนรู้
ขั้นตอนหลักอธิบายไว้ด้านล่าง:
1. เพิ่มรหัสในไฟล์ Global.ASA มีดังนี้
- ＜scriptLanguage = vbscriptrunat = เซิร์ฟเวอร์＞
- subapplication_onstart
- Dimmachats (15) กำหนดข้อมูลที่มี 15 องค์ประกอบ
- แอปพลิเคชัน (gachats) = Machats เก็บเนื้อหาของการสนทนา
- แอปพลิเคชัน (gicounter) = 0 เก็บจำนวนการสนทนาที่มีอยู่
- enddub
- ＜/สคริปต์＞
2. เพิ่มรหัสในไฟล์ Aspchat.asp
- ＜palign = center ＞＜ fontsize = 5＞ ห้องแชทง่าย ๆ ＜/ตัวอักษร ＞＜/p＞
- ＜br>
- %
- อินพุตประมวลผล
- ifrequest.serverVariables (request_method) = postthen
- ลงนามในลำโพง
- iflen (คำขอ (txtwho))＞ 0 แล้ว
- เซสชัน (sswho) = คำขอ (txtwho)
- endif
- บล็อกวัตถุแอปพลิเคชัน
- application.lock
- สร้างตัวชี้อ้างอิงท้องถิ่น
- mlcounter = แอปพลิเคชัน (gicounter)
- Machats = แอปพลิเคชัน (Gachats)
- หากจำนวนบรรทัดที่เขียนเกิน 10 ให้เริ่มนับอีกครั้ง
- ifmlcounter> 9 จากนั้น
- mlcounter = 0
- endif
- เพิ่มอินพุตผู้ใช้เพิ่มตัวนับ 1
- Machat (MlChounter) = เซสชัน (SSWHO) &: & คำขอ (txtcents)
- mlcounter = mlcounter+1
- ตั้งค่าตัวแปรท้องถิ่นให้ถูกต้องภายในขอบเขตแอปพลิเคชัน
- applicatigicounter) = mlcounter
- แอปพลิเคชัน (gachats) = machat
- กำจัดการปิดกั้นวัตถุแอปพลิเคชัน
- application.unlock
- endif
- %
- %
- เขียนถึง Textarea
- ifapplication (gicounter) = 0 แล้ว
- lstemp = แอปพลิเคชัน (gachats) (0)
- อื่น
- forx = 0toapplication (gicounter) -1
- lstemp = lstemp & ＜br> แอปพลิเคชัน (gachats) (x)
- ต่อไป
- endif
- Response.whitestemp
- %
- ＜ชม.＞
3. ในที่สุดเริ่มต้นเนื้อหาของ txtwho เซสชัน (SSWHO) เพื่อบันทึกการท่องเว็บ
- ＜formMethod = postaction = aspChat.aspName = frmasp>
- ＜divalign = center ＞＜ center ＞＜ p＞ คำพูด: ＜inputType = textName = txtCentsSize = 34 ＞＜/p＞
- ＜/center ＞＜/div ＞＜ divalign = ศูนย์ ＞＜ ศูนย์ ＞＜ p＞ วัตถุ: ＜inputType = submentValue = ส่งชื่อ = b1 ＞＜/p＞
- ＜/center ＞＜/div＞
- ＜/ฟอร์ม＞
สมบูรณ์