控制 <%
Option Explicit
const admin="admin"
const admpass="admin"
dim roomname,kicklist,onliuser,chatdata,userdup,userid,noplace,username,i,chatpoin,password,admlevel
username=trim(request.form("username"))
password=request.form("password")
roomname=application("roomname")
kicklist=application("kicklist")
onliuser=application("onliuser")
chatdata=application("chatdata")
if username="系統" or username="所有人" or username="" then response.redirect "error.asp?mess=使用了非法的字元為名字或使用了系統保留的名名，請換一個再進"
if username=admin and password=admpass then
admlevel=90
session("admlevel")=9
username="*"&username
else
admlevel=0
session("admlevel")=""
if instr(kicklist,"'#"&username&"'")>0 then response.redirect "kickout.htm"
if instr(kicklist,"'"&Request.ServerVariables("remote_addr")&"'")>0 then response.redirect "kickout.htm"
end if
userdup=false
for i=0 to 50
if chatdata(i,0)=username then
if chatdata(i,1)<>request.servervariables("remote_addr") then
response.redirect "error.asp?mess=相同的聊天暱稱已存在，請你用另一個暱稱進入"
else
userdup=true
userid=i
chatdata(i,4)=admlevel
exit for
end if
end if
next
if not userdup then
for i=0 to 50
if chatdata(i,0)="" then
userid=i
chatdata(i,0)=username '存使用者名稱
chatdata(i,1)=request.servervariables("remote_addr") '存IP地址
chatdata(i,3)="" '置耳語為空白
chatdata(i,4)=admlevel '置請勿打撓開關、MIDI開關
chatdata(i,5)="" '置隱藏名單為空白
noplace=false
session("userid")=i
exit for
end if
next
if not noplace then
onliuser=onliuser&",'"&username&"'" '將使用者加進名單列表
for i=0 to 50
chatdata(i,4)=(chatdata(i,4) mod 4)+4 '通知其它使用者重新整理名單
next
else
response.redirect "error.asp?mess=聊天室已經滿員！"
end if
else
if instr(onliuser,",'"&username&"'")<1 then onliuser=onliuser&",'"&username&"'"
end if
chatpoin=application("chatpoin") '保留5條記錄
if chatdata(userid,2)>4 then
chatdata(userid,2)=chatpoin-5
else
chatdata(userid,2)=chatpoin-5+50
end if
application.lock
application("chatdata")=chatdata
application("onliuser")=onliuser
application.unlock
session("userip")=request.servervariables("remote_addr")
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =application("roomname") %></title>
<script Language='JavaScript' src="action.js"></script>
<script Language='JavaScript1.2'>
var username="<% =username %>";
midisw=false; //音樂開關
var list=new Array('');
var btitle = '<html><head><title><% =application("roomname") %></title>\n<style type=\"text/css\">\n<!--\n.p9 { font-size: 10.5pt; line-height: 19pt}\na:visited { color: #0000FF; text-decoration: none}\na:link { color: #0000FF; text-decoration: none}\na:hover { color: #FF0000}\n-->\n</style></head><body bgcolor=ffffff>\n<center>歡迎光臨<font color=red><% =application("roomname") %>
