aa_admin.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

menu(4,4)="<A HREF=Aa_NeClass.asp?Action=Manage target=main>新闻类别管理</A>@@41"
menu(4,5)="<A HREF=Aa_Content.asp?Action=Edit&xSelect=News target=main>新闻免责声明</A>@@42"
menu(5,0)="下载中心管理"
menu(5,1)="<A HREF=Aa_Down.asp?Action=Add target=main>软件添加</A>@@43"
menu(5,2)="<A HREF=Aa_Down.asp?Action=Manage target=main>软件管理</A>@@44"
menu(5,3)="<A HREF=Aa_DoClass.asp?Action=Add target=main>软件类别添加</A>@@45"
menu(5,4)="<A HREF=Aa_DoClass.asp?Action=Manage target=main>软件类别管理</A>@@46"
menu(5,5)="<A HREF=Aa_Content.asp?Action=Edit&xSelect=Down target=main>软件下载须知</A>@@47"
menu(6,0)="站内论坛管理"
menu(6,1)="<A HREF=Aa_Board.asp?Action=Add target=main>论坛版面添加</A>@@48"
menu(6,2)="<A HREF=Aa_Board.asp?Action=Manage target=main>论坛版面管理</A>@@49"
menu(6,3)="<A HREF=Aa_Bbs.asp?Action=Delbbs target=main>论坛帖子删除</A>@@50"
menu(6,4)="<A HREF=Aa_Picture.asp?Action=Face target=main>发帖表情管理</A>@@51"
menu(7,0)="用户资料管理"
menu(7,1)="<A HREF=Aa_User.asp?Action=Add target=main>注册用户添加</A>@@52"
menu(7,2)="<A HREF=Aa_User.asp?Action=Manage target=main>注册用户管理</A>@@53"
menu(7,3)="<A HREF=Aa_Admin.asp?Action=Add target=main>管理员添加</A>@@54"
menu(7,4)="<A HREF=Aa_Admin.asp?Action=Manage target=main>管理员管理</A>@@55"
menu(7,5)="<A HREF=Aa_Group.asp?Action=Add target=main>用户组添加</A>@@56"
menu(7,6)="<A HREF=Aa_Group.asp?Action=Manage target=main>用户组管理</A>@@57"
menu(7,7)="<A HREF=Aa_Email.asp?Action=Add target=main>用户邮件发送</A>@@58"
menu(7,8)="<A HREF=Aa_Email.asp?Action=Const target=main>邮件设置</A>@@59"
menu(7,9)="<A HREF=Am_Mess.asp?Action=To target=main>用户短信发送</A>@@60"
menu(7,10)="<A HREF=Am_Mess.asp?Action=Sc target=main>短信管理</A>@@61"
menu(7,11)="<A HREF=Aa_Picture.asp?Action=Picture target=main>用户头像管理</A>@@62"
menu(8,0)="网站数据管理"
menu(8,1)="<A HREF=Backup.asp?Action=Bac target=main>数据库在线备份</A>@@63"
menu(8,2)="<A HREF=Backup.asp?Action=Hf target=main>数据库在线恢复</A>@@64"
menu(8,3)="<A HREF=Backup.asp?Action=Zi target=main>数据库在线压缩</A>@@65"
menu(8,4)="<A HREF=Sysinfo.asp?Action=Sys target=main>系统空间占用情况</A>@@66"
Dim j,tmpmenu,menuname,menurl
Set rs=conn.Execute("select * from Tx_Admin where Admin_Id=" & Rs_edit("Admin_Id"))
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action='Aa_Admin.asp?Action=sFlag&Id=" & Rs_edit("Admin_Id") & "'>"
For i=0 To ubound(menu,1)
strIfa = strIfa & "<TR><TD WIDTH=20% HEIGHT=30 CLASS=Table8>" & menu(i,0) & "</TD>"&_
                  "<TD CLASS=Table8>"
On error resume Next
For j=1 to ubound(menu,2)
IF isempty(menu(i,j)) THEN exit For
tmpmenu=split(menu(i,j),"@@")
menuname=tmpmenu(0)
menurl=tmpmenu(1)
strIfa = strIfa & "<INPUT TYPE=checkbox CLASS=radio_all NAME=AdminFLag  VALUE='" & menurl & "' "
IF instr(rs("Admin_Flag"),menurl)>0 THEN
strIfa = strIfa & " checked "
End IF
strIfa = strIfa & " > " & menurl & "." & menuname & "　　"
Next
strIfa = strIfa & "</TD></TR>"
Next
strIfa = strIfa & "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT TYPE=checkbox CLASS=radio_all NAME=chkall VALUE=on onclick=CheckAll(this.form)></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "sFlag"
	Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_Admin Where Admin_Id=" & Id
        Rs.open Sql,Conn,1,3
            IF Not rs.eof And Not rs.bof THEN
                Rs("Admin_FLag")=replace(Request.form("AdminFLag")," ","")
            Rs.UpDate
			End IF
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="修改成功！"
	    Call Form_Saveok()
Case "sAdd"
dim AdminUser
IF Request.form("AdminUser")<>"" THEN
Set Rs=server.createobject("adodb.recordSet")
Sql="Select * from Tx_User where User_Name='" & Request.form("AdminUser") & "'"
Rs.open Sql,Conn,1,1
IF Rs.RecordCount=0 THEN
AdminUser=1
End IF
Rs.Close
Set Rs=Nothing
End IF
IF Request.form("AdminUser")="" THEN
Errorst="请输入前台用户名！"
founderr=True
ElseIF AdminUser=1 THEN
Errorst="前台无此用户！"
founderr=True
ElseIF Request.form("AdminName")="" THEN
Errorst="请输入管理员帐号！"
founderr=True
ElseIF Request.form("AdminPass")="" THEN
Errorst="请输入管理员密码！"
founderr=True
ElseIF Request.form("AdminPass")<>Request.form("AdminPasstoo") THEN
Errorst="确认密码和原密码不一致！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_Admin"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Admin_Username")=Request.form("AdminUser")
		Rs("Admin_Name")=Request.form("AdminName")
		Rs("Admin_Pass")=Md5(Request.form("AdminPass"))
		Rs.update
		Rs.Close
		Set Rs=Nothing
	Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_User Where User_Name='" & Request.form("AdminUser") & "'"
        Rs.open Sql,Conn,1,3
		    Rs("User_Group")=-1
		Rs.update
		Rs.Close
		Set Rs=Nothing
		ToHistory="Aa_Admin.asp?Action=Manage"
		saveok="管理员：[ " & Request.form("AdminName") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("AdminName")="" THEN
Errorst="请输入管理员帐号！"
founderr=True
ElseIF Request.form("AdminPass")<>Request.form("AdminPasstoo") THEN
Errorst="确认密码和原密码不一致！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordSet")
        Sql="Select * From Tx_Admin where Admin_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Admin_Name")=Request.form("AdminName")
		IF Request.form("AdminPass")<>"" THEN
		Rs("Admin_Pass")=Md5(Request.form("AdminPass"))
		End IF
		Rs.update
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="管理员：[ " & Request.form("AdminName") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "Del"
    Conn.Execute "Delete From Tx_Admin Where Admin_Name<>'" & Session("Loginadmin") & "' And Admin_Id=" & Id
    ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_EndBody()
%>