login.asp

此程序为网上下载

<!--#include file="global.asp"-->
<%Response.Buffer =true
if Application("wjchathxf_c_chatroomname")="" then 
connstr="DBQ="+server.mappath("noread/global.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 Application("wjchathg_connstr")=connstr
 Set conn=Server.CreateObject("ADODB.CONNECTION")
 Set rs=Server.CreateObject("ADODB.RecordSet")
 conn.open connstr
 sql="SELECT name, value FROM system"
 rs.open sql,conn,1,1
 do while Not rs.Eof
  Select Case rs("name")
   Case "chatroomname"
    Application("wjchathxf_c_chatroomname")=rs("value")
   Case "user"
    Application("wjchathxf_c_user")=rs("value")
   Case "sn"
    Application("wjchathxf_c_sn")=rs("value")
   Case "copyright"
    Application("wjchathxf_c_copyright")=rs("value")
   Case "visitor"
    Application("wjchathxf_c_visitor")=rs("value")
   Case "chatroombgimage"
    Application("wjchathxf_c_chatroombgimage")=rs("value")
   Case "homepageurl"
    Application("wjchathxf_c_homepageurl")=rs("value")
   Case "opendate"
    Application("wjchathxf_c_opendate")=rs("value")
   Case "chatroombgcolor"
    Application("wjchathxf_c_chatroombgcolor")=rs("value")
   Case "chatbgcolor"
    Application("wjchathxf_c_chatbgcolor")=rs("value")
   Case "chatimage"
    Application("wjchathxf_c_chatimage")=rs("value")
   Case "chatcolor"
    Application("wjchathxf_c_chatcolor")=rs("value")
   Case "logo"
    Application("wjchathxf_c_logo")=rs("value")
   Case "ver"
    Application("wjchathxf_c_ver")=rs("value")
   Case "allowhtml"
    Application("wjchathxf_c_allowhtml")=int(rs("value"))
   Case "iplocktime"
    Application("wjchathxf_c_iplocktime")=int(rs("value"))
   Case "level1to2"
    Application("wjchathxf_c_level1to2")=int(rs("value"))
   Case "level2to3"
    Application("wjchathxf_c_level2to3")=int(rs("value"))
   Case "level3to4"
    Application("wjchathxf_c_level3to4")=int(rs("value"))
   Case "level4to5"
    Application("wjchathxf_c_level4to5")=int(rs("value"))
   Case "kickvalue"
    Application("wjchathxf_c_kickvalue")=int(rs("value"))
   Case "kickvalueno"
    Application("wjchathxf_c_kickvalueno")=int(rs("value"))
   Case "bombvalue"
    Application("wjchathxf_c_bombvalue")=int(rs("value"))
   Case "bombvalueno"
    Application("wjchathxf_c_bombvalueno")=int(rs("value")) 
   Case "maxpeople"
    Application("wjchathxf_c_maxpeople")=int(rs("value"))
   Case "maxtimeout"
    Application("wjchathxf_c_maxtimeout")=int(rs("value"))
   Case "chatmoney"
    Application("wjchathxf_c_chatmoney")=int(rs("value"))
   Case "lock"
    Application("wjchathxf_c_lock")=int(rs("value"))
   Case "lockno"
    Application("wjchatlockip")=int(rs("value"))
   Case "pollbegin"
    Application("wjchathxf_c_pollbegin")=CDate(rs("value"))
   Case "pollend"
    Application("wjchathxf_c_pollend")=CDate(rs("value"))
   Case "pollvalue"
    Application("wjchathxf_c_pollvalue")=CDate(rs("value"))
   Case "disproxy"
    Application("wjchathxf_c_disproxy")=rs("value")
   Case "disnewuser"
    Application("wjchathxf_c_disnewuser")=rs("value")
   Case "titlecolor"
    Application("wjchathxf_c_titlecolor")=rs("value")
   Case "closedoor"
    Application("wjchathxf_c_closedoor")=rs("value")
   Case "automanname"
    Application("wjchathxf_c_automanname")=rs("value")
   Case "disloginname"
    Application("wjchathxf_c_disloginname")=rs("value")
   Case "userinto"
    Application("wjchathxf_c_userinto")=rs("value")
   Case "userout"
    Application("wjchathxf_c_userout")=rs("value")
   Case "userdown"
    Application("wjchathxf_c_userdown")=rs("value")
   Case "disshowip"
    Application("wjchathxf_c_disshowip")=rs("value")
   Case "ggtitle"
    Application("wjchathg_title")=rs("value")
   Case "bbsurl"
    Application("wjchathxf_c_bbsurl")=rs("value")
   Case "cess"
    Application("wjchathxf_c_cess")=int(rs("value"))
   Case "dg"
    Application("wjchathxf_c_dg")=int(rs("value"))
   Case "call"
    Application("wjchathxf_c_call")=int(rs("value"))
   Case "yj"
    Application("wjchathxf_c_yj")=int(rs("value"))
   Case "unyj"
    Application("wjchathxf_c_unyj")=int(rs("value"))
   Case "changename"
    Application("wjchathxf_c_changename")=int(rs("value"))
   Case "richang"
    Application("wjchathxf_c_richang")=int(rs("value"))
   Case "huobi"
    Application("wjchathxf_c_huobi")=int(rs("value"))
   Case "shengji"
    Application("wjchathxf_c_shengji")=int(rs("value"))
   Case "canshu"
    Application("wjchathxf_c_canshu")=int(rs("value"))
   Case "dongzuo"
    Application("wjchathxf_c_dongzuo")=int(rs("value"))
   Case "adminname"
    Application("wjchathxf_c_adminname")=rs("value")
   Case "adminpass"
    Application("wjchathxf_c_adminpass")=rs("value")
  End Select
 rs.MoveNext
 loop
 rs.close
sql="SELECT dieip FROM iplockdie"
 rs.open sql,conn,1,1
 Application("wjchathxf_c_dieip")=rs("dieip")
 rs.close
 sql="SELECT act FROM actlib WHERE acttype='1'"
 rs.open sql,conn,1,1
 totalact=rs.RecordCount
 Randomize
 mr=Int((totalact-250)*Rnd)
 if mr<0 then mr=0
 if mr>totalact-250 then mr=totalact-250
 rs.Move mr
 Dim autoact()
 i=0
 Do while Not(rs.Eof) and i<250
  i=i+1
  Redim Preserve autoact(i)
  autoact(i)=rs("act")
 rs.MoveNext
 Loop
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
 Application("wjchathxf_c_autoact")=autoact
 Dim nameindex(0)
 useronlinename=" "
 onliners=0
 Application("wjchathxf_c_onlinelist")=nameindex
 Application("wjchathxf_c_useronlinename")=useronlinename
 Application("wjchathxf_c_chatrs")=onliners
 Dim wbq(0)
 Application("wjchathxf_c_webicq")=wbq
 webicqname=" "
 Application("wjchathxf_c_webicqname")=webicqname
 s=Hour(time())
 f=Minute(time())
 m=Second(time())
 if len(s)=1 then s="0" & s
 if len(f)=1 then f="0" & f
 if len(m)=1 then m="0" & m
 t=s & ":" & f & ":" & m
 Dim sd(540)
 for i=1 to 531
  sd(i)=0
 next
 sd(532)=1
 sd(533)=1
 sd(534)=0
 sd(535)="AutoMan"
 sd(536)="大家"
 sd(537)="660099"
 sd(538)="660099"
 sd(539)="对"
 sd(540)="<font color=black>【系统】</font><font color=red>聊天室开门啦！</font><font class=t>(" & t & ")</font>"
 Application("wjchathxf_c_sd")=sd
 Application("wjchathxf_c_line")=1
 Application("wjchathg_title")="欢迎光临" & Application("wjchathxf_c_chatroomname")
 Application("wjchathxf_c_title")="祝大家聊得开心^_^！<font color=FF00FF style=font-size:9pt>（" & Application("wjchathxf_c_automanname") & "，" & t & "）</font>"
end if
if Session("hxf_u_counted")<>"1" then
 Session.Timeout=3
 Application.Lock
 Application("wjchathxf_c_active")=Application("wjchathxf_c_active")+1
 Application.UnLock
end if
if Session("hxf_u_counted")<>"1" then
 Set conn=Server.CreateObject("ADODB.CONNECTION")
 Set rs=Server.CreateObject("ADODB.RecordSet")
 connstr=Application("wjchathg_connstr")
 conn.open connstr
 sql="SELECT value FROM system WHERE name='visitor'"
 rs.open sql,conn,1,3
 rs("value")=rs("value")+1
 Application.Lock
  Application("wjchathxf_c_visitor")=rs("value")
 Application.UnLock
 rs.update
 rs.close
 conn.close
 Set rs=nothing
 Set conn=nothing
 Session("hxf_u_counted")="1"
end if
visitor=Application("wjchathxf_c_visitor")
chatroomname=Application("wjchathxf_c_chatroomname")
user=Application("wjchathxf_c_user")
sn=Application("wjchathxf_c_sn")
copyright=Application("wjchathxf_c_copyright")
chatroombgimage=Application("wjchathxf_c_chatroombgimage")
homepageurl=Application("wjchathxf_c_homepageurl")
opendate=Application("wjchathxf_c_opendate")
chatroombgcolor=Application("wjchathxf_c_chatroombgcolor")
logo=Application("wjchathxf_c_logo")
ver=Application("wjchathxf_c_ver")
useronlinename=Application("wjchathxf_c_useronlinename")
onliners=Application("wjchathxf_c_chatrs")
online=Split(Trim(useronlinename)," ",-1)
x=UBound(online)%><html>
<head>
<title><%=chatroomname&" "&ver%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function check(){
 var ckv = document.chat.ck.value;
 var ff00 = document.chat.nickname.value;
 var ff01 = document.chat.password.value;
 var ff06 = document.chat.newpass.value;
 var ff07 = document.chat.killpass.value;
 if(ff00==""){
  alert("用户名不能为空！");
  return false;