<% '****************************************************************************************** ' Software name: xRedrobe(小红袍) Content Management System ' Version:1.0 ' Web: ' Author: 六点半 ' Copyright (C) 2005-2009 小红袍官方版权所有 '****************************************************************************************** viewHead dim errorInfo,errorPwd : errorInfo="信息填写不完整国产成人A人亚洲精V品无码人妻少妇午夜片，请检查" : errorPwd="两次密码不一致" dim typeArray,topicArray,topicDic,keyword,m_state,m_commend,repeat,playfrom,contentUrl dim action,back:action=getForm("action", "get"):back=request.ServerVariables("HTTP_REFERER") dim page,vtype,order if checkLevel()=0 then Select case action case "add":addNews case "del":delNews getForm("id","get"):echo("") case "edit":editNews case "save":saveNews case else: main End Select else Select case action case "save":saveUser case else: editNews End Select end if viewFoot Sub saveUser dim actType,ary:actType = getForm("acttype","get") dim m_username,m_pwd,m_pwd2,m_level,sqlStr,num,m_back,id select case actType case "edit" m_username = getForm("m_username","post"):m_pwd = getForm("m_pwd","post"): m_pwd2 = getForm("m_pwd2","post") :m_level = getForm("m_level","post") : m_state=getForm("m_state","post") : id=getForm("m_id","post") if isNul(m_username) or isNul(m_pwd) or isNul(m_pwd2) then die errorInfo if m_pwd<>m_pwd2 then die errorPwd 'conn.db "alter table {pre}manager alter m_pwd varchar(50)","execute" num = conn.db("select count(*) from {pre}manager where m_id<>"&id&" and m_username='"&m_username&"'","execute")(0) if num>0 then die "已经存在此管理员9er99er在线精品人妻少妇午夜片，请更换名称" sqlStr = "update {pre}manager set m_pwd='"&md5(m_pwd,32)&"' where m_pwd<>'"&m_pwd&"' AND m_id="&id conn.db sqlStr,"execute" if ""&m_back="" then m_back="UserManager.asp?username="&m_username&"&m_success=Success" echo("") end select End Sub Sub saveNews dim actType,ary:actType = getForm("acttype","get") dim m_username,m_pwd,m_pwd2,m_level,sqlStr,num,m_back,id,m_department,oldusername,sqlStr2 select case actType case "edit" m_username = getForm("m_username","post"):m_pwd = getForm("m_pwd","post"): m_pwd2 = getForm("m_pwd2","post") :m_level = getForm("m_level","post") : m_state=getForm("m_state","post") : id=getForm("m_id","post") :m_department=getForm("m_department","post"):oldusername=getForm("oldusername","post") if isNul(m_username) then die errorInfo if m_pwd<>m_pwd2 then die errorPwd if isNul(m_level) then m_level=3 if isNul(m_state) then m_state=1 'conn.db "alter table {pre}manager alter m_pwd varchar(50)","execute" num = conn.db("select count(*) from {pre}manager where m_id<>"&id&" and m_username='"&m_username&"'","execute")(0) if num>0 then die "已经存在此管理员成人午夜高颜质少妇人妻少妇午夜片96国产揄拍国产精品人妻，请更换名称" if isNul(m_pwd)=false AND isNul(m_pwd2)=false then sqlStr = "update {pre}manager set m_pwd='"&md5(m_pwd,32)&"' where m_pwd<>'"&m_pwd&"' AND m_id="&id conn.db sqlStr,"execute" end if sqlStr = "update {pre}manager set m_username='"&m_username&"',m_level="&m_level&",m_state="&m_state&",m_department="&m_department&" where m_id="&id conn.db sqlStr,"execute" sqlStr2 = "update {pre}Customer set m_Charge='"&m_username&"' where m_Charge='"&oldusername&"'" '更新客户表中相关负责人的记录 conn.db sqlStr2,"execute" if ""&m_back="" then m_back="UserManager.asp?username="&m_username&"&m_success=Success" echo("") case "add" m_username = getForm("m_username","post"):m_pwd = getForm("m_pwd","post"): m_pwd2 = getForm("m_pwd2","post") :m_level = getForm("m_level","post"):m_department=getForm("m_department","post") if isNul(m_username) or isNul(m_pwd) or isNul(m_pwd2) then die errorInfo if m_pwd<>m_pwd2 then die errorPwd if isNul(m_level) then m_level=0 num = conn.db("select count(*) from {pre}manager where m_username='"&m_username&"'","execute")(0) if num>0 then die "已经存在此用戶名96国产揄拍国产精品人妻久久er99热精品一区二区污污内射在线观看一区二区少妇，请更换名称" else 'conn.db "alter table {pre}manager alter m_pwd varchar(50)","execute" sqlStr = "insert into {pre}manager(m_username,m_pwd,m_level,m_state,m_department) values ('"&m_username&"','"&md5(m_pwd,32)&"',"&m_level&",1,"&m_department&")" conn.db sqlStr,"execute" if ""&m_back="" then m_back="UserManager.asp?action=add&username="&m_username end if echo("") end if end select End Sub Sub delNews(ByVal id) dim m_username id=getForm("id","get") m_username = conn.db("select m_username from {pre}manager where m_id="&id,"execute")(0) if m_username=rCookie("m_username") then alertMsg "不能刪除自身","UserManager.asp?id="&id else conn.db "delete from {pre}manager where m_id="&id,"execute" alertMsg "","UserManager.asp" end if End Sub Sub viewList dim Qe,managerArray,i,n,m_id,id id=getForm("id","get") set Qe = mainClassobj.createObject("MainClass.DataPage") Qe.Query "SELECT * FROM {pre}manager ORDER BY m_logintime DESC" managerArray = Qe.GetRows() %>

