<%@LANGUAGE="VBSCRIPT"%>
<%
	option explicit
	dim startime,conn,connstr,db,sql,rs
	dim dbbbs,connbbs,sqlbbs,rsbbs
    dim conn2
	startime=timer()
	'更改数据库名字
	db="stock.asa"		'股票数据库路径，一般不需要修改
	Set conn = Server.CreateObject("ADODB.Connection")
	conn2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
 	conn.Open conn2
	
        if Session("username")="" then
   	Response.Write "<script language=JavaScript>{alert('提示！请先登陆在操作');location.href = 'javascript:history.go(-1)';}</script>"
	Response.End 
        end if

	'更改聊天室数据库路径和名字 
	Connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="+server.mappath("../db/global.asa")+";pwd=WIUS9FKEF;DefaultDir='';DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=15;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" 
 Set connbbs=Server.CreateObject("ADODB.CONNECTION")
 connbbs.open connstr
function CloseDatabase
	Conn.close
	connbbs.close
	set connbbs=nothing
	Set conn = Nothing
End Function

%>