<!--#include file="config.asp"-->
<%
sub Gohome
cwjh_data="cwjh_data/cwjh_home.asp"	'主数据库
cwjh_sub="cwjh_data/cwjh_sub.asp"	'副数据库
cwjh_show="cwjh_data/cwjh_show.asp"		'江湖秀
cwjh_bbs="cwjh_data/cwjh_bbs.asp"		'江湖论坛
Application("cwjh_usermdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(cwjh_data)
Application("cwjh_submdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(cwjh_sub)
Application("bbs_connstr")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(cwjh_bbs)
Application("showmdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(cwjh_show)
Application("jhshowurl")="http://qqshow-item.tencent.com"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "SELECT * FROM r order by id",conn
 do while Not rs.Eof
	Application("cwjh_room")=Application("cwjh_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("cwjh_npc"&rs("a"))=""
	rs.MoveNext
 loop
'江湖系统设置不要修改，否则江湖会不正常运行！
Application("cwjh_copyright")="酷屋网络"
Application("cwjh_ver")="酷屋江湖9.5"
Application("cwjh_npc")=""
Application("cwjh_tltie")="【"&Application("cwjh_chatroomname")&"】"&Application("cwjh_homepage")&"购买会员支持江湖发展("&Application("cwjh_user")&")"
rs.close
set rs=nothing 
conn.close
set conn=nothing
Dim nameindex(0)
cwjh_roominfo=split(Application("cwjh_room"),";")
for roomsn=0 to ubound(cwjh_roominfo)-1
	 Application("cwjh_onlinelist"&roomsn)=nameindex
	 fenroom=split(cwjh_roominfo(roomsn),"|")
	 application("cwjh_chatroomname"&roomsn)=fenroom(0)
	 Application("cwjh_useronlinename"&roomsn)=""
next 
 Dim wbq(0)
 Application("cwjh_webicq")=wbq
 webicqname=" "
 Application("cwjh_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.end
end if
if Session("Gohome")="" then
 call Gouser()
 Session("Gohome")="go"
else
 Response.end
end if
%>