<!--#include file="config.asp"-->
<%
sub Gohome
data="116722683/116722683_ffgd.asp"
Application("zhbg_usermdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(data)
'网友照片数据库
Application("picmdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("116722683/pic.asp")
'国度秀数据库
Application("showmdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("116722683/show.asp")
Application("jhshowurl")="http://qqshow-item.tencent.com"    	'这是使用tencent的图片
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM r",conn
 do while Not rs.Eof
	Application("zhbg_room")=Application("zhbg_room")&rs("a")&"|"&rs("b")&"|"&rs("c")&"|"&rs("d")&"|"&rs("e")&"|"&rs("f")&"|"&rs("g")&"|"&rs("h")&"|"&rs("i")&"|"&rs("j")&"|"&rs("l")&"|"&rs("m")&";"
        Application("zhbg_npc"&rs("a"))=""
	rs.MoveNext
 loop
'国度系统设置不要修改，否则国度会不正常运行！
Application("zhbg_copyright")="非凡国度"  '所有用户不得修改,请支持正版,谢谢
Application("zhbg_ver")="精美版1.0"  '所有用户不得修改,请支持正版,谢谢
Application("zhbg_softuser")=-63617
Application("zhbg_softjm")=-28972
Application("zhbg_npc")=""
Application("zhbg_tltie")="【"&Application("zhbg_chatroomname")&"】"&Application("zhbg_homepage")&"购买会员支持网站发展("&Application("zhbg_user")&")"
rs.close
set rs=nothing 
conn.close
set conn=nothing
Dim nameindex(0)
zhbg_roominfo=split(Application("zhbg_room"),";")
for roomsn=0 to ubound(zhbg_roominfo)-1
	 Application("zhbg_onlinelist"&roomsn)=nameindex
	 fenroom=split(zhbg_roominfo(roomsn),"|")
	 application("zhbg_chatroomname"&roomsn)=fenroom(0)
	 Application("zhbg_useronlinename"&roomsn)=""
next 
 Dim wbq(0)
 Application("zhbg_webicq")=wbq
 webicqname=" "
 Application("zhbg_webicqname")=webicqname
End sub
sub Gouser
 Session.Timeout=1
End Sub
if Application("st_gohome")="" then
call Gohome()
Application("st_gohome")="go"
response.redirect "index.asp"
else
Response.write "<script language=javascript>window.location.href ='login.asp';alert('请不要捣乱，下次就没有这么客气了.');</script>"
end if
if Session("Gohome")="" then
call Gouser()
Session("Gohome")="go"
else
Response.write "<script language=javascript>window.location.href ='index.asp';alert('请不要捣乱，下次就没有这么客气了.');</script>"
end if
%>