www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/admin.asp
<html><head><title>商城管理系统</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="../img/css.css" rel="stylesheet" type="text/css"> <style> BODY { SCROLLBAR-FACE-COLOR: #e7e7e7; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #d4d0c8; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #f7f7f7; SCROLLBAR-DARKSHADOW-COLOR: #e7e7e7; } .style3 {color: #FF6600} </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="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF"> <tr bgcolor="#dfdfdf"> <td height="25" colspan="2" align="center"><b>服务器信息统计</font></b></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%"> 服务器类型:<font face="Verdana"><%=Request.ServerVariables("OS")%> (IP:</font><%=Request.ServerVariables("LOCAL_ADDR")%>)</td> <td width="50%"> <% 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 bgcolor="#f2f2f2"> <td width="50%"> 返回服务器的主机名、DNS别名或IP地址:<%=Request.ServerVariables("SERVER_NAME")%></td> <td width="50%"> <% 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 " <font color=green><b>√</b></font> " & getver(theInstalledObjects(10)) End If Response.Write vbCrLf %></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%"> 脚本解释引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td> <td width="50%"> <% Response.Write theInstalledObjects(16) Response.Write "<font color=#888888>(w3 Jmail 收发信)</font>" If Not IsObjInstalled(theInstalledObjects(16)) Then Response.Write " <font color=red><b>×</b></font>" Else Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(16)) End If Response.Write vbCrLf %></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%"> 脚本超时时间:<%=Server.ScriptTimeout%> 秒</td> <td width="50%"> <% Response.Write theInstalledObjects(17) Response.Write "<font color=#888888>(WIN虚拟SMTP 发信)</font>" If Not IsObjInstalled(theInstalledObjects(17)) Then Response.Write " <font color=red><b>×</b></font>" Else Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(17)) End If Response.Write vbCrLf %></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%" bgcolor="#f2f2f2"> 服务器端口:<%=Request.ServerVariables("SERVER_PORT")%></td> <td width="50%"> <% Response.Write theInstalledObjects(18) Response.Write "<font color=#888888>(ASPemail 发信)</font>" If Not IsObjInstalled(theInstalledObjects(18)) Then Response.Write " <font color=red><b>×</b></font>" Else Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(18)) End If Response.Write vbCrLf %></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%"> 站点物理路径:<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td> <td width="50%"> <% Response.Write theInstalledObjects(19) Response.Write "<font color=#888888>(ASPemail 发信)</font>" If Not IsObjInstalled(theInstalledObjects(19)) Then Response.Write " <font color=red><b>×</b></font>" Else Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(19)) End If Response.Write vbCrLf %></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%"> 服务器IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%></td> <td width="50%"> <% Response.Write theInstalledObjects(20) Response.Write "<font color=#888888>(dkQmail 发信)</font>" If Not IsObjInstalled(theInstalledObjects(20)) Then Response.Write " <font color=red><b>×</b></font>" Else Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(20)) End If Response.Write vbCrLf %></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%"> 服务器CPU个数:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td> <td width="50%"> <% Response.Write theInstalledObjects(21) Response.Write "<font color=#888888>(Geocel 发信)</font>" If Not IsObjInstalled(theInstalledObjects(21)) Then Response.Write " <font color=red><b>×</b></font>" Else Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(21)) End If Response.Write vbCrLf %></td> </tr> <tr bgcolor="#f2f2f2"> <td width="50%"> 服务器时间:<%=now%></td> <td width="50%"> <% Response.Write theInstalledObjects(22) Response.Write "<font color=#888888>(IISemail 发信)</font>" If Not IsObjInstalled(theInstalledObjects(22)) Then Response.Write " <font color=red><b>×</b></font>" Else Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(22)) End If Response.Write vbCrLf %> </td> </tr> </table><br> <table class="tableBorder" width="96%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td align="center" bgcolor="#dfdfdf"><b>搜 索 用 户</font></b></td> </tr> <tr> <td height="50" bgcolor="#f2f2f2"> <table width="96%" 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="96%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td align="center" bgcolor="#dfdfdf"><b>搜 索 商 品</font></b></td> </tr> <tr bgcolor="#f2f2f2"> <form name="form2" method="post" action="managebook.asp"> <td height="50"> <table width="96%" 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="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF"> <tr bgcolor="#dfdfdf"> <td height="25" colspan="2" align="center"><b>掌柜网店购物系统</font></b></td> </tr> <tr> <td width="20%" bgcolor="#f2f2f2"> 程序开发:</td> <td width="80%" bgcolor="#f2f2f2">http://www.haoyutech.com by:haoyu</td> </tr> <tr> <td bgcolor="#f2f2f2"> 联系方法:</td> <td bgcolor="#f2f2f2">TEL:0551-3168360、13866126900 E-mail:hechunhua@ah163.com QQ:78259909,30341146</td> </tr> <tr> <td bgcolor="#f2f2f2"> 程序说明:</td> <td bgcolor="#f2f2f2"> 本程序由Haoyu制作维护,当前使用版本为 Access数据库 Version 3.0<br> 各个管理项目中需要注意的地方都有标明,请注意查看清楚后再进行操作。<br> 如有什么问题或程序出错话尽快联系我们以便升级程序。<br> 如果您需要使用商业合作,请联系我,谢谢!</td> </tr> </table> <br> </body></html>