<!--
BOB网店系统 BOB网上商城系统 
版本: BOB_Shop_Sys V1.0 Sty1
BOB网站: www.IT-BOB.com
联系QQ: 44796253  5839874
E-mail: zjj5483@yahoo.com.cn
        zjj5483@126.com
博搏网络 BOB_OA网络智能办公系统
BOB餐饮娱乐管理系统 BOB网店系统
专业从事 企业单位政府网站建设 个人网站建设 行业管理软件制作 软件破解 Flash制作 网络组建 小区无线网组建 校园网组建 等项目
-->
<html><head><title>BOB网店系统后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	color: #000000;
}
body {
	background-color: #C7D4F7;
}
-->
</style></head>
<body>
<%

Dim theInstalledObjects(24)
    theInstalledObjects(9) = "Scripting.FileSystemObject"
    theInstalledObjects(10) = "adodb.connection"
    theInstalledObjects(16) = "JMail.SmtpMail"
    theInstalledObjects(17) = "CDONTS.NewMail"
    theInstalledObjects(18) = "Persits.MailSender"
    theInstalledObjects(19) = "SMTPsvg.Mailer"
    theInstalledObjects(20) = "DkQmail.Qmail"
    theInstalledObjects(21) = "Geocel.Mailer"
    theInstalledObjects(22) = "IISmail.Iismail.1"
'检查组件是否被支持
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

'检查组件版本
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<td height="25" colspan="2" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">服务器信息统计</font></b></td>
</tr>
<tr >
  <td colspan="2">BOB_Shop_Sys V1.0 网站购物管理系统是由BOB博搏网络工作室开发完成，版权所有、肆意抄袭、模仿必究！</td>
  </tr>
<tr >
<td width="50%">&nbsp;服务器类型：<font face="Verdana"><%=Request.ServerVariables("OS")%> 
（IP：</font><%=Request.ServerVariables("LOCAL_ADDR")%>）</td>
<td width="50%" >
&nbsp;<%
      Response.Write theInstalledObjects(9)
      If Not IsObjInstalled(theInstalledObjects(9)) Then 
        Response.Write "<font color=red><b> ×</b></font>"
      Else
        Response.Write getver(theInstalledObjects(9)) & "<font color=#888888>(FSO 文本文件读写)</b><font color=green><b> √</b></font> "
      End If
      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;返回服务器的主机名、DNS别名或IP地址：<%=Request.ServerVariables("SERVER_NAME")%></td>
<td width="50%">
&nbsp;<%
      Response.Write theInstalledObjects(10)
   	  Response.Write "<font color=#888888>(ACCESS 数据库)</font>"
      If Not IsObjInstalled(theInstalledObjects(10)) Then 
        Response.Write "<font color=red><b> ×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(10))
      End If
      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td width="50%">
&nbsp;<%
      Response.Write theInstalledObjects(16)
		Response.Write "<font color=#888888>(w3 Jmail 收发信)</font>"

      If Not IsObjInstalled(theInstalledObjects(16)) Then 
        Response.Write "&nbsp;<font color=red><b>×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(16))
      End If

      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
<td width="50%">&nbsp;<%
      Response.Write theInstalledObjects(17)
	  Response.Write "<font color=#888888>(WIN虚拟SMTP 发信)</font>"

      If Not IsObjInstalled(theInstalledObjects(17)) Then 
        Response.Write "&nbsp;<font color=red><b>×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(17))
      End If

      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;服务器端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
<td width="50%">&nbsp;<%
      Response.Write theInstalledObjects(18)
	  Response.Write "<font color=#888888>(ASPemail 发信)</font>"

      If Not IsObjInstalled(theInstalledObjects(18)) Then 
        Response.Write "&nbsp;<font color=red><b>×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(18))
      End If

      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;站点物理路径：<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
<td width="50%">&nbsp;<%
      Response.Write theInstalledObjects(19)
	  Response.Write "<font color=#888888>(ASPemail 发信)</font>"

      If Not IsObjInstalled(theInstalledObjects(19)) Then 
        Response.Write "&nbsp;<font color=red><b>×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(19))
      End If

      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;服务器IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td width="50%">&nbsp;<%
      Response.Write theInstalledObjects(20)
	  Response.Write "<font color=#888888>(dkQmail 发信)</font>"

      If Not IsObjInstalled(theInstalledObjects(20)) Then 
        Response.Write "&nbsp;<font color=red><b>×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(20))
      End If

      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;服务器CPU个数：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
<td width="50%">&nbsp;<%
      Response.Write theInstalledObjects(21)
	  Response.Write "<font color=#888888>(Geocel 发信)</font>"

      If Not IsObjInstalled(theInstalledObjects(21)) Then 
        Response.Write "&nbsp;<font color=red><b>×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(21))
      End If

      Response.Write vbCrLf
%></td>
</tr>
<tr >
<td width="50%">&nbsp;服务器时间：<%=now%></td>
<td width="50%">&nbsp;<%
      Response.Write theInstalledObjects(22)
	  Response.Write "<font color=#888888>(IISemail 发信)</font>"

      If Not IsObjInstalled(theInstalledObjects(22)) Then 
        Response.Write "&nbsp;<font color=red><b>×</b></font>"
      Else
        Response.Write "&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(22))
      End If

      Response.Write vbCrLf
%>
</td>
</tr>
</table>
<br>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<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>
模糊查询&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="#FFFFFF">
<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>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<td colspan="2" align="center" height="25" background="../images/admin_bg_1.gif"><b><font color="#ffffff">BOB商城购物系统</font></b></td>
</tr>
<tr> 
<td width="20%" valign="top" >&nbsp;程序开发：</td>
<td width="80%" > 河北廊坊东方大学城BOB博搏网络科技有限公司，BOB网络工作室</td>
</tr>
<tr>
<td valign="top" >&nbsp;联系方法：</td>
<td >程序事业部：E-mail:zjj5483@126.com QQ:44796253<br>
  主机事业部：E-mail:zjj5483@yahoo.com.cn QQ:5839874<br>
  <a href="http://www.it-bob.com/" target="_blank">http://www.IT-BOB.com</a><br>
</tr>
<tr>
<td valign="top" >&nbsp;程序说明：</td>
<td >
本程序由BOB网络 The Best Of Best Network <br>
各个管理操作页面中需要注意的地方都有标明，请注意查看清楚后再进行操作。<br>
如有什么问题或程序出错话尽快联系我们以便升级程序。<br>
如果您需要使用商业合作，请联系我，谢谢！</td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</body></html>