ใช้ฟังก์ชั่นห้องและการแสดงผลของผู้ใช้ในห้องแชท ASP

<ภาษาสคริปต์ = vbscript runat = เซิร์ฟเวอร์>

Application_onstart ()

แอปพลิเคชัน (groom_name) = xiaoyaoyou'save ชื่อห้องแชทหลักห้องสนทนาที่ทุกคนจะไปก่อน

dim pchat_value (50)

แอปพลิเคชัน (แอปพลิเคชัน (groom_name) & _ value) = pchat_value 'p หมายถึงส่วนตัว g หมายถึง globle ที่ใช้เพื่อบันทึกเนื้อหาของห้องแชท Xiaoyaoyou

แอปพลิเคชัน (แอปพลิเคชัน (groom_name) & _ number) = 0 'จำนวนการสนทนาที่ใช้ในการบันทึกห้องแชท Xiaoyaoyou

แอปพลิเคชัน (Health Master & _value) = pchat_value

แอปพลิเคชั่น (Health Master & _number) = 0

Dim Pchater_value (150)

แอปพลิเคชัน (แอปพลิเคชัน (groom_name) & er_value) = pchater_value 'ชื่อของผู้พูดคุยที่ใช้เพื่อบันทึกห้องแชท Xiaoyaoyou

แอปพลิเคชัน (แอปพลิเคชัน (groom_name) & er_number) = 0 'ใช้เพื่อระบุจำนวนคนที่ออนไลน์ในห้องแชท Xiaoyaoyou

แอปพลิเคชัน (Health Master & Er_value) = pchater_value

แอปพลิเคชัน (Health Master & Er_number) = 0

dim proom_value (50)

proom_value (0) = xiaoyaoyou & (& system &) & [& แอปพลิเคชัน (แอปพลิเคชัน (groom_name) & er_number) &] & บุคคล

proom_value (1) = Health Master & (& System &) & [& Application (Health Master & Er_number) &] & People

แอปพลิเคชัน (groom_value) = proom_value 'ใช้เพื่อบันทึกชื่อห้อง

แอปพลิเคชัน (groom_number) = 2

สิ้นสุดย่อย

Sub Session_onstart ()

เซสชัน (sroom_name) = แอปพลิเคชัน (groom_name) 'ห้องเริ่มต้นสำหรับผู้ใช้ใหม่แต่ละคน

เซสชัน (schater_name) = แสดงถึงเซสชันที่ใช้ในการบันทึกชื่อของผู้พูด

strProvider = driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath (../ แชท) &/& db/chater_message.mdb;

ตั้งค่า cres = server.createObject (adodb.connection)

ตั้งค่า res = server.createObject (adodb.recordset)

cres.open strprovider

res.activeConnection = CRES

ตั้งค่าเซสชัน (res) = res 'อินสแตนซ์ของ recordset

สิ้นสุดย่อย