ASP动态网页课程设计说明书(7)

（6）再次启动记事本，在其中输入下述代码。并把该网页代码保存为TalkProcess.ASP。 <% Response.Buffer=True %>

<%

'获取聊天对象、表情和聊天内容 Dim TalkMessage

MyFace=Request.Form(\Someone=Request.Form(\Mytalk=Trim(Request.Form(\If MyFace=\说话\MyFace=\End If

TalkMessage=\\

TalkMessage=TalkMessage & \ 对 \

TalkMessage=TalkMessage & \说：\TalkMessage=TalkMessage & Mytalk & \

Application.Lock

Application(\ Application(\Application.Unlock

Response.Redirect \ %>

（7）再次启动记事本，在其中输入下述代码。并把该网页代码保存为Chat_Show.ASP。

<%=Application(\显示聊天信息-->

（8）再次启动记事本，在其中输入下述代码。并把该网页代码保存为Exit.ASP。 <%Response.buffer=True%>

<%

dim ExitMessage '分别存放退出提示消息

dim ExitOption '存放退出的用户的列表项，以便删除

dim startpos,endpos '存放退出用户选项在别名列表字符串中的开始位置和结束位置 dim strLeft,strRight '存放退出用户选项在别名列表字符串的左边子符和右边子串 '形成退出信息

ExitMessage=\ExitMessage=ExitMessage & \离开论坛...\Application.Lock

把退出提示消息连接到谈话字符串的前面

Application(\ Application(\ Application(\ '人数减1 Application.Unlock

'根据退出用户别名，形成要删除用户在列表框中的选项字符串 ExitOption=\ ExitOption=ExitOption & session(\ If

instr(Application(\ '若要删除的客户在列表字符串中存在

startpos=instr(Application(\得出该选项在列表字符串中的起始位置

endpos=startpos+len(ExitOption)-1 '得出该选项在列表字符串中的结束位置 strLeft=left(Application(\ '获得要删除选项的左边字符串 '获得要删除选项的右边字符串

strRight=right(Application(\Application.Lock

Application(\ '删除该用户 Application.Unlock End If %>

再见，

<%=session(\同志，欢迎再次光临！

（9）在浏览器中进行测试。

3.5.4 任务4：主页_left.htm的设置

任务4描述：编写“主页_left.htm” 中超链接网页。

任务分析：“主页_left.htm”网页的主体其实是一个嵌套的列表。在HTML中，使用…来实现无序列表， 使用

…