用户管理完成 2004-08-05

用户列表完成，用户资料编辑完成；

完成了用户密码md5加密用户权限设置；

 

用户权限动态显示用以下代码来实现：

 Dim strNewsPower,arrClassID,intClassID,intUBound,intID,i,sql,rs
  strNewsPower = objRS("NewsPower")
  arrClassID = Split(strNewsPower, ",", -1, 1)
  intUBound = UBound(arrClassID)
  If intUBound > 0 Then
  intID = intUBound - 1
   For i = 0 To intID
    intClassID = CInt(arrClassID(i))
    Set rs = Server.Createobject("ADODB.Recordset")
    sql = "SELECT ClassName,ClassType FROM NewsClasses WHERE ClassID =" & intClassID
    rs.Open sql,objConn,1,1
     If Not rs.EOF Then
      Response.Write " "&rs("ClassName")
     End If
    rs.Close
    Set rs = Nothing
   Next
  End If