<%
'=================================
' writer: cnxk
' qq: 29510683
' web: http://www.czie.com
'      http://bbs.czie.com
'      无限虚拟股票插件
'      版权所有请不要删除此信息
'=================================
	dim exsm,rs,i,sql,tetime
	dim stock_db,stock_conn,connstrex
	dim issqlsmdatabase,sqlsmnowstring,sqlbbs,rsbbs
	'数据库类别[1]为sql数据库[0]为access数据库
	dvbbs.loadtemplates("")
	issqlsmdatabase=0
	set exsm = new cls_stock
	tetime=timer()
	if issqlsmdatabase=1 then
		'sql数据库连接参数：数据库名、用户密码、用户名、连接名。
		dim sqlsmdatabasename,sqlsmpassword,sqlsmusername,sqlsmlocalname
		sqlsmnowstring="getdate()"
		SqlSmDatabaseName="数据库名"	'SQL数据库连接
		SqlSmPassword="用户密码"
		SqlSmUserName="用户名称"
		sqlsmlocalname="(local)"
		connstrex="provider = sqloledb; user id="&sqlsmusername&"; password="&sqlsmpassword&"; initial catalog="&sqlsmdatabasename&"; data source="&sqlsmlocalname&";"
	else
		sqlsmnowstring="now()"
		stock_db="inc/ex_stock/data/exstock1.mdb"	'股市access数据库，sql数据库用户无需修改。
		connstrex="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(stock_db)
	end if
	'on error resume next
	set stock_conn = server.createobject("adodb.connection")
	stock_conn.open connstrex
%>