talking.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 100 行

ASP

100 行

<HTML>
<BODY>
<%
Quit=request("Quit")
'如果用户选择退出，则将其姓名和谈话内容清除
If Quit="退出" Then
   name=session("name")
   Items=split(application("people"),",")
   Application.lock
   Application("people")=""
   For i=0 To ubound(items)-1
       If items(i)<>name then
          Application("people")=application("people") & items(i) &","
          Application(Items(i))=name & "向各位打虾说再见了！"
       End if
       
   Next
   Application(name)=""
   Application("Onlines")=Application("Onlines") - 1
   Application.unlock
   Session.abandon
   Response.end
Else
   If request("content") <> "" then
      '构造显示信息
      name=session("name")
      
      xString="<FONT color=" & Request("color") & ">" & name & Request("face") 
      '发送显示信息
      who=Request("who")
      Items=split(application("people"),",")
      Application.lock
      '如果聊天对象为所有人
      If request("who")="all" Then
         '为每个用户设置聊天内容
         For i=0 To ubound(items)-1
            Application(items(i))=Application(items(i)) & xString & "对" & items(i) & "说:" & Request("content") & "</FONT><BR>"   
         Next
         '如果聊天对象为某个用户
      Else
         For i=0 To ubound(items)-1
             If items(i)=name or items(i)=who then
                '设置聊天内容
                Application(items(i))=Application(items(i)) & xString & "对" & items(i) & "说:" & Request("content") & "</FONT><BR>"
             End if
         Next
      End if
      Application.unlock
   End if
%>
<%'没有指定action属性值，表示调用自身%>
<Form method="post" action="">
<P>
字体颜色 
<%'设定字体颜色%>
<Select name="color" size=1> 
<Option value="blue">蓝色</Option>
<Option value="yellow">黄色</Option>
<Option value="green">绿色</Option>
<Option value="red">红色</Option>
<Option value="gray">灰色</Option>
<Option value="black">黑色</Option>
<Option value="white">白色</Option>
</Select>
<%'聊天内容输入%> 
<INPUT type="text" name="content" size="50"> 
<INPUT type="submit" name="Quit" value="提交"> 
<P>
选择谈话表情 
<%'设定谈话表情%>
<Select name="face" size=1> 
<Option value="神采奕奕地">神采奕奕地</Option>
<Option value="无聊搭闲地">无聊搭闲地</Option>
<0ption value="兴高采烈地">兴高采烈地 
<Option value="悲哀忧伤地">悲哀忧伤地</Option>
<Option value="无限深情地">无限深情地</Option>
<0ption value="笑逐颜开地">笑逐颜开地</Op七ion> 
<Option value="愤怒谴责地">愤怒谴责地</Option>
</Select>
选择聊天对象 
<Select name="who" size=1>
<Option value="all">全体成员</option>
<%'添充目前在线的用户名 
Items=split(Application("people"),",") 
For i=0 To ubound(items)-1 
%>
<Option value="<%=items(i)%>"><%=items(i)%></Option>
<%next%>
</Select> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<INPUT type="submit" name="Quit" value="退出">
<%End if%> 
</form>
</BODY>
</HTML>

talking.asp - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 talking.asp 源码文件，采用 ASP 编程语言编写，共 100 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与动态相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?