日期:2014-05-17  浏览次数:21009 次

BBS中的一个判断用户是否是版主的问题!!请各位高手帮帮忙!!
用户登录后判断是否是版主.请各位帮忙看看,我在ACCESS里面能正确判断,我将数据表导入SQL   server后就不能判断了!!不知道是什么原因!!!!

部分代码如下:
              <%
'因为下面要多次判断是否版主,所以这里先调用函数判断一下
'如果是版主,则manager=True,否则为False
                  'user_id是用户名信息,forum_id是栏目编号

Dim   manager
manager=IsManager(Session( "user_id "),Session( "forum_id "))
%>
                  <%
Function   IsManager(user_id,forum_id)
Dim   strSql,rs
          'manager是栏目表forum中的版主字段
strSql= "Select   manager   From   forum   Where   id= "   &   forum_id
Set   rs=db.Execute(strSql)
If   cstr(Trim(rs( "manager "))) <> " "   Then
'下面将版主列表转化为数组
Dim   arrayTemp,I
arrayTemp=Split(rs( "manager "), "   ")
'下面逐一判断该用户是否在其中
    For   I=0   To   Ubound(arrayTemp)
      If   arrayTemp(I)=user_id   Then
          IsManager=True         '如果相等,表示是版主,返回True,结束函数
Exit   Function
    End   If
Next
End   If
IsManager=False             '如果程序执行到这一步,表示肯定不是版主
        End   Function

If   Manager=True   Then
      If   rs( "first_id ")=0     And   I=0   Then
If   rs( "settop ")=0   Then
Response.Write   "&nbsp;&nbsp; <a   href= 'bbs_top_add.asp?id= "   &   rs( "id ")   &   " '> 【置顶】 </a> "
Else
Response.Write   "&nbsp;&nbsp; <a   href= 'bbs_top_delete.asp?id= "   &   rs( "id ")   &   " '> 【取消置顶】 </a> "
End   If
End   If
Response.Write   "&nbsp;&nbsp; <a   href= 'bbs_delete.asp?id= "   &   rs( "id ")   &   " '> 【删除】 </a> "
End   If
  %>


------解决方案--------------------
sql查询后怎么有做了这么多的操作??直接用SQL查询出来,判断有没有数据不是更好??不了解环境,随便说下..
------解决方案--------------------
rs( "manager ")打印不出来,你就检查数据库中看看manager字段的值是什么