报错内容是:Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'UBound'
/incs/config.asp,行 1197
config.asp第1197行的内容是:for tempc=0 to ubound(tempvar)
以下是部分内容:
function getwebnav(byval pdttpe,byval pcid)
if not chk_int(pcid) then
pcid=SafeRequest("pcid")
end if
tempvar=application("pl_menu_"&pdttpe)
for tempc=0 to ubound(tempvar)
tempv=tempvar(tempc)
if instr(tempv,":") then
temppcid=getvalsec(tempv,":",1)
if not chk_int(pcid) then
pdtclsnme=getvalsec(tempv,":",2)
pcid=temppcid
exit for
elseif cint(pcid)=cint(temppcid) then
pdtclsnme=getvalsec(tempv,":",2)
exit for
end if
end if
next
session("pdtclsnme")=pdtclsnme
session("pcid")=pcid
tempvs=application("pl_menutpe")
for myi=0 to ubound(tempvs)
tempv=tempvs(myi)
if lcase(left(tempv,3))=lcase(pdttpe) then
tempp=right(tempv,len(tempv)-instr(tempv,":"))
tempp=left(tempp,instr(tempp,":")-1)
session("pdttpenme")=tempp
end if
next
end function
慕容森
12345678_0001