请看看这段代码有什么问题,为什么什么后不显示也不报错误?
egoxu 2004-11-26 09:13:02
<script language="javaScript" type="text/javascript" SRC="include/nxjs.js"></SCRIPT>
<%
response.write "<script LANGUAGE='javascript'>"
dim topmenu,rstm,secmenu,rssm
'一级类别
topmenu="select * from topmenu where id='1'"
set rstm=Server.CreateObject("ADODB.recordset")
rstm.CursorType = 3
rstm.Open topmenu,conn,1,1
if rstm.RecordCount <=0 then
Response.Write "请维护类别!"
end if
for m=1 to rstm.RecordCount
response.write "mpmenu"&mi&"=new mMenu('网站首页','/','self','image/bluedian.gif','','','');"
'二级类别
secmenu="select * from secmenu where upmod=" & rstm("id") & " order by addtime desc"
set rssm=Server.CreateObject("ADODB.recordset")
rssm.CursorType = 3
rssm.Open secmenu,conn
rssm.PageSize =8 'show num of page
result_num = rssm.RecordCount 'totle num
if result_num<=0 then
word="请维护信息!"
else
maxpage=rssm.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rssm.AbsolutePage=Page
end if
if result_num<=0 then
response.write "mpmenu"&i&".addItem(new mMenuItem(' "&word&"','','',,'',null,'','','',''));"
else
for n=1 to rssm.PageSize
response.write "mpmenu"&i&".addItem(new mMenuItem(' 用户注册','/register.asp','self',false,'用户注册',null,'','','',''));"
rssm.movenext:if rssm.EOF then Exit For
next
end if
rssm.close
'一级类别
rstm.movenext:if rstm.EOF then Exit For
next
rstm.close
response.write "mwritetodocument();"
response.write "</SCRIPT>"
%>