关于ASP指教！！！
<%
Name=session("Name")
PassWord=session("PassWord")
Userid=session("Userid")
if name="" then Response.redirect"admin_index.asp"
set CheckUser = server.createobject("adodb.recordset")
sql = "select purview,Class,SetClass,SetTemplet,SetFile,SetRecycle from admin where UserName='"&Name&"' and password='"&PassWord&"'"
CheckUser.open sql,conn,1,1
Purview=CheckUser("purview")
select case Purview
case "管理员"
case "总编辑"
Call CheckPurview
case "录入员"
Call ClassPurview
Call CheckPurview
end select
Sub ClassPurview()
SmallClass=trim(request.querystring("SmallClass"))
if request.querystring("newsID")<>"" then
set rs=conn.execute("select SmallClass from News where NewsID=")&request.querystring("newsID")
if not rs.eof then SmallClass=rs("SmallClass")
rs.close
set rs=nothing
end if
if SmallClass="" then SmallClass=request.form("SmallClassCN")
ClassCot=split(CheckUser("Class"),",")
FoundError=true
for i=0 to Ubound(ClassCot)
if SmallClass=trim(ClassCot(i)) then
FoundError=false
exit for
end if
next
if FoundError=true then
if SmallClass<>"" then
Call Wran("添加"&SmallClass&"栏目")
else
Call CheckPurview
end if
end if
End Sub
Sub CheckPurview()
select case FileName
case "admin_classmanage.asp","admin_classsave.asp","admin_classmodify.asp","admin_classgo.asp"
if CheckUser("SetClass")<>true then
Call Wran("栏目管理")
end if
case "admin_templetmanage.asp","admin_templetmodify.asp","admin_templetGo.asp"
if CheckUser("SetTemplet")<>true then
Call Wran("模板管理")
end if
case "admin_PICmanage.asp"
if CheckUser("SetFile")<>true then
Call Wran("文件管理")
end if
.....
end select
End Sub
Sub Wran(content)
CheckUser.close
set CheckUser=nothing
response.redirect"error.asp?msg="&content&""
response.end
End Sub
%>
其中，在运行程序时，提示：ClassCot=split(CheckUser("Class"),",")
这个有错误，我登陆的是以录入员登陆，请各位大侠指点，谢谢
问题点数：0、回复次数：10Top
1 楼xiaoyuehen（OH, NO~It's Unfair!）回复于 2003-08-01 13:11:17 得分 0
CheckUser("Class")可能为空值...CheckUser函数定义了吗?Top
2 楼RadishRabbitGao（）回复于 2003-08-01 13:14:31 得分 0
定义了
你最好去看看数据库里着一个单元式不是空的Top
3 楼jiejifeng（zj）回复于 2003-08-01 13:16:20 得分 0
大概 checkuser("class")中没有 ,号Top
4 楼skeen（轻风云）回复于 2003-08-01 13:21:38 得分 0
set CheckUser = server.createobject("adodb.recordset")
定义了的，相当于RS啊。哈哈Top
5 楼skeen（轻风云）回复于 2003-08-01 13:24:26 得分 0
To jiejifeng(zj) :
我也觉得不应该用 “,”，但取消了同样错误Top
6 楼xiaoyuehen（OH, NO~It's Unfair!）回复于 2003-08-01 13:29:08 得分 0
估计是你的 Class 字段内有空值存在.Top
7 楼conner（测试）回复于 2003-08-01 13:41:54 得分 0
首先判断一下CheckUser("Class")的值是否为空，如果不为空才能用
ClassCot=split(CheckUser("Class"),",")
Top
8 楼skeen（轻风云）回复于 2003-08-01 13:57:28 得分 0
To conner(测试)
怎么判断呢。我是新手，谢谢Top
9 楼sbje981（小李子）回复于 2003-08-01 14:18:09 得分 0
你可以在数据库中定义一个字段来控制管理员、总编辑 是录入员
然后session来控制Top
10 楼skeen（轻风云）回复于 2003-08-01 14:41:38 得分 0
我还是不太明白！！？？Top
