后台管理员防误删除
Admin.asp 67行<br/> Dvbbs.Execute(\"DELETE FROM \" & Admintable & \" WHERE Id = \" & Request(\"Id\"))<br/> Dvbbs.Execute(\"UPDATE SET Usergroupid = 4, UserClass = \'\" & UserTitle & \"\' WHERE Username = \'\" & Replace(Request(\"name\"),\"\'\",\"\") & \"\'\")<br/>body=\"<li>管理员删除成功。\"<br/>Dv_suc(body)<br/><br/><br/>修改成<br/><br/>If Replace(Request(\"name\"),\"\'\",\"\")<>\"admin\" then \'添加默认账号保护<br/> Dvbbs.Execute(\"DELETE FROM \" & Admintable & \" WHERE Id = \" & Request(\"Id\"))<br/> Dvbbs.Execute(\"UPDATE SET Usergroupid = 4, UserClass = \'\" & UserTitle & \"\' WHERE Username = \'\" & Replace(Request(\"name\"),\"\'\",\"\") & \"\'\")<br/>body=\"<li>管理员\"&Replace(Request(\"name\"),\"\'\",\"\")&\"删除成功。\"<br/>Dv_suc(body)<br/>Else<br/>body=\"<li>删除管理员\"&Replace(Request(\"name\"),\"\'\",\"\")&\"失败；系统保留的管理员账号。\"<br/>Dv_suc(body)<br/>End If
页:
[1]