ASP 添加一条判断语句不知道怎么写啊!?

来源:百度知道 编辑:UC知道 时间:2024/05/26 08:30:05
%>
<%
dim SQL, Rs, contentID,CurrentPage

CurrentPage = request("Page")
contentID=request("ID")

set rs=server.createobject("adodb.recordset")
sqltext="delete from Admin where Id="& contentID
rs.open sqltext,conn,3,3
set rs=nothing
response.redirect "Admin.asp"
%>

这是在删除那的原代码,我想再增加一条判断语句,让其他管理员帐号无法删除-帐号为"admin"的主管理员帐号;
目前这段代码能让任意管理员帐号都可以互相删除,我想让别的管理员帐号没有删除"admin"帐号的权限.....
谢谢各位.......因为我学的不是这种编程语言,所以麻烦大家把写好的那个语句放到上面的代码里发一次"或告诉我应该放到哪里也行";希望大家理解....
谢谢~!
没找到"session",用大家的方法试了,可无法删除任何帐号,显示的是"无法显示网页"
增加管理员帐号的源代码,供参考:
<%
password=replace(trim(Request("pwd1")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sqltext="select * from Admin where UserName='" & request.form("User

你的管理员应该是在session里存的吧 如果这样就
if session("username")="admin" then
set rs=server.createobject("adodb.recordset")
sqltext="delete from Admin where Id="& contentID
rs.open sqltext,conn,3,3
set rs=nothing
response.redirect "Admin.asp"
else
response.write "<script language=javascript>alert("你没有权利删除");</script>"
response.redirct "想返回的页面"
<%

你只要会任何一种语言相信你写它都不难。

if (条件)
《%
这是要达到的目的
%》

delete from Admin where Id="& contentID &" and name <> "admin"