|
|
|
我自己写的聊天室源代码（十_3）
作者:佚名 来源:本站教程 点击: 日期:2007-03-21 |
|
for i = 1 to my_point
if i = my_point then
session("ss_oldpoint") = my_point - 1
if session("ss_oldpoint") < 1 then
session("ss_oldpoint") = 50
end if
sc_xx = 1
exit for
end if
j = j+1
'建立语句
my_message1(j)=""
'分清说话类别
'标志位：1踢人，2禁止说话，3禁止浏览，4公开话，5悄悄话，6动作，7进入，8退出
select case my_message(i,5)
case "1"
'踢人
my_message1(j) = "<font color='#008000'>系统消息（踢人）：</font>"
my_message1(j) = my_message1(j) + my_message(i,6) + my_message(i,3)
my_message1(j) = my_message1(j) + "[<small>" + my_message(i,7) + "</small>]" + "</font>"
case "2"
'禁止说话
my_message1(j) = "<font color='#008000'>系统消息（禁止说话）：</font>"
my_message1(j) = my_message1(j) + my_message(i,6) + my_message(i,3)
my_message1(j) = my_message1(j) + "[<small>" + my_message(i,7) + "</small>]" + "</font>"
case "3"
'禁止浏览
my_message1(j) = "<font color='#008000'>系统消息（禁止浏览）：</font>"
my_message1(j) = my_message1(j) + my_message(i,6) + my_message(i,3)
my_message1(j) = my_message1(j) + "[<small>" + my_message(i,7) + "</small>]" + "</font>"
case "4"
'公开话
'源
my_message1(j) = "<strong>" + my_message(i,1) + "</strong>"
'表情
my_message1(j) = my_message1(j) + "<font color='#FF00FF'><small>" + my_message(i,4) + "</small></font>，"
my_message1(j) = my_message1(j) + "<font color='#FF0000'><small>" + "对" + "</small></font>"
'目标
my_message1(j) = my_message1(j) + "<strong>" + my_message(i,2) + "</strong>"
&nbs
|
|
|
|
【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【论坛讨论】 |
 相关文章: |
|
|
文章评论:(条) |
|
|
|
|
责任编辑:一分 声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。 |
|
设为主页
收藏本站
