www.gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/admin.asp
<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"-->
<%
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>当前使用版本为 购物系统v2009 </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%>
<a href="aspcheck.asp">>>查看更详细服务器信息检测</a></td>
</tr>
<tr>
<td colspan=2>
<a href="setpay.asp"><font color=red>网络支付</font></a>：主要用于用户购买商品进行在线支付（汇款）的服务</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="form2" 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>
模糊查询
<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="managegoods.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>
<!--#include file="bjxfoot.asp"-->
</body></html>