[求助]不知道异常错误是什么啊？？
不知道异常错误是什么啊？？
我编了个ASP东西
在运行时停止了！
结果没有出错页面
但是在查看原代码时显示发生异常
异常是在一个打开数据库 RECORDSET 对象的地方
不知道为什么？？
请高手指教，可能四什么原因！
顺便问一下最多可以打开多少次数据表，我怎么在一次运行是出现个不能在打开更多的表的错误啊？？
fathercolumn=trim(session("userright"))
fathercolumn=mid(fathercolumn,len(fathercolumn)-2,2)
tocolumnfather=fathercolumn
fathercolumn=cint(fathercolumn)
sub checkcolumnright1(statecolumnid)
if fathercolumn<>statecolumnid then
set rscolumnfather=server.CreateObject("Adodb.Recordset")
sqlcolumnfather="SELECT ColumnFatherId,ColumnStage from inf_Column where ColumnId="&statecolumnid
rscolumnfather.open sqlcolumnfather,conn,1,3
statecolumnid=rscolumnfather("ColumnFatherId")
statecolumnid=trim(statecolumnid)
statecolumnid=left(statecolumnid,2)
statecolumnid=cint(statecolumnid)
if (statecolumnid<>fathercolumn and rscolumnfather("ColumnStage")=0) then
checkcolumnrights=false
rscolumnfather.close
set rscolumnfather=nothing
else
rscolumnfather.close
set rscolumnfather=nothing
call checkcolumnright1(statecolumnid)
end if
else
checkcolumnrights=true
end if
end sub
public function checkcolumnright(statecolumnid)
call checkcolumnright1(statecolumnid)
if checkcolumnrights then
checkcolumnright=true
else
checkcolumnright=false
end if
end function
public Arraycolumnlist()
function isColumnSon(columnid)
if len(columnid)=1 then
fathercolumnid="0"&cstr(columnid)
else
fathercolumnid=cstr(columnid)
end if
sqlGetColumnSonNum = "select count(ColumnId) from inf_Column where ColumnFatherId ='" & fathercolumnid&"'"
Set rsGetColumnSonNum =conn.Execute(sqlGetColumnSonNum)
if((Not rsGetColumnSonNum.Eof) And (Not rsGetColumnSonNum.Bof)) then
ColumnColumnNum = CInt(rsGetColumnSonNum(0))
rsGetColumnSonNum.close
set rsGetColumnSonNum =nothing
else
rsGetColumnSonNum.close
set rsGetColumnSonNum =nothing
conn.close
set conn=nothing
response.Redirect"admin_index.asp?errcode=4"
end if
if(ColumnColumnNum = 0) then
isColumnSon = 0
else
isColumnSon =1
end if
end function
sub checkarticleright(statearticleid)
if statearticleid<>"" then
set rsarticlecolumn=server.CreateObject("Adodb.Recordset")
sqlarticlecolumn="SELECT ColumnId from inf_Column where ColumnName in (SELECT ArticleColumnName from inf_Article where ArticleId="&statearticleid&")"
rsarticlecolumn.open sqlarticlecolumn,conn,1,3
if (not rsarticlecolumn.eof) then
if (not checkcolumnright(rsarticlecolumn("Columnid"))) then
rsarticlecolumn.close
set rsarticlecolumn=nothing
response.redirect"admin_index.asp?errcode=1"
end if
else
rsarticlecolumn.close
set rsarticlecolumn=nothing
response.redirect"admin_index.asp?errcode=1"
end if
else
response.Redirect"admin_index.asp?errcode=4"
end if
end sub
sub addsoncolumn(columnId,num)
set rsgetsoncolumn=Server.CreateObject("Adodb.Recordset")
sqlgetsoncolumn="SELECT ColumnName,ColumnId from inf_Column where ColumnId="&columnid
rsgetsoncolumn.open sqlgetsoncolumn,conn,1,3 '就是这一行出错的啊
if not rsgetsoncolumn.eof then
columnlistid=rsgetsoncolumn("ColumnId")
soncolumnname=rsgetsoncolumn("ColumnName")
rsgetsoncolumn.close
set rsgetsoncolumn=nothing
Arraycolumnlist(num)=Arraycolumnlist(num)&"->"&soncolumnname
if isColumnSon(columnlistid)=1 then
call addsoncolumn(columnlistid,num)
end if
else
rsgetsoncolumn.close
set rsgetsoncolumn=nothing
response.Redirect"admin_index.asp?errcode=3"
end if
end sub
sub getcolumnlist()
set rscolumnlist=Server.CreateObject("Adodb.Recordset")
sqlcolumnlist="select ColumnName,ColumnId from inf_Column where ColumnFatherId='"&tocolumnfather&"'"
rscolumnlist.open sqlcolumnlist,conn,1,3
if not rscolumnlist.eof then
topcolumnnum=rscolumnlist.Recordcount
redim Arraycolumnlist(topcolumnnum)
topcolumnid=rscolumnlist("ColumnId")
for num=0 to rscolumnlist.Recordcount-1
Arraycolumnlist(num)=rscolumnlist("ColumnName")
if isColumnSon(topcolumnid)=1 then
call addsoncolumn(topcolumnid,num)’在这里调用
end if
rscolumnlist.movenext
next
rscolumnlist.close
set rscolumnlist=nothing
else
rscolumnlist.close
set rscolumnlist=nothing
response.Redirect"admin_index.asp?errcode=3"
end if
end sub
%>
我的程序就是在调用getcolumnlist()
得到用户所拥有权限的栏目列表
并却只要能够添加文章的栏目（子栏目）[/color]
[此贴子已经被作者于2006-8-22 12:40:59编辑过]
