asp 列出数据并且根据权限删除记录代码

数据库教程连接程序
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")

显示出数据表中的所有数据

 
   
   
   
 
 
  <%dim sql
  sql="select * from mange_user"
  call opendb()
  rs.open sql,conn,1,1
  do while not rs.eof
    %>
 
   
   
   
 
 
  <%rs.movenext
  loop
  call closedb()
  %>

用户名	用户类型	添加时间	删除用户
<%=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 转载注明来源于本站