<!--#include file="setup.asp"-->
<!--#include file="plus/Ex_Stock/Exsm_Plus_Conn.asp"-->
<!--#include file="plus/Ex_Stock/Exsm_Plus_Const.asp"-->
<%
	'检查用户名和ＩＤ是否合法
	If Exsm.UserID="" or Exsm.UserID=0 or not isnumeric(Exsm.UserID) or Exsm.StockHolder="" Then
		Response.Redirect "Exsm_Plus_Gupiao.asp"
	Else
		set Rs=stock_conn.execute("select UserName,LockUser from Ex_User where ID="&Exsm.UserID&"")
		'是否存在用户
		If Rs.eof and Rs.bof Then
			Response.Redirect "Exsm_Plus_Gupiao.asp"
		'用户是否锁定
		Elseif Rs(1)>1 Then
			Response.Redirect "Exsm_Plus_Gupiao.asp"
		'是否已经登录
		Elseif not Exsm.Members Then
			Response.Redirect "Exsm_Plus_Gupiao.asp"
		'检查用户等级
		Elseif not Exsm.StockAdmin Then
			Response.Redirect "Exsm_Plus_Gupiao.asp"
		'再次验证身份
		Elseif not Rs(0)=Exsm.StockHolder Then
			Response.Redirect "Exsm_Plus_Gupiao.asp"
		Else
			Select case Request("action")
				case "SaveSettimg"
					call SaveSettimg()
				case "EXConfig"
					call EXConfig()
				case else
					call main()
			End select
		End if
	End if
	Function IsDataDecide(IsString)
		On Error Resume Next
		IsDataDecide=False
		Err=0
		Dim xTestObj
		Set xTestObj=Server.CreateObject(IsString)
		If 0=Err Then IsDataDecide=True
		Set xTestObj=Nothing
		Err=0
	End Function
	Sub main()
		Exsm.Title 1,"基本设置"
		Dim DataDecide(1)
		Dim Stock_SettingInfo,Reg_Setting,Person_StockSetting,Trade_Setting,User_Setting,AI_Setting
		DataDecide(0)="adodb.connection"
		Stock_SettingInfo=split(Exsm.Stock_Setting(0),",")
		Person_StockSetting=split(Exsm.Stock_Setting(4),"|")
		Reg_Setting=split(Exsm.Stock_Setting(1),",")
		Trade_Setting=split(Exsm.Stock_Setting(2),",")
		User_Setting =split(Exsm.Stock_Setting(3),",")
		AI_Setting =split(Exsm.Stock_Setting(5),"|")%>
		<table class=a2 width=<%=Exsm.AssignWidth%> cellspacing=1 cellpadding=3 align=center border=0>
			<tr>
				<td colspan="2" align=center height=25 class=a1><a name=top></a>-=> 基 本 信 息 统 计 <=-</td>
			</tr>
			<tr>
				<td class=a4 colspan="2">转移到：[<a href="#Stock_SettingInfo">基本设置</a>]&nbsp;[<a href="#Stock_SettingInfo1">防刷新机制</a>]&nbsp;[<a href="#Trade_Setting">交易设置</a>]&nbsp;[<a href="#AI_Setting">AI设置</a>]&nbsp;[<a href="#Person_StockSetting">新股上市设置</a>]&nbsp;[<a href="#Reg_Setting">开户设置</a>]&nbsp;[<a href="#User_Setting">帐户设置</a>]&nbsp;[<a href="?action=EXConfig"><font color="#0000FF">恢复默认设置</font></a>]</td>
			</tr>
			<tr>
				<td class=a3 width="50%">物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
				<td class=a3 width="50%">数据库地址：<%=stock_db%></td>
			</tr>
			<tr>
				<td class=a3>数据库使用：<%If not IsDataDecide(DataDecide(0)) Then%><b>×</b>&nbsp;<font color="#FF0000">您的服务器不支持数据库使用！请联系空间商。</font><%Else%><font color="#FF0000"><b>√</b></font><%End if%></td>
				<td class=a3><span id="Copyright"></span></td>
			</tr>
		</table>
		<br>
		<table class=a2 width=<%=Exsm.AssignWidth%> cellspacing=1 cellpadding=3 align=center border=0>
			<form method="post" action="?action=SaveSettimg">
			<tr>
				<td colspan="2" align=center height=25 class=a1><a name=Stock_SettingInfo></a>-=> 基 本 设 置 [<a href="#top">顶部</a>] [<a href="#bottom">底部</a>] <=-</td>
			</tr>
			<tr>
				<td class=a4><u>股市名称</u></td> 
				<td class=a4>&nbsp;<input type=text size="35" name="Stock_SettingInfo(0)" value="<%=Stock_SettingInfo(0)%>"></td>
			</tr>
			<tr>
				<td class=a3 width="50%"><u>股票市场状态</u><br>股市是否开通</td> 
				<td class=a3 width="50%">&nbsp;<input type=radio name="Stock_SettingInfo(1)" value=1 <%if Stock_SettingInfo(1)=1 then%>checked<%end if%>>打开&nbsp;<input type=radio name="Stock_SettingInfo(1)" value=0 <%if Stock_SettingInfo(1)=0 then%>checked<%end if%>>关闭</td>
			</tr>
			<tr>
				<td class=a4><u>关闭说明</u><br>在股市关闭的情况下显示，支持html语法</td> 
				<td class=a4>&nbsp;<textarea name="StopReadme" cols="50" rows="3"><%=Exsm.Stock_Setting(6)%></textarea></td>
			</tr>
			<tr>
				<td class=a3 width="50%"><u>服务器时差</u></td> 
				<td class=a3 width="50%">&nbsp;<select name="Stock_SettingInfo(4)">
					<%for i=-23 to 23%>
						<option value="<%=i%>" <%if cint(i)=cint(Stock_SettingInfo(4)) Then%>selected<%End if%>><%=i%>
					<%next%>
					</select>&nbsp;*未使用功能
				</td>
			</tr>
			<tr>
				<td class=a4><u>是否起用定时开关股市</u></td> 
				<td class=a4>&nbsp;<input type=radio name="Stock_SettingInfo(2)" value=1 <%if Stock_SettingInfo(2)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Stock_SettingInfo(2)" value=0 <%if Stock_SettingInfo(2)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>股市开放时间</u><br>请确认您已经设置起用定时开关功能<br>起止小时用符号“||”分开</td> 
				<td class=a3>&nbsp;<input type=text size="10" name="Stock_SettingInfo(3)" value="<%=Stock_SettingInfo(3)%>"></td>
			</tr>
			<tr>
				<td class=a4><u>自动刷新时间</u>(秒)<br>股市首页自动刷新的时间间隔</td> 
				<td class=a4>&nbsp;<input type=text size="10" name="Stock_SettingInfo(6)" value="<%=Stock_SettingInfo(6)%>"> 秒&nbsp;建议选择120秒以上</td>
			</tr>
			<tr>
				<td class=a3><u>首页股票默认指标升降序排列</u></td> 
				<td class=a3>&nbsp;<select name="Stock_SettingInfo(20)">
						<option value="Sid" <%If Stock_SettingInfo(20)="Sid" Then%>selected<%End if%>>默认排列</option>
						<option value="ClosingPrice" <%If Stock_SettingInfo(20)="ClosingPrice" Then%>selected<%End if%>>昨收盘↓</option>
						<option value="ClosingPrice&HighLow=1" <%If Stock_SettingInfo(20)="ClosingPrice&HighLow=1" Then%>selected<%End if%>>昨收盘↑</option>
						<option value="TradePrice" <%If Stock_SettingInfo(20)="TradePrice" Then%>selected<%End if%>>当前价↓</option>
						<option value="TradePrice&HighLow=1" <%If Stock_SettingInfo(20)="TradePrice&HighLow=1" Then%>selected<%End if%>>当前价↑</option>
						<option value="HeaveChangeA" <%If Stock_SettingInfo(20)="HeaveChangeA" Then%>selected<%End if%>>涨跌↓</option>
						<option value="HeaveChangeA&HighLow=1" <%If Stock_SettingInfo(20)="HeaveChangeA&HighLow=1" Then%>selected<%End if%>>涨跌↑</option>
						<option value="TodayBuyNumber" <%If Stock_SettingInfo(20)="TodayBuyNumber" Then%>selected<%End if%>>买入↓</option>
						<option value="TodayBuyNumber&HighLow=1" <%If Stock_SettingInfo(20)="TodayBuyNumber&HighLow=1" Then%>selected<%End if%>>买入↑</option>
						<option value="TodaySellNumber" <%If Stock_SettingInfo(20)="TodaySellNumber" Then%>selected<%End if%>>卖出↓</option>
						<option value="TodaySellNumber&HighLow=1" <%If Stock_SettingInfo(20)="TodaySellNumber&HighLow=1" Then%>selected<%End if%>>卖出↑</option>
						<option value="TodayPermitTradeSum" <%If Stock_SettingInfo(20)="TodayPermitTradeSum" Then%>selected<%End if%>>今可交易↓</option>
						<option value="TodayPermitTradeSum&HighLow=1" <%If Stock_SettingInfo(20)="TodayPermitTradeSum&HighLow=1" Then%>selected<%End if%>>今可交易↑</option>
						<option value="TodayTradeNum" <%If Stock_SettingInfo(20)="TodayTradeNum" Then%>selected<%End if%>>今成交↓</option>
						<option value="TodayTradeNum&HighLow=1" <%If Stock_SettingInfo(20)="TodayTradeNum&HighLow=1" Then%>selected<%End if%>>今成交↑</option>	
						<option value="LockStock" <%If Stock_SettingInfo(20)="LockStock" Then%>selected<%End if%>>状态↓</option>
						<option value="LockStock&HighLow=1" <%If Stock_SettingInfo(20)="LockStock&HighLow=1" Then%>selected<%End if%>>状态↑</option>
					</select>
				</td>
			</tr>
			<tr>
				<td class=a4><u>首页股票显示最多记录</u><br>用于股市首页股票数据每页最多显示条数</td> 
				<td class=a4>&nbsp;<input type=text size="10" name="Stock_SettingInfo(14)" value="<%=Stock_SettingInfo(14)%>">&nbsp;条&nbsp;建议“20”条以内，以免影响美观</td>
			</tr>
			<tr>
				<td class=a3><u>是否在股市首页显示股民持股信息</u><br>打开此项后将影响股市首页执行速度！</td> 
				<td class=a3>&nbsp;<input type=radio name="Stock_SettingInfo(19)" value=1 <%if Stock_SettingInfo(19)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Stock_SettingInfo(19)" value=0 <%if Stock_SettingInfo(19)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a4><u>个人帐户股票数显示最多记录</u><br>用于个人帐户管理中股票页面每页最多显示条数</td> 
				<td class=a4>&nbsp;<input type=text size="10" name="Stock_SettingInfo(15)" value="<%=Stock_SettingInfo(15)%>"> 条&nbsp;建议“15”条以内，以免影响速度</td>
			</tr>
			<tr>
				<td class=a3><u>其他页显示最多记录</u><br>用于股票所有未归类页面和分页有关的项目</td> 
				<td class=a3>&nbsp;<input type=text size="10" name="Stock_SettingInfo(16)" value="<%=Stock_SettingInfo(16)%>"> 条</td>
			</tr>
			<tr>
				<td class=a4><u>是否允许游客访问</u><br>是否允许未注册用户访问股市</td> 
				<td class=a4>&nbsp;<input type=radio name="Stock_SettingInfo(5)" value=1 <%if Stock_SettingInfo(5)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Stock_SettingInfo(5)" value=0 <%if Stock_SettingInfo(5)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>默认是否显示在线用户名单</u><br>为节省资源建议关闭</td> 
				<td class=a3>&nbsp;<input type=radio name="Stock_SettingInfo(11)" value=1 <%if Stock_SettingInfo(11)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Stock_SettingInfo(11)" value=0 <%if Stock_SettingInfo(11)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a4><a name=Stock_SettingInfo1></a><u>是否启用防刷新机制</u><br>如选择打开请填写下面的限制刷新时间</td> 
				<td class=a4>&nbsp;<input type=radio name="Stock_SettingInfo(7)" value=1 <%if Stock_SettingInfo(7)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Stock_SettingInfo(7)" value=0 <%if Stock_SettingInfo(7)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>浏览刷新时间间隔</u><br>填写该项目请确认您打开了防刷新机制</td> 
				<td class=a3>&nbsp;<input title="该值请不要过大建议小于[5]秒" type=text size="10" name="Stock_SettingInfo(8)" value="<%=Stock_SettingInfo(8)%>">&nbsp;秒</td>
			</tr>
			<tr>
				<td class=a4><u>防刷新功能有效的页面</u><br>请确认您打开了防刷新功能<br>您指定的页面将有防刷新作用，用户在限定的时间内不能重复打开该页面，具有一定减少资源消耗的作用<br>每个页面名请用“<font color="#FF0000">|</font>”符号隔开</td>  
				<td class=a4>&nbsp;<input type=text size="35" name="Stock_SettingInfo(9)" value="<%=Stock_SettingInfo(9)%>"></td>
			</tr>
			<tr>
				<td class=a3><u>删除不活动用户时间</u><br>可设置删除多少分钟内不活动用户，等于“<font color="#FF0000">0</font>”为不显示在线股民</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="Stock_SettingInfo(10)" value="<%=Stock_SettingInfo(10)%>">&nbsp;分钟</td>
			</tr>
			<tr>
				<td class=a4><u>用户在线列表每页显示用户数</u></td>  
				<td class=a4>&nbsp;<input type=text size="10" name="Stock_SettingInfo(12)" value="<%=Stock_SettingInfo(12)%>"></td>
			</tr>
			<tr>
				<td class=a3><u>保留随机事件记录的条数</u><br>设置为0则保留所有随机事件记录</td> 
				<td class=a3>&nbsp;<input type=text size="10" name="Stock_SettingInfo(13)" value="<%=Stock_SettingInfo(13)%>">&nbsp;条&nbsp;建议“<font color="#FF0000">500</font>”条以内，以免浪费资源</td>
			</tr>
			<tr>
				<td class=a4><u>随机事件发生概率百分比</u></td> 
				<td class=a4>&nbsp;<input type=text size="10" name="Stock_SettingInfo(17)" value="<%=Stock_SettingInfo(17)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a3><u>随机事件股价上涨的几率</u><br>发生随机事件时股价上涨的几率百分比</td> 
				<td class=a3>&nbsp;<input type=text size="10" name="Stock_SettingInfo(18)" value="<%=Stock_SettingInfo(18)%>">&nbsp;%</td>
			</tr>
		</table>
		<br>
		<table class=a2 width=<%=Exsm.AssignWidth%> cellspacing=1 cellpadding=3 align=center border=0>
			<tr>
				<td colspan="2" align=center height=25 class=a1><a name=Trade_Setting></a>-=> 股 票 交 易 设 置 [<a href="#top">顶部</a>] [<a href="#bottom">底部</a>] <=-</td>
			</tr>
			<tr>
				<td class=a4 width="50%"><u>是否允许交易</u><br>只有本项打开时股民才能进行股票买卖操作</td> 
				<td class=a4 width="50%">&nbsp;<input type=radio name="Trade_Setting(0)" value=1 <%if Trade_Setting(0)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Trade_Setting(0)" value=0 <%if Trade_Setting(0)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3 width="50%"><u>是否股东分红</u><br>本项打开时股民才能进行股票分红操作</td> 
				<td class=a3 width="50%">&nbsp;<input type=radio name="Trade_Setting(1)" value=1 <%if Trade_Setting(1)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Trade_Setting(1)" value=0 <%if Trade_Setting(1)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a4><u>T+0</u><br>买入某股票后再卖出的时间间隔，不做限制请设置为0</td> 
				<td class=a4>&nbsp;<input type=text size="10" name="Trade_Setting(7)" value="<%=Trade_Setting(7)%>">&nbsp;小时</td>
			</tr>
			<tr>
				<td class=a3><u>成交量上限</u><br>当次买卖至多交易量，不做限制请设置为0</td> 
				<td class=a3>&nbsp;<input type=text size="10" name="Trade_Setting(2)" value="<%=Trade_Setting(2)%>">&nbsp;股</td>
			</tr>
			<tr>
				<td class=a4><u>手 续 费</u><br>每笔交易收取手续费的百分比</td> 
				<td class=a4>&nbsp;<input type=text size="10" name="Trade_Setting(6)" value="<%=Trade_Setting(6)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a3><u>涨停上限</u><br>股票价格上涨率大于该百分比时出现涨停状态</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="Trade_Setting(3)" value="<%=Trade_Setting(3)%>">&nbsp;%</td>
			</tr>	
			<tr>
				<td class=a4><u>跌停下限</u><br>股票价格下滑率大于该百分比时出现跌停状态</td>  
				<td class=a4>&nbsp;<input type=text size="10" name="Trade_Setting(4)" value="<%=Trade_Setting(4)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a3><u>停牌条件</u><br>股票价格低于该值时出现停牌状态</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="Trade_Setting(5)" value="<%=Trade_Setting(5)%>"> 元</td>
			</tr>
			<tr>
				<td class=a4><u>买入对股价的影响</u><br>购入股票时，股票价格上涨、下降、不变的百分比</td>  
				<td class=a4>&nbsp;<input type=text size="5" name="Trade_Setting(8)" value="<%=Trade_Setting(8)%>">&nbsp;%&nbsp;：&nbsp;<input type=text size="5" name="Trade_Setting(9)" value="<%=Trade_Setting(9)%>">&nbsp;%&nbsp;：&nbsp;<input disabled="true" type=text size="5" value="<%=Round(100-Trade_Setting(8)-Trade_Setting(9),2)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a3><u>卖出对股价的影响</u><br>抛出股票时，股票价格下降、上涨、不变的百分比</td>  
				<td class=a3>&nbsp;<input type=text size="5" name="Trade_Setting(10)" value="<%=Trade_Setting(10)%>">&nbsp;%&nbsp;：&nbsp;<input type=text size="5" name="Trade_Setting(11)" value="<%=Trade_Setting(11)%>">&nbsp;%&nbsp;：&nbsp;<input disabled="true" type=text size="5" value="<%=Round(100-Trade_Setting(10)-Trade_Setting(11),2)%>">&nbsp;%</td>
			</tr>
		</table>
		<br>
		<table class=a2 width=<%=Exsm.AssignWidth%> cellspacing=1 cellpadding=3 align=center border=0>
			<tr>
				<td colspan="2" align=center height=25 class=a1><a name=AI_Setting></a>-=> AI 机 器 人 设 置 [<a href="#top">顶部</a>] [<a href="#bottom">底部</a>] <=-</td>
			</tr>
			<tr>
				<td class=a4 width="50%"><u>是否开启AI功能</u></td> 
				<td class=a4 width="50%">&nbsp;<input type=radio name="AI_Setting(0)" value=1 <%if cint(AI_Setting(0))=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="AI_Setting(0)" value=0 <%if cint(AI_Setting(0))=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>是否允许浏览AI资料</u></td> 
				<td class=a3>&nbsp;<input type=radio name="AI_Setting(3)" value=1 <%if cint(AI_Setting(3))=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="AI_Setting(3)" value=0 <%if cint(AI_Setting(3))=0 then%>checked<%end if%>>否&nbsp;*未使用功能</td>
			</tr>
			<tr>
				<td class=a4><u>AI买卖股票操作几率</u><br>机器人发生买卖股票操作概率百分比</td>  
				<td class=a4>&nbsp;<input type=text size="10" name="AI_Setting(2)" value="<%=AI_Setting(2)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a3><u>AI机器人名称</u><br>AI的名称，请尽可能复杂些</td>  
				<td class=a3>&nbsp;<input type=text size="35" name="AI_Name" value="<%=AI_Setting(1)%>"><input type=hidden name="AI_Setting(1)" value="<%=AI_Setting(1)%>"></td>
			</tr>
		</table>
		<br>
		<table class=a2 width=<%=Exsm.AssignWidth%> cellspacing=1 cellpadding=3 align=center border=0>
			<tr>
				<td colspan="2" align=center height=25 class=a1><a name=Person_StockSetting></a>-=> 新 股 上 市 设 置 [<a href="#top">顶部</a>] [<a href="#bottom">底部</a>] <=-</td>
			</tr>
			<tr>
				<td class=a4 width="50%"><u>是否开启个股上市申请</u></td> 
				<td class=a4 width="50%">&nbsp;<input type=radio name="Person_StockSetting(0)" value=1 <%if cint(Person_StockSetting(0))=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Person_StockSetting(0)" value=0 <%if cint(Person_StockSetting(0))=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>最少具备资金</u><br>申请者现有的资金必须达到这个值才能申请个股上市</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="Person_StockSetting(1)" value="<%=Person_StockSetting(1)%>">&nbsp;元&nbsp;建议[2000000]元以上</td>
			</tr>
			<tr>
				<td class=a4><u>最少上市数目</u><br>最少上市股票数量</td>  
				<td class=a4>&nbsp;<input type=text size="10" name="Person_StockSetting(2)" value="<%=Person_StockSetting(2)%>">&nbsp;股&nbsp;建议[1000000]股以上</td>
			</tr>
			<tr>
				<td class=a3><u>上市公司名称最小长度</u><br>填写数字，不能小于1大于50</td>  
				<td class=a3>&nbsp;<input type=text name="Person_StockSetting(3)" value="<%=Person_StockSetting(3)%>" size="10"> byte</td>
			</tr>
			<tr>
				<td class=a4><u>上市公司名称最大长度</u><br>填写数字，不能小于1大于50</td>  
				<td class=a4>&nbsp;<input type=text name="Person_StockSetting(4)" value="<%=Person_StockSetting(4)%>" size="10"> byte</td>
			</tr>
			<tr>
				<td class=a3><u>公司简介最大长度</u><br>填写数字，不能小于1大于255</td>  
				<td class=a3>&nbsp;<input type=text name="Person_StockSetting(5)" value="<%=Person_StockSetting(5)%>" size="10"> byte</td>
			</tr>
			<tr>
				<td class=a4><u>新股字符过滤</u><br>同步论坛版块信息时过滤的字符设置，<font color="#FF0000">请使用英文“,”逗号隔开</font><br>例如论坛版块名称为“『无限股票』”过滤“『,』”后股票名称为“无限股票”</td>  
				<td class=a4>&nbsp;<input type=text size="35" name="Person_StockSetting(6)" value="<%=Person_StockSetting(6)%>"></td>
			</tr>
		</table>
		<br>
		<table class=a2 width=<%=Exsm.AssignWidth%> cellspacing=1 cellpadding=3 align=center border=0>
			<tr>
				<td colspan="2" align=center height=25 class=a1><a name=Reg_Setting></a>-=> 股 市 开 户 设 置 [<a href="#top">顶部</a>] [<a href="#bottom">底部</a>] <=-</td>
			</tr>
			<tr>
				<td class=a4 width="50%"><u>是否允许开户</u></td> 
				<td class=a4 width="50%">&nbsp;<input type=radio name="Reg_Setting(0)" value=1 <%if Reg_Setting(0)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="Reg_Setting(0)" value=0 <%if Reg_Setting(0)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>最少发帖数</u><br>限制必须达到这个数目才能在股市开户<br>不做限制请设置为0</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="Reg_Setting(1)" value="<%=Reg_Setting(1)%>"></td>
			</tr>
			<tr>
				<td class=a4><u>最少魅力值</u><br>限制必须达到这个数目才能在股市开户<br>不做限制请设置为0</td>  
				<td class=a4>&nbsp;<input type=text size="10" name="Reg_Setting(2)" value="<%=Reg_Setting(2)%>"></td>
			</tr>
			<tr>
				<td class=a3><u>最少经验值</u><br>限制必须达到这个数目才能在股市开户<br>不做限制请设置为0</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="Reg_Setting(3)" value="<%=Reg_Setting(3)%>"></td>
			</tr>
			<tr>
				<td class=a4><u>最少金钱值</u><br>限制必须达到这个数目才能在股市开户<br>不做限制请设置为0</td>  
				<td class=a4>&nbsp;<input type=text size="10" name="Reg_Setting(4)" value="<%=Reg_Setting(4)%>"></td>
			</tr>
			<tr>
				<td class=a3><u>原始资本</u><br>赠送给开户者的股市虚拟资金</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="Reg_Setting(5)" value="<%=Reg_Setting(5)%>"> 元</td>
			</tr>
		</table>
		<br>
		<table class=a2 width=<%=Exsm.AssignWidth%> cellspacing=1 cellpadding=3 align=center border=0>
			<tr>
				<td colspan="2" align=center height=25 class=a1><a name=User_Setting></a>-=> 股 市 帐 户 设 置 [<a href="#top">顶部</a>] [<a href="#bottom">底部</a>] <=-</td>
			</tr>
			<tr>
				<td class=a4 width="50%"><u>是否允许从股票帐户提款</u></td> 
				<td class=a4 width="50%">&nbsp;<input type=radio name="User_Setting(0)" value=1 <%if User_Setting(0)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="User_Setting(0)" value=0 <%if User_Setting(0)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>是否允许存钱入股票帐户</u></td>  
				<td class=a3>&nbsp;<input type=radio name="User_Setting(1)" value=1 <%if User_Setting(1)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="User_Setting(1)" value=0 <%if User_Setting(1)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a4><u>是否允许过户</u><br>只有本项打开时股民才能进行相互过户操作</td> 
				<td class=a4>&nbsp;<input type=radio name="User_Setting(4)" value=1 <%if User_Setting(4)=1 then%>checked<%end if%>>是&nbsp;<input type=radio name="User_Setting(4)" value=0 <%if User_Setting(4)=0 then%>checked<%end if%>>否</td>
			</tr>
			<tr>
				<td class=a3><u>取款上限</u><br>股民每次取款最大金额<br>不做限制请设置为0</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="User_Setting(2)" value="<%=User_Setting(2)%>"> 元</td>
			</tr>
			<tr>
				<td class=a4><u>存款上限</u><br>股民每次存款最大金额<br>不做限制请设置为0</td>  
				<td class=a4>&nbsp;<input type=text size="10" name="User_Setting(3)" value="<%=User_Setting(3)%>"> 元</td>
			</tr>
			<tr>
				<td class=a3><u>取款手续费</u><br>每次取款手续费的百分比</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="User_Setting(6)" value="<%=User_Setting(6)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a4><u>存款手续费</u><br>每次存款收取手续费的百分比</td>  
				<td class=a4>&nbsp;<input type=text size="10" name="User_Setting(7)" value="<%=User_Setting(7)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a3><u>过户手续费</u><br>每次过户收取手续费的百分比</td>  
				<td class=a3>&nbsp;<input type=text size="10" name="User_Setting(8)" value="<%=User_Setting(8)%>">&nbsp;%</td>
			</tr>
			<tr>
				<td class=a4><u>资金兑换比例</u><br>论坛资金与股市虚拟资金兑换比例</td>  
				<td class=a4>&nbsp;<input disabled="true" type=text size="8" value="1"><input type=text size="8" name="User_Setting(5)" value="<%=User_Setting(5)%>">&nbsp;<font color="#FF0000">请慎重填写，建议不要修改</font></td>
			</tr>
			<tr>
				<td colspan="2" align="center" class=a3><input type="submit" name="Submit" value="提 交"><a name=bottom></a></td>
			</tr>
			</form>
		</table>
		<script language=JavaScript>
		{
			document.getElementById("Copyright").innerHTML='<font color="#FF0000">版本信息：无限股票插件[1.7.2]b。[</font><a href="http://www.czie.com/bbs/" target="_blank"><font color="#FF0000">获得最新版本信息</a>]</font>'
		}
		</script>
