后台管理员防误删除

蓝雨

Admin.asp 67行
Dvbbs.Execute(\"DELETE FROM \" & Admintable & \" WHERE Id = \" & Request(\"Id\"))
Dvbbs.Execute(\"UPDATE [Dv_User] SET Usergroupid = 4, UserClass = \'\" & UserTitle & \"\' WHERE Username = \'\" & Replace(Request(\"name\"),\"\'\",\"\") & \"\'\")
body=\"

管理员删除成功。\"
Dv_suc(body)


修改成

If Replace(Request(\"name\"),\"\'\",\"\")<>\"admin\" then \'添加默认账号保护
Dvbbs.Execute(\"DELETE FROM \" & Admintable & \" WHERE Id = \" & Request(\"Id\"))
Dvbbs.Execute(\"UPDATE [Dv_User] SET Usergroupid = 4, UserClass = \'\" & UserTitle & \"\' WHERE Username = \'\" & Replace(Request(\"name\"),\"\'\",\"\") & \"\'\")
body=\"

管理员\"&Replace(Request(\"name\"),\"\'\",\"\")&\"删除成功。\"
Dv_suc(body)
Else
body=\"

删除管理员\"&Replace(Request(\"name\"),\"\'\",\"\")&\"失败；系统保留的管理员账号。\"
Dv_suc(body)
End If