บทความนี้ส่วนใหญ่แนะนำ 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>
- </ฟอร์ม>
สมบูรณ์