作者：    来源：    点击：    日期：2007-4-15 23:40:10   

<%
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

首页 上一页 [1] [2] [3] [4]  下一页 尾页