📄 chat8.txt
字号:
请支持我们站点以网养网，点击我们的广告，谢谢大家！
我自己写的聊天室源代码（八）
--------------------------------------------------------------------------------
【1_apple】 于 00-4-28 14:42:42 加贴在 Joy ASP ↑：
************************不能进入聊天室*************************
<%'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="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='default.asp'"><input type="button" value="不玩了"
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="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="say.asp" target="midleft">
<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='say.asp?name=" + sc_user(i,1) + "' target='midleft'>" + "<font color='#FF00FF'>" + sc_user(i,1) + "</font>{<small>" + sc_user(i,8) + "</small>}</a>"
exit for
else
sc_colloruser = "<a href='say.asp?name=" + sc_user(i,1) + "' target='midleft'>" + sc_user(i,1) + "{<small>" + sc_user(i,8) + "</small>}</a>"
end if
next
response.write(sc_colloruser)
end if
next%> </p>
</body>
</html>
*************************说***************************
<%'say.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>
<script language="javascript">
<!--
function formsubmit()
{
document.forms[0].what1.value = document.forms[0].what.value;
document.forms[0].what.value = "";
windowload();
return true;
}
function windowload()
{
document.forms[0].what.focus();
return true;
}
function dd(list)
{
var listtext="";
if ((list.selectedIndex != -1)&&(list.selectedIndex != 0))
listtext = list.options[list.selectedIndex].value;
return listtext;
}
function dd1()
{
var listtext="";
listtext = document.forms[0].who.value;
return listtext;
}
function getme()
{
var mme="";
mme = document.forms[0].me.value;
return mme;
}
function msg(tt)
{
alert(tt);
windowload();
}
function out(tt)
{
document.forms[0].what.value = tt;
document.forms[0].acction.value = "1";
document.forms[0].what.focus();
}
//-->
</script>
<script language="VBScript"><!--
function cc(list)
dim sc_listtext,sc_who,sc_me,sc_he
sc_listtext = dd(list)
sc_who = dd1()
if trim(sc_who) = "所有人" then
msg("你要对谁做动作呢？？")
else
sc_me = getme()
sc_listtext = replace(sc_listtext,"#1",sc_me)
sc_listtext = replace(sc_listtext,"#2",sc_who)
out(trim(sc_listtext))
end if
end function
--></script>
<body onload="windowload();" background="images/bg05.gif">
<%sc_ww1 = request("sc_ww")%>
<form method="POST" action="new.asp" target="bottom" language="javascript"
onsubmit="formsubmit()">
<input type="hidden" name="acction" value="0"><input type="hidden" name="me"
value="<%response.write(session("ss_name"))%>"><input type="hidden" name="what1" value=" "><table
border="0" width="100%" cellspacing="0">
<tr>
<td width="100%" colspan="4"><div align="right"><p>您对<select name="who" size="1"
onchange="windowload();">
<option selected value="所有人">所有人</option>
<%
sc_user = application("ap_user")
for i= 1 to 30
if trim(sc_user(i,1))<>"" then
if trim(sc_user(i,1))=trim(request("name")) then
%> <option selected value="<%response.write(sc_user(i,1))%>"><%response.write(sc_user(i,1))%></option>
<%
else%> <option value="<%response.write(sc_user(i,1))%>"><%response.write(sc_user(i,1))%></option>
<%
end if
end if
next%> </select>说：<input type="text" name="what" size="43" value="<%response.write(sc_ww1)%>"><input
type="submit" value="提交" name="B1"><input type="button" value="清除" name="B2"
onclick="document.forms[0].what.value='';document.forms[0].what.focus();"></td>
</tr>
<tr>
<td width="10%"><div align="center"><center><p><%if session("ss_qq") = "5" then%><input type="checkbox" name="C1" value="ON"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -