📄 aa_admin.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_Admin.asp?Action=Add>添加管理员</A>　|　<A HREF=Aa_Admin.asp?Action=Manage>管理员列表</A>"
Select Case Action
Case "Add"
Call Page_AdminFlag(54)
Page_BootmName="添加管理员"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_Admin.asp?Action=sAdd>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>前台用户名：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='AdminUser' TYPE=text id='AdminUser' size=30> <FONT COLOR=ff0000>*</FONT>　　如果在前台还没有注册，请先<A HREF='Aa_User.asp?Action=Add'><FONT COLOR='ff0000'>点击此处</FONT></A>添加一个用户</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>管理员帐号：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='AdminName' TYPE=text id='AdminName' size=30> <FONT COLOR=ff0000>*</FONT>　　帐号不能少于5个字符</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>管理员密码：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='AdminPass' TYPE=password id='AdminPass' size=20> <FONT COLOR=ff0000>*</FONT>　　密码不能少于6个字符</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>密码确认：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='AdminPasstoo' TYPE=password id='AdminPasstoo' size=20> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reSet id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(54)
Set Rs_edit=server.Createobject("Adodb.RecordSet")
Sql="Select * from Tx_Admin Where Admin_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="管理员修改 > " & Rs_edit("Admin_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action='Aa_Admin.asp?Action=sEdit&Id=" & Rs_edit("Admin_Id") & "'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>前台用户名：</TD>"&_
         "<TD CLASS=Table8>" & Rs_edit("Admin_Username") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>管理员帐号：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='AdminName' VALUE='" & Rs_edit("Admin_Name") & "' TYPE=text id='AdminName' size=30> <FONT COLOR=ff0000>*</FONT>　　帐号不能少于5个字符</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>管理员密码：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='AdminPass' TYPE=password id='AdminPass' size=20>　　如果不修改请留空</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>密码确认：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='AdminPasstoo' TYPE=password id='AdminPasstoo' size=20></TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT CLASS=submit_all NAME=ok TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reSet id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "Manage"
