请看看这段代码有什么问题,为什么什么后不显示也不报错误?

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>"

%>
...全文
52 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
egoxu 2004-11-26
不知道为什么,好了!!!!!
回复
egoxu 2004-11-26
源代码没有。最起码能显示:
<script>
mwritetodocument();
</SCRIPT>
回复
lienzhu 2004-11-26
你看源代码有没有内容,js代码在页面上是看不到的!
回复
egoxu 2004-11-26
代码作用是读取数据库数据并组成js代码,但什么也不显示,也不报错误
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-26 09:13
社区公告
暂无公告