ASP builds a simple chat room

This article mainly introduces ASP to build a very simple chat room. Interested friends can refer to it.

After a stage of Asp learning, we will build a simplest chat room based on the content we have learned. Although it is very simple, you can master the basic process of establishing a chat room through it and continuously improve its functions.

The main steps are described below:

1. Add the code in the Global.asa file. This part of the code mainly processes the Application_onStart event. In this event, a data with 15 elements is defined and assigned to the attributes of an Application object.Global.asa file The contents are as follows.

1. ＜SCRIPTLANGUAGE=VBScriptRUNAT=Server＞
2. SUBApplication_OnStart
3. dimmaChats(15) defines a data with 15 elements.
4. Application(gaChats)=maChats stores the content of the conversation.
5. Application(giCounter)=0 stores the number of existing conversations.
6. ENDSUB
7. ＜/SCRIPT＞

2. Add code in the AspChat.asp file. Note that you should add this part of the code between two horizontal lines in the home page, that is, two in the text.

---

The program first determines whether the Post method is used when applying for this homepage, because the window submission method in this example is post. Generally, when applying for this homepage for the first time, the get method is used. So if you use If the post method is the post method, it means that a certain browser reapply when submitting his or her conversation content. This requires processing because there is a new conversation content. Otherwise, it means that a certain browser applies for the first time. This homepage does not submit any conversations, so you only need to display the current conversation content.

1. ＜palign=center＞＜fontsize=5＞ A simple chat room＜/font＞＜/p＞
2. ＜br>
3. ＜%
4. Process input
5. ifRequest.ServerVariables(Request_Method)=POSTthen
6. Sign the speaker
7. iflen(Request(txtWho))＞0then
8. Session(ssWho)=Request(txtWho)
9. endif
10. Block Application Objects
11. Application.Lock
12. Create a local reference pointer
13. mlCounter=Application(giCounter)
14. maChats=Application(gaChats)
15. If the number of lines written exceeds 10, start counting again.
16. ifmlCounter>9then
17. mlCounter=0
18. endif
19. Increase user input, increase counter by 1
20. maChat(mlChounter)=Session(ssWho)&:&Request(txtCents)
21. mlCounter=mlCounter+1
22. Set local variables to be valid within application scope.
23. ApplicatigiCounter)=mlCounter
24. Application(gaChats)=maChat
25. Eliminate Application object blocking
26. Application.Unlock
27. endif
28. %＞
29. ＜%
30. Write to TextArea
33. ifApplication(giCounter)=0then
34. lstemp=Application(gaChats)(0)
35. else
36. forx=0toApplication(giCounter)-1
37. lstemp=lstemp&＜br>Application(gaChats)(x)
38. next
39. endif
40. Response.whitestemp
41. %＞
42. ＜hr＞

3. Finally, initialize the content of txtWho. That is, when the browser enters his or her name once, he or she does not need to enter it again. In order to distinguish each different viewer, the Session object is used here. Use Session (ssWho) to record browsing. The following code is written directly below the above code and stored in AspChat.asp.

1. ＜formmethod=POSTaction=aspchat.aspname=frmAsp>
2. ＜divalign=center＞＜center＞＜p＞Speech: ＜inputtype=textname=txtCentssize=34＞＜/p＞
3. ＜/center＞＜/div＞＜divalign=center＞＜center＞＜p＞Object: ＜inputtype=submitvalue=send name=B1＞＜/p＞
4. ＜/center＞＜/div＞
5. ＜/form＞

Complete. Just add the complete htm file code before and after the 2 and 3 steps and save it as aspchat.asp. This is a very simple asp chat room program. You can continuously strengthen its functions as you learn. !