最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 列出数据并且根据权限删除记录代码
时间:2010-04-21 编辑:简简单单 来源:一聚教程网
数据库教程连接程序
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
显示出数据表中的所有数据
用户名 | 用户类型 | 添加时间 | 删除用户 |
<%=rs("use_name")%> | <%=rs("use_type")%> | <%=rs("last_login")%> | " onclick="javascript教程:return confirm('确实删除该用户!')">删除 |
deluse.asp删除记录的功能
<% if session("username")="" and session("userpwd")="" and session("use_type")<>"超级管理员" then
response.redirect"login.html"
end if
dim id,sql
id=cint(html_encode(request.QueryString("id")))
if not isnumeric(id) or len(id)=0 then
response.Redirect("login.html")
else
sql="delete * from mange_user where id="&id
sql1="select * from mange_user where id="&id
call opendb()
rs.open sql1,conn,1,1
if not rs.eof then
if rs("use_name")=session("username") or session("use_type")<>"超级管理员" then
response.write("对不起,不能删除自己或你不是超级管理员点击返回")
response.end()
end if
else
response.Write("删除失败点击返回")
end if
conn.execute(sql)
if err=0 then
response.Redirect("add_use.asp")
else
response.Write("删除失败点击返回")
end if
end if
call closedb()
%>
本站原创www.111com.net 转载注明来源于本站
-
上一个: asp 指定读取前几条记录
-
下一个: asp之自动闭合HTML/ubb标签函数
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14