<%
	startime=timer()
	'更改数据库名字
	db="../cwjh_data/cwjh_stock.asp"		'股票数据库路径，一般不需要修改
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
 	conn.Open connstr
        if Instr(LCase(Application("cwjh_useronlinename"&session("nowinroom")))," "&LCase(Session("cwjh_name"))&" ")=0 then
   	Response.Write "<script language=JavaScript>{alert('提示：必须进入聊天室才可以操作！');location.href = 'javascript:history.go(-1)';}</script>"
	Response.End 
        end if
	'更改江湖数据库路径和名字 
	dbbbs=Application("cwjh_usermdb")
	Set connbbs = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbbbs
 	connbbs.Open connstr
function CloseDatabase
	Conn.close
	connbbs.close
	set connbbs=nothing
	Set conn = Nothing
End Function
%>