这个子程序大家可能不太明白，他是用于显示各个房间信息的。
好了，下面是关键的显示页面chatpage.html,它分为三帧，左右为80%，20%，然后再将右面的分为上下80%，20%，左上的部分就是主的显示页面
|
以下为引用的内容：
showpage.asp
<!--
#include virtual="/chat/inc/Convert.inc"
--> <%'将内容记入application数组并调整顺序%>
<!--
#include virtual="/chat/inc/ChangeRoom.inc"
--> <%'处理换房的过程%>
<!--
#include virtual="/chat/inc/Logname.inc"
-->
<!--
#include virtual="/chat/inc/uLogname.inc"
-->
<%
if request.servervariables("Request_Method")="POST" then
if request.form("cmdChangeRoom")="换房" then
application.lock
call changeroom()
application.unlock
else
chat=request.form("txtChat")
who=session("sChater_Name")
towho=request.form("selShow")
common_or_private="common"
chat=who&towho&"说："&chat
if request.form("chkPrivate")="private" then
common_or_private="private"
chat=chat&"[私聊]"
end if
application.lock
call convert(common_or_private&","&who&","&towho&","&chat&"<br>")
application.unlock
end if
end if
%>
<html>
<head>
<title> ShowPage </title>
</head>
<body>
<center>
<%
response.write session("sRoom_Name")
%>
</center>
<%
for i=0 to application(session("sRoom_Name")&"_Number")-1
position_one=instr(application(session("sRoom_Name")&"_Value")(i),",")
position_two=instr(position_one+1,application(session("sRoom_Name")&"_Value")(i),",")
position_three=instr(position_two+1,application(session("sRoom_Name")&"_Value")(i),",")
if mid(application(session("sRoom_Name")&"_Value")(i),1,position_one-1)="common" or session("sChater_Name")=mid(application(session("sRoom_Name")&"_Value")(i),position_one+1,position_two-position_one-1) or session("sChater_Name")=mid(application(session("sRoom_Name")&"_Value")(i),position_two+1,position_three-position_two-1) then
response.write mid(application(session("sRoom_Name")&"_Value")(i),position_three+1)
end if
next
'大家注意了，这里是关键的关键，房间的显示与悄悄话的处理都在这里了
代码是太长了，但若使用好的数据结构应该能大大简化代码，我会用sever端的
javascript来试一试，希望可以
%>
<%
end if
%>
</body>
</html>
|
好长哦，^O^,没办法，高级的功能要付出大的代价，我这里是想告诉大家一种思想。以前你肯定定义过application("var1")这样的变量，但象application(session("sRoom_Name")&"_Value") 这样的呢？？？我会在近期将它做成一个activex控件，那时大家就方便了。
想要的话给我写个mail就行了。。
请作者联系本站，及时附注您的姓名。联系邮箱:edu#chinaz.com（把#改为@）。
匿名投稿
投稿指南
RSS订阅