<%@ LANGUAGE="VBSCRIPT" %> <% DbPath = SERVER.MapPath("../database/topboy-2002.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath %> <% result=Instr(1,request.ServerVariables("http_referer"),request.servervariables("http_host"),1) if result = 0 or result = null then response.redirect "manager-login.asp" end if if session("sid") <> "top" then response.redirect "manager-login.asp" end if '线路新定单总数 set rsa1=server.createobject("adodb.recordset") sql="select * from topboy_orderlist where staus='n'" rsa1.open sql,conn,3,1 a1 = rsa1.recordcount '线路历史定单总数 set rsa2=server.createobject("adodb.recordset") sql="select * from topboy_orderlist where staus='y'" rsa2.open sql,conn,3,1 a2 = rsa2.recordcount '新闻数 set rsa3=server.createobject("adodb.recordset") sql="select * from topboy_message" rsa3.open sql,conn,3,1 a3 = rsa3.recordcount '贴子数 forumdb="sanyuebbs.mdb" Set conn3 = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&forumdb&"") 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&forumdb&"") conn3.Open connstr set rsa4=server.createobject("adodb.recordset") sql="Select topic from bbs1" rsa4.open sql,conn3,3,1 a4 = rsa4.recordcount '论坛登录资料 set rsa13=server.createobject("adodb.recordset") sql="select * from admin" rsa13.open sql,conn3,3,1 a13 = rsa13("username") a14 = rsa13("password") '商品数 set rsa6=server.createobject("adodb.recordset") sql="select * from topboy_product" rsa6.open sql,conn,3,1 a6 = rsa6.recordcount %>

商品管理	网站基础信息设置
已上架商品数: <%=a6%> |	设置网站的各种参数、信息及系统管理员资料
新定单处理 / 历史定单管理	信息发布 / 管理
新定单数量: <%=a1%> | 历史定单数量: <%=a2%> |	已发布信息数: <%=a3%> |
论坛管理	数据库备份 / 数据库恢复
贴子数: <%=a4%> | 用户数: <%=a5%> |