<%
		Exsm.RootShowA
	End Sub
	Function HTMLsetting(setting)
		If not isnull(setting) Then
			setting=Replace(setting,"'","")
			setting=Replace(setting,CHR(34),"")
			HTMLsetting=setting
		End if
	End Function
	Sub SaveSettimg()
		Dim Stock_Setting,StopGPReadme,l_content
		Dim AI_NameI,AI_NameJ,ExAiD
		ExAiD=0
		AI_NameI=HTMLsetting(Request.Form("AI_Setting(1)"))
		AI_NameJ=HTMLsetting(Request.Form("AI_Setting(1)"))
		If HTMLsetting(Request.Form("AI_Name"))="" Then
			Exsm.Errmess="<li>请正确填写“AI”名称。"
			Call Exsm.Endinfo(1)
			Exit sub
		End if
		If Request.Form("AI_Setting(0)")=1 Then
			ExAiD=1
			AI_NameJ=HTMLsetting(Request.Form("AI_Name"))
			If AI_NameJ<>Ai_NameI Then
				set rs=stock_conn.execute("select UserName from Ex_User where UserName='"&AI_NameJ&"'")
				If not rs.eof Then
					Exsm.Errmess="<li>您输入的名称已经存在，请重新填写“AI”名称。"
					Call Exsm.Endinfo(1)
					Exit sub
				Else
					stock_conn.execute("update EX_Ai set UserName='"&AI_NameJ&"' where UserName='"&AI_NameI&"'")
					stock_conn.execute("update EX_Customer set UserName='"&AI_NameJ&"' where UserName='"&AI_NameI&"'")
				End if
			End if
		End if
		If Request.Form("StopReadme")<>"" Then
			StopGPReadme=Request.Form("StopReadme")
		Else
			StopGPReadme="数据调整中……"
		End if
		Stock_Setting=Request.Form("Stock_SettingInfo(0)")&","&Request.Form("Stock_SettingInfo(1)")&","&Request.Form("Stock_SettingInfo(2)")&","&Request.Form("Stock_SettingInfo(3)")&","&Request.Form("Stock_SettingInfo(4)")&","&Request.Form("Stock_SettingInfo(5)")&","&Request.Form("Stock_SettingInfo(6)")&","&Request.Form("Stock_SettingInfo(7)")&","&Request.Form("Stock_SettingInfo(8)")&","&Request.Form("Stock_SettingInfo(9)")&","&Request.Form("Stock_SettingInfo(10)")&","&Request.Form("Stock_SettingInfo(11)")&","&Request.Form("Stock_SettingInfo(12)")&","&Request.Form("Stock_SettingInfo(13)")&","&Request.Form("Stock_SettingInfo(14)")&","&Request.Form("Stock_SettingInfo(15)")&","&Request.Form("Stock_SettingInfo(16)")&","&Request.Form("Stock_SettingInfo(17)")&","&Request.Form("Stock_SettingInfo(18)")&","&Request.Form("Stock_SettingInfo(19)")&","&Request.Form("Stock_SettingInfo(20)")&"|||"&Request.Form("Reg_Setting(0)")&","&Request.Form("Reg_Setting(1)")&","&Request.Form("Reg_Setting(2)")&","&Request.Form("Reg_Setting(3)")&","&Request.Form("Reg_Setting(4)")&","&Request.Form("Reg_Setting(5)")&"|||"&Request.Form("Trade_Setting(0)")&","&Request.Form("Trade_Setting(1)")&","&Request.Form("Trade_Setting(2)")&","&Request.Form("Trade_Setting(3)")&","&Request.Form("Trade_Setting(4)")&","&Request.Form("Trade_Setting(5)")&","&Request.Form("Trade_Setting(6)")&","&Request.Form("Trade_Setting(7)")&","&Request.Form("Trade_Setting(8)")&","&Request.Form("Trade_Setting(9)")&","&Request.Form("Trade_Setting(10)")&","&Request.Form("Trade_Setting(11)")&"|||"&Request.Form("User_Setting(0)")&","&Request.Form("User_Setting(1)")&","&Request.Form("User_Setting(2)")&","&Request.Form("User_Setting(3)")&","&Request.Form("User_Setting(4)")&","&Request.Form("User_Setting(5)")&","&Request.Form("User_Setting(6)")&","&Request.Form("User_Setting(7)")&","&Request.Form("User_Setting(8)")&"|||"&Request.Form("Person_StockSetting(0)")&"|"&Request.Form("Person_StockSetting(1)")&"|"&Request.Form("Person_StockSetting(2)")&"|"&Request.Form("Person_StockSetting(3)")&"|"&Request.Form("Person_StockSetting(4)")&"|"&Request.Form("Person_StockSetting(5)")&"|"&Request.Form("Person_StockSetting(6)")&"|||"&Request.Form("AI_Setting(0)")&"|"&AI_NameJ&"|"&Request.Form("AI_Setting(2)")&"|"&Request.Form("AI_Setting(3)")&"|||"&StopGPReadme
		set rs=stock_conn.execute("update EX_Config set Stock_Setting='"&HTMLsetting(Stock_Setting)&"'")
		l_content=replace("其它管理：调整基本设置 ","'","")
		stock_conn.execute("insert into EX_Log (l_boardid,l_touser,l_username,l_content,l_addtime,l_ip,l_type) values('"&Exsm.UserID&"','"&Exsm.ScriptName&"','"&Exsm.StockHolder&"','"&l_content&"',"&SqlSmNowString&",'"&Exsm.UserIP&"',4)")
		Exsm.DelStockCahe("ExSm_Imitate_Info")
		Exsm.Sucmess="<li>股市基本信息设置成功。"
		Call Exsm.Endinfo(1)
	End Sub
	Sub EXConfig()
		Dim Stock_Setting,l_content
		Dim ExAIName
		If split(Exsm.Stock_Setting(5),"|")(0)=1 Then
			If split(Exsm.Stock_Setting(5),"|")(1)<>"无限机器人" Then
				set rs=stock_conn.execute("select UserName from Ex_User where UserName='无限机器人'")
				If not rs.eof Then
					Exsm.Errmess="<li>恢复默认设置时机器人名称已被使用，不能继续。"
					Call Exsm.Endinfo(1)
					Exit sub
				Else
					stock_conn.execute("update EX_Ai set UserName='无限机器人' where UserName='"&split(Exsm.Stock_Setting(5),"|")(1)&"'")
					stock_conn.execute("update EX_Customer set UserName='无限机器人' where UserName='"&split(Exsm.Stock_Setting(5),"|")(1)&"'")
					ExAIName="无限机器人"
				End if
			End if
		Else
			ExAIName=split(Exsm.Stock_Setting(5),"|")(1)
		End if
		Stock_Setting="虚拟股市,1,1,6||24,0,1,180,1,3,Exsm_Plus_Gupiao.asp|Exsm_Plus_Dispcompare.asp,15,0,30,300,20,15,30,30,30,0,Sid|||1,0,0,0,0,100000|||1,1,1000000,10,10,1,0.5,1,60,10,60,10|||1,1,0,0,1,10,0,0,2|||1|2000000|1000000|4|8|200|‖,『,』,〖,〗,【,】,≮,≯,「,」,《,》|||1|无限机器人|30|1|||数据调整中……"
		stock_conn.execute("update EX_Config set Stock_Setting='"&Stock_Setting&"'")
		l_content=replace("数据库管理：基本设置恢复默认 ","'","")
		stock_conn.execute("insert into EX_Log (l_boardid,l_touser,l_username,l_content,l_addtime,l_ip,l_type) values('"&Exsm.UserID&"','"&Exsm.ScriptName&"','"&Exsm.StockHolder&"','"&l_content&"',"&SqlSmNowString&",'"&Exsm.UserIP&"',2)")
		Exsm.DelStockCahe("ExSm_Imitate_Info")
		Exsm.Sucmess="<li>更新成功，设置已还原默认。"
		Call Exsm.Endinfo(1)
	End sub
%>