当前位置：首页 > 资讯 > 技术文档

如何用变量实现群聊和悄悄话？

时间：2020-07-03 22:28 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何用变量实现群聊和悄悄话？

[h2]如何用变量实现群聊和悄悄话？[/h2]<%

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 %>

[b][1][/b]

全部评论(0)

上一篇：如何判断URL格式是否符合规范？
下一篇：java Lucene 中自定义排序的实现

资讯排行榜
更多>>