佛山租厂房58同城:ASP 添加一条判断语句不知道怎么写啊!?

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 23:28:10
%>
<%
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("UserName") & "'"'or RealName='" & request.form("realname") & "'and PassWord='" & password & "'"
rs.open sqltext,conn,1,1

'查找数据库,检查此管理员是否已经存在
if rs.recordcount >= 1 then
if rs("UserName")=request.form("UserName") then
%>
<script language='javascript'>alert ("此管理员帐号已经存在,请选用其它名称!"); location='Admin.asp';</script>
<%
response.end
rs.close
end if
end if

set rs=server.createobject("adodb.recordset")
sqltext="select * from Admin"
rs.open sqltext,conn,3,3

'添加一个管理员帐号到数据库
rs.addnew
rs("UserName")=request.form("UserName")
rs("RealName")=request.form("RealName")
rs("PassWord")=password
rs.update
Response.Redirect "Admin.asp"

%>

你的管理员应该是在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"