咔叽游戏

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 450|回复: 0

[编程10000问] 如何用变量实现群聊和悄悄话?

[复制链接]
  • TA的每日心情
    无聊
    2019-5-27 08:20
  • 签到天数: 4 天

    [LV.2]圆转纯熟

    发表于 2020-2-8 06:39:57 | 显示全部楼层 |阅读模式
    如何用变量实现群聊和悄悄话?

    <%
    if Request.Form("xt")="on" then  
    ' 判断是否悄悄话.


    Application.Lock
    ' 是悄悄话,继续往下处理.
    application(session("username"))=temppos&application(session("username"))
    ' 只有发言人和发言对象才能看到此发言,实现悄悄话.
        application(Request.form("d1"))=temppos&application(Request.form("d1"))
        Application.UnLock
        Else   
    ' 群聊,继续往下处理.
            application("private")=temppos
            p1=trim(application("visitorname"))
    ' 取众人昵称.
      dim aa
      for k=1 to len(p1)
    ' application("visitorname")来存储全部聊友昵称,每个昵称之间用""隔开,并用此循环用来读取每个聊友的昵称.
        p2=mid(p1,k,1)
        if p2="," then
            aa=p3
      Application.Lock
        application(aa)=application("private")&application(aa)
    ' 聊天室的人都会看到此发言.
      Application.UnLock
        p3=""
        else
        p3=p3&p2
        end if%>
        <%next%>
    <%
        end if
    %>
    </p>
    [1]

    QQ|免责声明|小黑屋|手机版|Archiver|咔叽游戏

    GMT+8, 2024-3-29 13:43

    Powered by Discuz! X3.4

    © 2001-2023 Discuz! Team.

    快速回复 返回顶部 返回列表