Call Page_AdminFlag(55)
Page_BootmName="管理员列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.RecordSet")
Sql="Select * From Tx_Admin order by Admin_Id"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD WIDTH=16% CLASS=Table6>用户名</TD><TD WIDTH=16% CLASS=Table6>前台用户名</TD><TD WIDTH=8% CLASS=Table6>登陆次数</TD><TD WIDTH=17% CLASS=Table6>最后登陆时间</TD><TD CLASS=Table6>最后登陆IP</TD><TD WIDTH=22% CLASS=Table6>操作</TD></TR>"
while Not Rs_Manage.eof
strIfa = strIfa & "<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
				  "<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("Admin_Id") & "</TD>"&_
                  "<TD><A HREF=Aa_Admin.asp?Action=Edit&Id=" & Rs_Manage("Admin_Id") & ">" & Rs_Manage("Admin_Name") & "</A></TD>"&_
                  "<TD ALIGN=center>" & Rs_Manage("Admin_Username") & "</TD>"&_
                  "<TD ALIGN=center>" & Rs_Manage("Admin_Login_Count") & "</TD>"&_
                  "<TD>" & Rs_Manage("Admin_Login_Date") & "</TD>"&_
                  "<TD>" & Rs_Manage("Admin_Login_Ip") & "</TD>"&_
                  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_Admin.asp?Action=Edit&Id=" & Rs_Manage("Admin_Id") & ">修改</A> | "&_
                  "<A HREF=Aa_Admin.asp?Action=Flag&Id=" & Rs_Manage("Admin_Id") & ">编辑权限</A> | "&_
                  "<A HREF=Aa_Admin.asp?Action=Del&Id=" & Rs_Manage("Admin_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A>"&_
                  "</TD>"&_
                  "</TR>"
Rs_Manage.moveNext
wEnd 
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "</TABLE>"
Call Page_aTable(0,0)
Case "Flag"
Call Page_AdminFlag(55)
Dim AdminFLag
Set Rs_edit=server.Createobject("Adodb.RecordSet")
Sql="Select * from Tx_Admin Where Admin_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="编辑管理员权限 > " & Rs_edit("Admin_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Dim menu(8,11),trs,k
menu(0,0)="网站常规管理"
menu(0,1)="<a href=Aa_Const.asp?Action=Const>基本参数管理</a>@@1"
menu(0,2)="<a href=Aa_Const.asp?Action=Cl>基本参数还原</a>@@2"
menu(0,3)="<a href=Aa_Menu.asp?Action=Add>导航菜单添加</a>@@3"
menu(0,4)="<a href=Aa_Menu.asp?Action=Manage>导航菜单管理</a>@@4"
menu(0,5)="<a href=Aa_upload.asp?Action=Pic>上传文件管理</a>@@6"
menu(0,6)="<a href=Aa_Log.asp>后台管理登陆日志</a>@@7"
menu(0,7)="<a href=Sysinfo.asp?Action=Asp>服务器信息(ASP探针)</a>@@8"
menu(1,0)="网站插件管理"
menu(1,1)="<A HREF=Aa_Inform.asp?Action=Add>网站公告添加</A>@@9"
menu(1,2)="<A HREF=Aa_Inform.asp?Action=Manage>网站公告管理</A>@@10"
menu(1,3)="<A HREF=Aa_Link.asp?Action=Add>合作伙伴添加</A>@@11"
menu(1,4)="<A HREF=Aa_Link.asp?Action=Manage>合作伙伴管理</A>@@12"
menu(1,5)="<A HREF=Am_Guest.asp>在线留言系统</A>@@13"
menu(1,6)="<A HREF=Aa_Vote.asp?Action=Add>网站调查添加</A>@@14"
menu(1,7)="<A HREF=Aa_Vote.asp?Action=Manage>网站调查管理</A>@@15"
menu(1,8)="<A HREF=Aa_Count.asp?Action=Main>网站统计系统</A>@@16"
menu(1,9)="<A HREF=Aa_Limit.asp?Action=IP>IP限制来访</A>@@17"
menu(1,10)="<A HREF=Aa_Limit.asp?Action=S>IP地址查询</A>@@18"
menu(2,0)="公司信息管理"
menu(2,1)="<A HREF=Aa_About.asp?Action=Add>基本信息添加</A>@@19"
menu(2,2)="<A HREF=Aa_About.asp?Action=Manage>基本信息管理</A>@@20"
menu(2,3)="<A HREF=Aa_Work.asp?Action=Add>工程案例添加</A>@@21"
menu(2,4)="<A HREF=Aa_Work.asp?Action=Manage>工程案例管理</A>@@22"
menu(2,5)="<A HREF=Aa_Sells.asp?Action=Add>营销网络添加</A>@@23"
menu(2,6)="<A HREF=Aa_Sells.asp?Action=Manage>营销网络管理</A>@@24"
menu(2,7)="<A HREF=Aa_Honor.asp?Action=Add>企业荣誉添加</A>@@25"
menu(2,8)="<A HREF=Aa_Honor.asp?Action=Manage>企业荣誉管理</A>@@26"
menu(2,9)="<A HREF=Aa_Job.asp?Action=Add>招聘信息添加</A>@@27"
menu(2,10)="<A HREF=Aa_Job.asp?Action=Manage>招聘信息管理</A>@@28"
menu(3,0)="产品展示管理"
menu(3,1)="<A HREF=Aa_Products.asp?Action=Add>产品添加</A>@@29"
menu(3,2)="<A HREF=Aa_Products.asp?Action=Manage>产品管理</A>@@30"
menu(3,3)="<A HREF=Aa_PrClass.asp?Action=Add>产品类别添加</A>@@31"
menu(3,4)="<A HREF=Aa_PrClass.asp?Action=Manage>产品类别管理</A>@@32"
menu(3,5)="<A HREF=Aa_Shop.asp?Action=Manage>产品订单管理</A>@@33"
menu(3,6)="<A HREF=Aa_Buy.asp?Action=Manage>产品询价管理</A>@@34"
menu(3,7)="<A HREF=Aa_Pay.asp?Action=Pay>支付方式</A>@@35"
menu(3,8)="<A HREF=Aa_Pay.asp?Action=Give>送货方式</A>@@36"
menu(3,9)="<A HREF=Aa_Content.asp?Action=Edit&xSelect=Products>产品订购须知</A>@@37"
menu(4,0)="新闻信息管理"
menu(4,1)="<A HREF=Aa_News.asp?Action=Add target=main>新闻添加</A>@@38"
menu(4,2)="<A HREF=Aa_News.asp?Action=Manage target=main>新闻管理</A>@@39"
menu(4,3)="<A HREF=Aa_NeClass.asp?Action=Add target=main>新闻类别添加</A>@@40"
12 下一页
⌨️ 快捷键说明

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