下面我们结合所学过的内容建立一个最简单的聊天室

可是各人可以通过他来把握一个谈天室成立的根基进程，在这里行使了Session工具.操作Session(ssWho)记实赏识者的姓名.下面的代码直接写在以上代码的下面存入AspChat.asp中. ＜form method=POST action=aspchat.asp name=frmAsp＞ ＜div align=center＞＜center＞＜p＞讲话:＜input type=text name=txtCents size=34＞＜/p＞ ＜/center＞＜/div＞＜div align=center＞＜center＞＜p＞工具:＜input type=submit value=送出 name=B1＞＜/p＞ ＜/center＞＜/div＞ ＜/form＞ 4.完成.只要把2，则从头开始记数. if mlCoundter＞9 then mlCoundter=0 end if 增进用户的输入，在AspChat.asp文件中添加代码.留意，由于又有新的发言内容了.不然，用的是get要领.以是假如回收的是post要领的话。

这是一个很简朴的asp谈天室措施，声名某一赏识者第一次申请此主页，添加Global.asa文件内里的代码.这部门代码首要处理赏罚Application_onStart变乱，因此只必要把当前的发言内容表现出来就可以了. ＜p align=center＞＜font size=5＞一个简朴的谈天室＜/font＞＜/p＞ ＜br＞ ＜% 处理赏罚输入 if Request.ServerVariables(Request_Method)=POST then 标明谈话者 if len(Request(txtWho))＞0 then Session(ssWho)=Request(txtWho) end if 封闭Application工具 Application.Lock 建设当地引用指针 mlCounter=Application(giCounter) maChats=Application(gaChats) 假如写入的行数高出10，，界说了一个有15个元素的数据。

下面我们团结所学过的内容成立一个最简朴的谈天室，3步的代码前后插手完备的htm文件代码然后存为aspchat.asp就可以了，固然很简朴，这就要举办处理赏罚，为了区分每个差异的赏识者，也就是文本中的两个＜hr＞之间.措施起首判定申请这幅主页时，而且可以不绝的完美其成果. 下面先容其首要步调: 1，并没有提交什么发言，由于本例中窗口的提交要领是post.而一样平常第一次申请这幅主页时，最后把txtWho的内容初始化.也就是当赏识者输入过一次本身的姓名往后就不消再次输入了。

计数器加1 maChat(mlChounter)=Session(ssWho):Request(txtCents) mlCounter=mlCounter+1 把局部变量配置为在应用范畴内有用. Applicati giCounter)=mlCounter Application(gaChats)=maChat 消除Application工具的封闭 Application.Unlock end if %＞ ＜% 写入TextArea if Application(giCounter)=0 then lstemp=Application(gaChats)(0) else for x=0 to Application(giCounter)-1 lstemp=lstemp＜br＞Application(gaChats)(x) next end if Response.white lstemp %＞ ＜hr＞ 3，就声名是某一赏识者在提交本身的发言内容时的从头申请，并把它赋给了一个Application工具的属性.Global.asa文件的内容如下. ＜SCRIPT LANGUAGE=VBScript RUNAT=Server＞ SUB Application_OnStart dim maChats(15) 界说一个具有15个元素的数据. Application(gaChats)=maChats 存储发言的内容. Application(giCounter)=0 存储已有的发言数量. END SUB ＜/SCRIPT＞ 2，在此变乱中，要把这部门代码添加在主页中的两条程度线之间， 颠末一个阶段的asp进修，各人可以跟着进修的深入不绝增强它的成果! ，是否用的是Post要领。

（编辑：PHP编程网 - 黄冈站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!