答案:************************不能进入聊天室*************************
<%'nochat.asp%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>不能进入聊天室</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none">
</head>
<body>
<p><img src=http://old.zzzyk.com/article/Article/"images/ff/boy00.gif" width="110" height="220"><big><big><big><font
face="隶书" color="#FF00FF"><%response.write(session("ss_nowwhat"))%></font></big></big></big></p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt"
S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot bot="SaveResults" endspan --><div
align="center"><center><p><input type="button" value="重新登录" name="B1"
onclick="parent.location.href=> name="B2" onclick="window.close()"></p>
</center></div>
</form>
</body>
</html>
**************************聊天室***************************
<%'chat.asp%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>聊天室</title>
<meta name="Microsoft Border" content="tl, default">
</head>
<frameset framespacing="0" border="false" frameborder="0" rows="75%,25%,0">
<frameset cols="80%,20%">
<frame name="topleft" scrolling="yes" src="hearall.asp">
<frame name="topright" src="online.asp" scrolling="auto">
</frameset>
<frameset cols="80%,20%">
<frame name="midleft" src="say.asp" scrolling="auto">
<frame name="midright" src="myoption.asp" scrolling="no">
</frameset>
<frame name="bottom" scrolling="auto" noresize target="contents" src="new.asp">
<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.
</body>
</noframes>
</frameset>
</html>
****************************被赶出聊天室****************************
<%'goout.asp%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>被赶出聊天室</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none">
</head>
<body>
<p align="center"><img src=http://old.zzzyk.com/article/Article/"images/ff/man/casasellerb.gif" width="140" height="160"
alt="casasellerb.gif (5914 bytes)"><font color="#FF0000"><big><big>您被踢出聊天室!稍候请登录!!</big></big></font></p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt"
S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot bot="SaveResults" endspan --><div
align="center"><center><p><input type="button" value="不好意思" name="B1"
onclick="window.close();"></p>
</center></div>
</form>
</body>
</html>
*******************************浏览所有人*****************************
<%'hearall.asp%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>浏览所有人</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Border" content="none">
<meta name="Microsoft Theme" content="none">
</head>
<body>
</body>
</html>
********************************在线列表******************************
<%'online.asp%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线列表</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none">
<script language="javascript"><!--
function tt(text)
{
parent.midleft.document.forms[0].who.value = text;
return true;
}
// --></script>
</head>
<body background="images/bg05.gif">
<a href=>
<p>所有人</a> <%
dim sc_user,sc_usernum
application.lock
sc_user = application("ap_user")
sc_usernum = application("ap_usernum")
application.unlock
dim sc_img,sc_friend,sc_colloruser
sc_friend = session("ss_friend")
for i = 1 to 30
if trim(sc_user(i,1)) <> "" then
sc_img = "<img src='" + sc_user(i,6) +"' WIDTH='20' HEIGHT='20'>"
response.write("<br>"+sc_img)
for j = 1 to 100
if sc_user(i,1) = sc_friend(j) then
sc_colloruser = "<a href=> exit for
else
sc_colloruser = "<a href='say.asp?name=" + sc_us
上一个:我自己写的聊天室源代码(九)
下一个:我自己写的聊天室源代码(七)