<html><head><title>商城管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="conn.asp"-->
<!--#include file="power.asp"-->
<%
     Dim theInstalledObjects(20)
    theInstalledObjects(0) = "MSWC.AdRotator"
    theInstalledObjects(1) = "MSWC.BrowserType"
    theInstalledObjects(2) = "MSWC.NextLink"
    theInstalledObjects(3) = "MSWC.Tools"
    theInstalledObjects(4) = "MSWC.Status"
    theInstalledObjects(5) = "MSWC.Counters"
    theInstalledObjects(6) = "IISSample.ContentRotator"
    theInstalledObjects(7) = "IISSample.PageCounter"
    theInstalledObjects(8) = "MSWC.PermissionChecker"
    theInstalledObjects(9) = "Scripting.FileSystemObject"
    theInstalledObjects(10) = "adodb.connection"    
    theInstalledObjects(11) = "SoftArtisans.FileUp"
    theInstalledObjects(12) = "SoftArtisans.FileManager"
    theInstalledObjects(13) = "JMail.SMTPMail"	'Jamil 4.2
    theInstalledObjects(14) = "CDONTS.NewMail"
    theInstalledObjects(15) = "Persits.MailSender"
    theInstalledObjects(16) = "LyfUpload.UploadFile"
    theInstalledObjects(17) = "Persits.Upload.1"
	theInstalledObjects(18) = "JMail.Message"	'Jamil 4.3
	theInstalledObjects(19) = "Persits.Upload"
	theInstalledObjects(20) = "SoftArtisans.FileUp"
	
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
%>
<table width="90%" border="0"  align=center cellpadding="2" cellspacing="1" class="tableBorder">
<tr >
  <td  colspan=2 background="../images/admin_bg_1.gif"><div align="center"><b><font color="#ffffff">商城信息统计</font></b></div></td>
<tr>
<tr><td colspan=2>
<%
dim userNum
set rs=conn.Execute("select count(*) from bjx_User")
userNum=rs(0)
if isnull(userNum) then userNum=0
Dim goodsNum
set rs=conn.execute("select count(*) from BJX_goods")
goodsNum=rs(0)
if isnull(goodsNum) then goodsNum=0
Dim actionNum
set rs=conn.Execute("select count(*) from BJX_action")
actionNum=rs(0)
if isnull(actionNum) then actionNum=0
%>系统信息：商品数 <B><%=goodsNum%></B> 定单数 <B><%=actionNum%></B> 用户数 <B><%=userNum%></B> 
<%

rs.close
set rs=nothing
%>
</td>
</tr>
<tr>
  <td  class="forumRowHighlight" colspan=2>
本商城<a href="http://www.Iheeo.com"><font color=red></font></a> 授权给 
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname from BJX_config ",conn,1,3
response.Write "<font color=red>"&rs("webname")&"</font>"
rs.close
set rs=nothing
%>
 使用</td>
</tr>
<tr>
  <td  class="forumRowHighlight" colspan=2>当前使用版本为 <!--#include file="../ver.asp"--></td>
</tr>
<tr>
<td width="50%"  class="forumRow">服务器类型：<%=Request.ServerVariables("OS")%>（IP:<%=Request.ServerVariables("LOCAL_ADDR")%>）</td>
<td width="50%" class="forumRow">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td width="40%" class="forumRow">FSO文本读写：<%If Not IsObjInstalled(theInstalledObjects(9)) Then%><b>×</b><%else%><b>√</b><%end if%></td>
<td width="60%" class="forumRow"><%If IsObjInstalled(theInstalledObjects(18)) Then%>Jmail4.3邮箱组件支持：<%else%>Jmail4.2组件支持：<%end if%>
<%If IsObjInstalled(theInstalledObjects(18)) or IsObjInstalled(theInstalledObjects(13)) Then%><b>√</b><%else%><b>×</b><%end if%>
&nbsp;&nbsp;<a href="aspcheck.asp">>>查看更详细服务器信息检测</a>
</td>
</tr>
<tr>
  <td colspan=2><font color=red>网络支付</font>：主要用于用户购买商品进行在线支付（汇款）的服务</td>
</tr>
<tr><td colspan=2>
<a href="backup.asp"><font color=red>数据定期备份</font></a>：请注意做好定期数据备份，数据的定期备份可最大限度的保障您论坛数据的安全
</td>
</tr>
</table>
<br>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6a7f9a">
<tr> 
<td align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">搜索用
户</font></b></td>
</tr>
<tr> 
<td height="50" > 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<form name="form" method="post" action="manageuser.asp?action=select">
<td>
<input name="namekey" type="text" id="namekey" onFocus="this.value=''" value="请输入关键字">
<input name="checkbox" type="checkbox" id="checkbox" value="1" checked>
模糊查询&nbsp;&nbsp;&nbsp;
<input type="submit" name="Submit2" value=" 开始查询 ">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table><br>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6a7f9a">
<tr> 
<td align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">搜索商
品</font></b></td>
</tr>
<tr > 
<form name="form2" method="post" action="managebook.asp">
<td height="50"> 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td>
<input name="selectkey" type="text" id="selectkey" onFocus="this.value=''" value="请输入关键字">
<select name="selectm" id="selectm">
<option value="bookname">按商品名称</option>
<option value="bookcontent">按商品说明</option>
<option value="bookid">按商品序号</option>
<option value="0">全部商品</option>
<option value="news">按新品</option>
<option value="tejia">按特价</option>
<option value="tuijian">按推荐</option>
</select>
<input type="submit" name="Submit2" value=" 开始查询 ">
</td>
</tr>
<tr>
<td height=40>除查询“所有商品”外，必须要输入关键字，才能查询<br>根据商品序号来查询时，关键字里只能输入数字。</td></tr>
</table>
</td>
</form>
</tr>
</table><br>
</body></html>