欧美与黑人午夜性猛交久久久

<% dim username:username=getForm("username", "get") dim m_success:m_success=getForm("m_success", "get") if m_success="Success" AND len(username)>0 then echo("

Success!修改用戶("&username&")成功

") end if %> <% if Qe.recordcount then n=ubound(managerArray,2) %> <% for i=0 to n m_id= trim(managerArray(0,i)) if (i mod 2)=1 then %>

用戶名

无码AV免费精品一区二区三区

<% if action="add" And len(username)>0 then echo("

Success!新添加用戶("&username&")成功

") end if %>

		用戶名：
		密码：
		確認密碼：
		所屬部門：
		管理員級別：	超級管理員(擁有全部權限)＊審核級管理員(擁有賬目審核權限)＊高級編輯級用戶(編輯资料权限及查看账目权限)＊編輯級用戶(編輯资料权限)＊一般用戶(只擁有查看資料權限)＊

<% End Sub Sub viewEdit dim id : id=getForm("id","get") if id="" then id = rCookie("m_id") end if dim rsObj : set rsObj=conn.db("select * from {pre}manager where m_id="&id,"execute") dim oldusername : oldusername = rsObj("m_username") %>

边啃奶头边躁狠狠躁A片动漫

<% if checkLevel()=0 then %> <% end if %>

		用戶名：	" name="m_username" id="m_username" />
		密码：
		確認密碼：
		所屬部門：
		管理員級別：	checked <%end if%> />超級管理員(擁有全部權限)＊ checked <%end if%> />審核級管理員(擁有賬目審核權限)＊ checked <%end if%> />高級編輯級用戶(高級編輯級用戶)＊ checked <%end if%> />編輯級用戶(編輯资料权限)＊ checked <%end if%> />一般用戶(只擁有查看資料權限)＊
		是否鎖定：	checked <%end if%>/>激活 checked <%end if%>/>鎖定

<% if checkLevel()=0 then %> <% end if %>

<% End Sub Sub addNews %>

<% viewList viewAddNews %>

<% viewSidebar 1,1 %>

<% End Sub Sub editNews %>

<% viewEdit %>

<% viewSidebar 1,1 %>

<% End Sub Sub main %>

<% viewList viewAddNews %>

<% viewSidebar 1,1 %>

<% End Sub Function getManagerLevel(id) if isNul(id) then getManagerLevel="未知" : Exit Function if id=0 then getManagerLevel="超级管理员" : Exit Function if id=1 then getManagerLevel="审核级管理员" : Exit Function if id=2 then getManagerLevel="高級編輯級用戶" : Exit Function if id=3 then getManagerLevel="编辑级用户" : Exit Function if id=4 then getManagerLevel="一般用户" : Exit Function End Function Function getManagerState(id) if isNul(id) then getManagerState="未知" : Exit Function if id=0 then getManagerState="锁定" : Exit Function if id=1 then getManagerState="激活" : Exit Function End Function %>