<%
'=================================
' 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数据库
	IsSqlSmDataBase=0
	Set Exsm = New Cls_Stock
	Tetime=timer()
	If IsSqlSmDataBase=1 Then
		Dim SqlSmDatabaseName,SqlSmPassword,SqlSmUserName,SqlSmLocalName
		SqlSmNowString="GetDate()"
		SqlSmDatabaseName="数据库名"	'SQL数据库连接
		SqlSmPassword="用户密码"
		SqlSmUserName="用户名称"
		SqlSmLocalName="连接名称"
		ConnStrEx="Provider = Sqloledb; User ID="&SqlSmUserName&"; Password="&SqlSmPassword&"; Initial Catalog="&SqlSmDatabaseName&"; Data Source="&SqlSmLocalName&";"
	Else
		SqlSmNowString="Now()"
		stock_db="plus/Ex_Stock/Data/#(ExStock)ohoh.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
%>