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 " <a href= 'bbs_top_add.asp?id= " & rs( "id ") & " '> 【置顶】 </a> "
Else
Response.Write " <a href= 'bbs_top_delete.asp?id= " & rs( "id ") & " '> 【取消置顶】 </a> "
End If
End If
Response.Write " <a href= 'bbs_delete.asp?id= " & rs( "id ") & " '> 【删除】 </a> "
End If
%>
------解决方案--------------------sql查询后怎么有做了这么多的操作??直接用SQL查询出来,判断有没有数据不是更好??不了解环境,随便说下..
------解决方案--------------------rs( "manager ")打印不出来,你就检查数据库中看看manager字段的值是什么