📄 ad_main.asp

📁 凡人网络购物系统 v8.0 中文版
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<%
admin_name=Request.Cookies("venshop")("admin_name")
admin_class=Request.Cookies("venshop")("admin_class")
Response.Buffer = False
Dim ObjTotest(4,4)
ObjTotest(0,0) = "Scripting.FileSystemObject"
ObjTotest(0,1) = "(FSO 文本文件读写)"
ObjTotest(1,0) = "Adodb.connection"
ObjTotest(1,1) = "(ADO 数据对象)"
ObjTotest(2,0) = "SoftArtisans.FileUp"
ObjTotest(2,1) = "(SA-FileUp 文件上传)"
ObjTotest(3,0) = "JMail.SmtpMail"
ObjTotest(3,1) = "(Dimac JMail 邮件收发)"
public IsObj,VerObj
dim i
for i=0 to 3
on error resume next
IsObj=false
VerObj=""
dim TestObj
set TestObj=server.CreateObject(ObjTotest(i,0))
If -2147221005 <> Err then
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
ObjTotest(i,2)=IsObj
ObjTotest(i,3)=VerObj
next
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
dim TestObj
set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err then
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
End sub
%>
<body topmargin="10" leftmargin="10" rightmargin="10" bottommargin="10">
<table width=500 border=0 cellpadding=3 cellspacing=1 bgcolor="#D7D7D7">
<tr><td colspan="2" bgcolor="#F2F2F2"><b>服务器参数：</b></td></tr>
<tr><td bgcolor="#FFFFFF" width="100" align="right">服务器名</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("SERVER_NAME")%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">服务器IP</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("LOCAL_ADDR")%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">服务器端口</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("SERVER_PORT")%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">服务器时间</td><td bgcolor="#FFFFFF"><%=now%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">IIS版本</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">脚本超时时间</td><td bgcolor="#FFFFFF"><%=Server.ScriptTimeout%> 秒</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">本文件路径</td><td bgcolor="#FFFFFF"><%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">服务器CPU数量</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">解译引擎</td><td bgcolor="#FFFFFF"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
<tr>
	<td bgcolor="#FFFFFF" align="right">操作系统</td><td bgcolor="#FFFFFF"><%=Request.ServerVariables("OS")%></td>
</tr>
<tr><td bgcolor="#FFFFFF" align="right">组件支持</td><td bgcolor="#FFFFFF"><%For i=0 to 3%>
<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></font>
&nbsp;<%
If Not ObjTotest(i,2) Then 
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
End If%><br>
<%next%></td></tr>
</table>
<br>
<table cellSpacing="1" cellPadding="3" width="500" border="0" bgcolor="#D7D7D7" id="table1"><tr>
<td bgcolor="#F2F2F2" colspan="2"><b>网站统计信息：</b></td></tr>
<tr><td bgcolor="#FFFFFF" width="100" align="right">商品</td><td bgcolor="#FFFFFF"><%=Conn.Execute("Select count(*) from venshop_hw")(0)%>件</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">分类</td><td bgcolor="#FFFFFF"><%=Conn.Execute("Select count(*) from venshop_sort")(0)%>大类, <%=Conn.Execute("Select count(*) from venshop_nsort")(0)%>小类</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">品牌</td><td bgcolor="#FFFFFF"><%=Conn.Execute("Select count(*) from venshop_pinpai")(0)%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">访问量</td><td bgcolor="#FFFFFF"><script src="tj_ven.asp?style=text"></script>次</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">用户</td><td bgcolor="#FFFFFF"><%=Conn.Execute("Select count(*) from venshop_user")(0)%>位</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">管理员</td><td bgcolor="#FFFFFF"><%=Conn.Execute("Select count(*) from venshop_admin where admin_class=0")(0)%>总管理员, <%=Conn.Execute("Select count(*) from venshop_admin where admin_class=1")(0)%>产品管理员, <%=Conn.Execute("Select count(*) from venshop_admin where admin_class=2")(0)%>订单管理员</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">订单</td><td bgcolor="#FFFFFF"><%=Conn.Execute("Select count(*) from venshop_sub")(0)%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">新闻</td><td bgcolor="#FFFFFF"><%=Conn.Execute("Select count(*) from venshop_article")(0)%></td></tr>
</table>
<br>
<table cellSpacing="1" cellPadding="5" width="500" border="0" bgcolor="#D7D7D7"><tr>
<td bgcolor="#F2F2F2"><b>管理选项：</b></td></tr>
<tr><td bgcolor="#FFFFFF">
	<p style="line-height: 200%; margin-top: 0; margin-bottom: 0">
欢迎<%=admin_name%>，您的等级为
<%
if admin_class="0" then response.write"总管理员，拥有所有管理权限"
if admin_class="1" then response.write"产品管理员，拥有产品及分类品牌的管理权限"
if admin_class="2" then response.write"订单管理员，拥有订单及相关管理权限"
%>。<br>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sub where sub_zt=1"
rs.open sql,conn,1,1
if rs.eof then
response.write "没有新订单，<a href=ad_sub.asp>点击查看历史订单</a>"
else
response.write ""&rs.recordcount&"个未处理订单，<a href=ad_sub.asp?zt=1><font color=red>点击查看</font></a>，<a href=ad_sub.asp>点击查看所有订单</a><br>"
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sub where sub_tousu=1"
rs.open sql,conn,1,1
if rs.eof then
    response.write ""
else
response.write ""&rs.recordcount&"个投诉订单，<a href=ad_subr.asp><font color=red>点击查看</font></a><br>"
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_comment where adminfu<>"" order by id DESC"
rs.open sql,conn,1,1
if rs.eof then
response.write ""
else
response.write ""&rs.recordcount&"个未处理商品评论，<a href=ad_mly.asp><font color=red>点击查看</font></a><br>"
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_hw where hw_kucun<=0 order by hw_id DESC"
rs.open sql,conn,1,1
if rs.eof then
response.write ""
else
response.write ""&rs.recordcount&"个缺货产品请及时补货，<a href=ad_delhw.asp?quehuo=yes><font color=red>点击查看</font></a><br>"
end if
rs.close
set rs=nothing
%></p>
</td></tr></table>
<table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:010-80928177&nbsp; QQ:57152557/5404818 Email/Msn:</font><a href="mailto:Ser@VenShop.Com"><font color="#FF0000">Ser@VenShop.Com</font></a></td>
</tr></table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -