部分用户在后台上传图片时，提示没有登录，无权限，如下图：

解决方法如下：

打开 admin/include/swfupload.asp

找到

42行

       Dim ChkRS:Set ChkRS =Conn.Execute("Select top 1 a.username,b.userid From KS_Admin a inner join KS_User b on a.username=b.username Where AdminID=" & KS.ChkClng(AdminID) & " and a.PassWord='" & KS.ChkClng(Pass) & "'")

改成

       Dim ChkRS:Set ChkRS =Conn.Execute("Select top 1 a.username,b.userid From KS_Admin a inner join KS_User b on a.username=b.username Where AdminID=" & KS.ChkClng(AdminID) & " and a.PassWord='" & KS.DelSql(replace(Pass,"'","")) & "'")