<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/ex_stock/ex_sm_conn.asp"-->
<!--#include file="inc/ex_stock/ex_sm_const.asp"-->
<!--#include file="inc/ex_stock/ex_admin/ex_admin_index.asp"-->
<%
	if not exsm.stockadmin then
		exsm.errmess="您没有管理权限！请返回。"
		call exsm.endinfo("no")
	else
		call main()
	end if
	sub main()
		dim stocknum,regusernum,pstocknum,pstatesnum,puserstatesnum
		adminmenutop "管理首页"
		session("ex_sm")=0
		rs=stock_conn.execute("select count(*) from ex_stock")
		stocknum=rs(0)
		rs=stock_conn.execute("select count(*) from ex_user")
		regusernum=rs(0)
		rs=stock_conn.execute("select count(*) from ex_oneselfstock")
		pstocknum=rs(0)
		if pstocknum>0 then
			rs=stock_conn.execute("select count(*) from ex_oneselfstock where states=0")
			pstatesnum=rs(0)
			rs=stock_conn.execute("select count(*) from ex_oneselfstock where states=2")
			puserstatesnum=rs(0)
		end if
%>
		<table class="tableborder1" cellspacing="1" cellpadding="3" align="center" border="0" style="width:100%">
			<tr>
				<th colspan="2" height="25">-=> 股 市 信 息 统 计 <=-</th>
			</tr>
			<tr>
				<td colspan="2" class="tablebody1">股市信息：股票数量[<b><%=stocknum%></b>] 用户数量[<b><%=regusernum%></b>] 个股数量[<b><%=pstocknum%></b>]<%if pstocknum>0 then%><%if pstatesnum>0 then%> <a href="ex_sm_eachstock.asp" title="有<%=pstatesnum%>只个股尚未审核">未审核[<b><font color=red><%=pstatesnum%></font></b>]</a><%end if%><%if puserstatesnum>0 then%> <a href="ex_sm_eachstock.asp" title="有<%=puserstatesnum%>只个股等待再次批准">待批准[<b><font color=red><%=puserstatesnum%></font></b>]</a><%end if%><%end if%> 当前版本[<b>1.7.5</b>]</td>
			</tr>
			<tr>
				<td width="50%" class="tablebody2">服务器类型：<%=request.servervariables("os")%>(ip:<%=request.servervariables("local_addr")%>)</td>
				<td width="50%" class="tablebody2">脚本解释引擎：<%=scriptengine & "/"& scriptenginemajorversion &"."&scriptengineminorversion&"."& scriptenginebuildversion %></td>
			</tr>
			<tr>
				<td class="tablebody1">股市物理路径：<%=request.servervariables("appl_physical_path")%></td>
				<td class="tablebody1">股市数据库地址：<%=stock_db%></td>
			</tr>
			<tr>
				<td class="tablebody2">fso文本读写：<%if not isobjinstalled("scripting.filesystemobject") then%><font color=red><b>×</b></font><%else%><b>√</b><%end if%></td>
				<td class="tablebody2">数据库使用：<%if not isobjinstalled("adodb.connection") then%><font color=red><b>×</b></font><%else%><b>√</b><%end if%></td>
			</tr>
		</table>
		<br>
		<table class="tableborder1" cellspacing="1" cellpadding="3" align="center" border="0" style="width:100%">
			<tr>
				<th colspan="2" height="25">-=> 股 市 快 捷 方 式 <=-</th>
			</tr>
			<tr>
				<form name="form1" method="post" action="ex_sm_admin_user.asp?action=userlist&search=search">
				<td width="30%" class="tablebody1">查找用户：</td>
				<td width="70%" class="tablebody1"><input type="text" name="username" size="20">&nbsp;<input type="checkbox" name="usernamechk" value="yes" checked>完全匹配&nbsp;<input type="submit" name="submit" value="查询客户"></td>
				</form>
			</tr>
			<tr>
				<td class="tablebody2">功能链接：</td>
				<td class="tablebody2"><a href="ex_sm_admin_gupiao.asp?action=newstock">新股上市</a> | <a href="ex_sm_admin_user.asp">奖扣管理</a></td>
			</tr>
			<tr>
				<td class="tablebody1">更新数据：</td>
				<td class="tablebody1"><a href="ex_sm_admin_data.asp?action=update1">重新计算股票经营权</a> | <a href="ex_sm_admin_data.asp?action=update2">重新计算资产排名</a></td>
			</tr>
		</table>
		<br>
		<table class="tableborder1" cellspacing="1" cellpadding="3" align="center" border="0" style="width:100%">
			<tr>
				<th colspan=2 height=25>-=> 股 市 其 它 信 息 <=-</th>
			</tr>
			<tr>
				<td width="30%" class="tablebody1">开发人员：</td>
				<td width="70%" class="tablebody1">cnxk</td>
			</tr>
			<tr>
				<td class="tablebody2">支持论坛：</td>
				<td class="tablebody2"><a href="http://www.czie.com/bbs/" target="_blank">幻日论坛</a></td>
			</tr>
			<tr>
				<td class="tablebody1">联系方式：</td>
				<td class="tablebody1">cnxk：(qq)29510683<br>无限工作室：<a href="http://www.czie.com/" target="_blank">http://www.czie.com</a><br>幻日论坛　：<a href="http://www.czie.com/bbs/" target="_blank">http://www.czie.com/bbs/</a></td>
			</tr>
			<tr>
				<td class="tablebody2">版权信息：</td>
				<td class="tablebody2">Copyright &copy;2003 - 2005 <a href="http://www.czie.com/" target="_blank">ExSm 1.7.5</a></td>
			</tr>
		</table>
<%
		adminmenubottom
		exsm.rootshowa
	end sub
	function isobjinstalled(strclassstring)
		on error resume next
		isobjinstalled=false
		err=0
		dim xtestobj
		set xtestobj=server.createobject(strclassstring)
		if 0 = err then isobjinstalled=true
		set xtestobj=nothing
		err = 0
	end function
%>