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")

顯示出資料表中的所有資料
<table width="100%" height="25"  border="0" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#EBEBEB">
    <td height="25">使用者名稱</td>
    <td height="25">使用者類型</td>
    <td height="25">添加時間</td>
 <td height="25">刪除使用者</td>
  </tr>
  <%dim sql
  sql="select * from mange_user"
  call opendb()
  rs.open sql,conn,1,1
  do while not rs.eof
    %>
  <tr align="center" bgcolor="#FFFFFF">
    <td height="25"><%=rs("use_name")%></td>
    <td height="25"><%=rs("use_type")%></td>
    <td height="25"><%=rs("last_login")%></td>
 <td height="25"><a href="deluse.asp?id=<%=rs("id")%>" onclick="javascript教程:return confirm('確實刪除該使用者!')">刪除</a></td>
  </tr>
  <%rs.movenext
  loop
  call closedb()
  %>
</table>

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("對不起,不能刪除自己或你不是超級管理員<a href=add_use.asp>點擊返回</a>")
response.end()
end if
else
response.Write("刪除失敗<a href=add_use.asp>點擊返回</a>")
end if
conn.execute(sql)
if err=0 then
response.Redirect("add_use.asp")
else
response.Write("刪除失敗<a href=add_use.asp>點擊返回</a>")
end if
end if
call closedb()
%>

本站原創www.111cn.net 轉載註明來源於本站