rst2.asp

此程序为网上下载

<%
sub Gohome
 connstr="DBQ="+server.mappath("noread/global.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 Application("wsaxhg_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("wsaxhxf_c_chatroomname")=rs("value")
   Case "user"
    Application("wsaxhxf_c_user")=rs("value")
   Case "sn"
    Application("wsaxhxf_c_sn")=rs("value")
   Case "copyright"
    Application("wsaxhxf_c_copyright")=rs("value")
   Case "visitor"
    Application("wsaxhxf_c_visitor")=rs("value")
   Case "chatroombgimage"
    Application("wsaxhxf_c_chatroombgimage")=rs("value")
   Case "homepageurl"
    Application("wsaxhxf_c_homepageurl")=rs("value")
   Case "opendate"
    Application("wsaxhxf_c_opendate")=rs("value")
   Case "chatroombgcolor"
    Application("wsaxhxf_c_chatroombgcolor")=rs("value")
   Case "chatbgcolor"
    Application("wsaxhxf_c_chatbgcolor")=rs("value")
   Case "chatimage"
    Application("wsaxhxf_c_chatimage")=rs("value")
   Case "chatcolor"
    Application("wsaxhxf_c_chatcolor")=rs("value")
   Case "logo"
    Application("wsaxhxf_c_logo")=rs("value")
   Case "ver"
    Application("wsaxhxf_c_ver")=rs("value")
   Case "allowhtml"
    Application("wsaxhxf_c_allowhtml")=int(rs("value"))
   Case "iplocktime"
    Application("wsaxhxf_c_iplocktime")=int(rs("value"))
   Case "level1to2"
    Application("wsaxhxf_c_level1to2")=int(rs("value"))
   Case "level2to3"
    Application("wsaxhxf_c_level2to3")=int(rs("value"))
   Case "level3to4"
    Application("wsaxhxf_c_level3to4")=int(rs("value"))
   Case "level4to5"
    Application("wsaxhxf_c_level4to5")=int(rs("value"))
   Case "kickvalue"
    Application("wsaxhxf_c_kickvalue")=int(rs("value"))
   Case "kickvalueno"
    Application("wsaxhxf_c_kickvalueno")=int(rs("value"))
   Case "bombvalue"
    Application("wsaxhxf_c_bombvalue")=int(rs("value"))
   Case "bombvalueno"
    Application("wsaxhxf_c_bombvalueno")=int(rs("value"))
   Case "lockvalue"
    Application("wsaxhxf_c_lockvalue")=int(rs("value"))
   Case "lockvalueno"
    Application("wsaxhxf_c_lockvalueno")=int(rs("value")) 
   Case "maxpeople"
    Application("wsaxhxf_c_maxpeople")=int(rs("value"))
   Case "maxtimeout"
    Application("wsaxhxf_c_maxtimeout")=int(rs("value"))
   Case "pollaffiche"
    Application("wsaxhxf_c_pollaffiche")=rs("value")
   Case "pollending"
    Application("wsaxhxf_c_pollending")=rs("value")
   Case "disproxy"
    Application("wsaxhxf_c_disproxy")=rs("value")
   Case "disnewuser"
    Application("wsaxhxf_c_disnewuser")=rs("value")
   Case "titlecolor"
    Application("wsaxhxf_c_titlecolor")=rs("value")
   Case "closedoor"
    Application("wsaxhxf_c_closedoor")=rs("value")
   Case "automanname"
    Application("wsaxhxf_c_automanname")=rs("value")
   Case "disloginname"
    Application("wsaxhxf_c_disloginname")=rs("value")
   Case "userinto"
    Application("wsaxhxf_c_userinto")=rs("value")
   Case "userout"
    Application("wsaxhxf_c_userout")=rs("value")
   Case "userdown"
    Application("wsaxhxf_c_userdown")=rs("value")
   Case "ggtitle"
    Application("wsaxhg_title")=rs("value")
   Case "bbsurl"
    Application("wsaxhxf_c_bbsurl")=rs("value")
   Case "cess"
    Application("wsaxhxf_c_cess")=int(rs("value"))
   Case "dg"
    Application("wsaxhxf_c_dg")=int(rs("value"))
   Case "call"
    Application("wsaxhxf_c_call")=int(rs("value"))
   Case "yj"
    Application("wsaxhxf_c_yj")=int(rs("value"))
   Case "unyj"
    Application("wsaxhxf_c_unyj")=int(rs("value"))
   Case "changename"
    Application("wsaxhxf_c_changename")=int(rs("value"))
   Case "backadmin"
    Application("wsaxhxf_c_backadmin")=rs("value")
   Case "sladmin"
    Application("wsaxhxf_c_sladmin")=rs("value")
   Case "chatmoney"
    Application("wsaxhxf_c_chatmoney")=int(rs("value"))   
   Case "grade1"
    Application("wsaxhxf_c_grade1")=rs("value")
   Case "grade2"
    Application("wsaxhxf_c_grade2")=rs("value")
   Case "grade3"
    Application("wsaxhxf_c_grade3")=rs("value")
   Case "grade4"
    Application("wsaxhxf_c_grade4")=rs("value")
   Case "grade5"
    Application("wsaxhxf_c_grade5")=rs("value")
   Case "grade6"
    Application("wsaxhxf_c_grade6")=rs("value")
   Case "grade7"
    Application("wsaxhxf_c_grade7")=rs("value")
   Case "grade8"
    Application("wsaxhxf_c_grade8")=rs("value")
   Case "grade9"
    Application("wsaxhxf_c_grade9")=rs("value")
   Case "grade10"
    Application("wsaxhxf_c_grade10")=rs("value")
   Case "grade11"
    Application("wsaxhxf_c_grade11")=rs("value")
   Case "lowmanagehigh"
    Application("wsaxhxf_c_lowmanagehigh")=int(rs("value"))
   Case "moneymanage"
    Application("wsaxhxf_c_moneymanage")=int(rs("value"))
   Case "openurl"
    Application("wsaxhxf_c_openurl")=int(rs("value"))
   Case "enablesaysfilter"
    Application("wsaxhxf_c_enablesaysfilter")=int(rs("value"))
   Case "saysfilterstr"
    Application("wsaxhxf_c_saysfilterstr")=rs("value")
   Case "kicknamedontlogin"
    Application("wsaxhxf_c_kicknamedontlogin")=int(rs("value"))
   Case "htmldontinstr"
    Application("wsaxhxf_c_htmldontinstr")=rs("value")
   Case "useautoman"
    Application("wsaxhxf_c_useautoman")=int(rs("value"))
   Case "chatroomsn"
	Application("wsaxhxf_c_chatroominfo")=trim(rs("value"))
  End Select
 rs.MoveNext
 loop
 rs.close
 sql="SELECT dieip FROM iplockdie"
 rs.open sql,conn,1,1
 Application("wsaxhxf_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("wsaxhxf_c_autoact")=autoact
 Dim nameindex(0)
 useronlinename=" "
 onliners=0
 Application("wsaxhxf_c_onlinelist")=nameindex
 Application("wsaxhxf_c_useronlinename")=useronlinename
 Application("wsaxhxf_c_chatrs")=onliners
 Dim wbq(0)
 Application("wsaxhxf_c_webicq")=wbq
 webicqname=" "
 Application("wsaxhxf_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(180)
 for i=1 to 171
  sd(i)=0
 next
 sd(172)=1
 sd(173)=1
 sd(174)=0
 sd(175)="AutoMan"
 sd(176)="大家"
 sd(177)="660099"
 sd(178)="660099"
 sd(179)="对"
 sd(180)="<font color=black>【系统】</font><font color=red>聊天室开门啦！</font><font class=t>(" & t & ")</font>"
 Application("wsaxhxf_c_sd")=sd
 Application("wsaxhxf_c_line")=1
 Application("wsaxhxf_c_title")="祝大家聊得开心^_^！<font color=FF00FF class=p>（" & Application("wsaxhxf_c_automanname") & "，" & t & "）</font>"
End sub
call Gohome()
Application("wsaxst_gohome")="go"
%>
<html><head><title>YESCNET_管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#BCF8DA" text="#000000"><p>&nbsp;</p>
<table width="75%" border="1" cellspacing="5" cellpadding="0" align="center" bgcolor="#DBFBCC">
<tr><td><div align="center"><br><font color="#FF0000"><b><font size="3">
 ！！！系统重启动成功，所有会话均已初始化！！！</font></b></font><br><br></div>
</td></tr></table>
<div align="center"><font size="2"><br>
  YESCNET_管理系统</font> (技术支持：<a href="http://www.yescnet.com">www.yescnet.com</a>)<br>
</div></body></html>