用户列表完成,用户资料编辑完成;
完成了用户密码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