脚本宝典收集整理的这篇文章主要介绍了如何用变量实现群聊和悄悄话?,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
<%
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
%>
[1]
以上是脚本宝典为你收集整理的如何用变量实现群聊和悄悄话?全部内容,希望文章能够帮你解决如何用变量实现群聊和悄悄话?所遇到的问题。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。