📄 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"-->
<!--#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%>
<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="2" cellspacing="1" bgcolor="#6a7f9a">
<tr>
<td colspan="2" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">官方信息（建议保留此信息 我们将会不定期发布更新信息）</font></b></td>
</tr><tr>
<td ><script src="http://www.iheeo.com/eshop.js" type="text/javascript"></script></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>
模糊查询
<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>
<div align="center">
<table class="tableBorder" width="90%" border="0" cellpadding="4" cellspacing="1" >
<tr>
<td colspan="2" align="center" background="../images/admin_bg_1.gif" height="25">
<font color="#FFFFFF"><b>易和阳光</b></font><b><font color="#ffffff">购物商城</font></b></td>
</tr>
<tr>
<td width="8%" valign="top" > 程序开发：</td>
<td width="80%" >由 瞬间思路 二次开发</td>
</tr>
<tr>
<td valign="top" > 联系方法：</td>
<td >13319885360</td>
</tr>
<tr>
<td valign="top" > 程序说明：</td>
<td >
本程序由瞬间思路二次开发，原程序为伴江行商城购物系统，程序修改了75%以上的代码及增加了部分功能。</td>
</tr>
<tr>
<td valign="top" > 开发方向：</td>
<td >
本程序将使用ASP持续开发，数据库为ACCESS及SQL储存过程版（后续）并且不断增加新的功能。</td>
</tr>
</table>
</div>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -