编程论坛 → ASP技术论坛

代码表示

TZTJ 发布于 2010-08-08 09:32， 1154 次点击

请教各位高手,以下代码表示有何错误呢?
<div class="top"></div>
<div class="menu"><%
dim menus,menui,menustr,filename
menus="首页|default.asp|酒店纵览|about.asp|在线订房|online.asp|酒店动态|news.asp|商务中心|product.asp|餐饮服务|search.asp|宾客留言|guest.asp|联系我们|links.asp"
menus=split(menus,"|)
menustr=""
filename=Request.ServerVariables("SCRIPT_NAME")
filename=mid(filename,InStrRev(filename,"/")+1,len(filename))
for menui=LBound(menus) to UBound(menus) step 2
    menustr=menustr&"<a href='"&menus(menui+1)&"'"
    if(filename=menus(menui+1)) then
        menustr=menustr&"class="cur""
    end if
    menustr=menustr&">"&menus(menui)&"</a>"
next
Response.Write(menustr)%>
.......

[ 本帖最后由 TZTJ 于 2010-8-8 11:37 编辑 ]

11 回复

#2

yms1232010-08-08 14:25

<div class="top"></div>
<div class="menu"><%
dim menus,menui,menustr,filename
menus="首页|default.asp|酒店纵览|about.asp|在线订房|online.asp|酒店动态|news.asp|商务中心|product.asp|餐饮服务|search.asp|宾客留言|guest.asp|联系我们|links.asp"
menus=split(menus,"|")
menustr=""
filename=Request.ServerVariables("SCRIPT_NAME")
filename=mid(filename,InStrRev(filename,"/")+1,len(filename))
for menui=0 to UBound(menus) step 2
    menustr=menustr&"<a href='"&menus(menui+1)&"'"
    if(filename=menus(menui+1)) then
        menustr=menustr&"class="cur""
    end if
    menustr=menustr&">"&menus(menui)&"</a>"
next
Response.Write(menustr)%>

#3

TZTJ2010-08-08 15:36

感谢指点!但还是不能正确运行.代码还有错误.根据我测试,好象与<%....%>有一定关系

#4

yms1232010-08-08 15:41

<div class="top"></div>
<div class="menu"><%
dim menus,menui,menustr,filename
menus="首页|default.asp|酒店纵览|about.asp|在线订房|online.asp|酒店动态|news.asp|商务中心|product.asp|餐饮服务|search.asp|宾客留言|guest.asp|联系我们|links.asp"
menus=split(menus,"|")
menustr=""
filename=Request.ServerVariables("SCRIPT_NAME")
filename=mid(filename,InStrRev(filename,"/")+1,len(filename))
for menui=0 to UBound(menus) step 2
    menustr=menustr&"<a href='"&menus(menui+1)&"'"
    if(filename=menus(menui+1)) then
        menustr=menustr&" class=cur "
    end if
    menustr=menustr&">"&menus(menui)&"</a>"
next
Response.Write(menustr)%>

#5

TZTJ2010-08-08 16:40

多谢!但网络不通,无法测试

#6

TZTJ2010-08-09 08:41

已经过测试,还是无法运行,看起来好象代码都没有错误了.

#7

TZTJ2010-08-10 10:00

怎么没人感兴趣呢?

#8

funky2010-08-10 12:46

menus="首页|default.asp|酒店纵览|about.asp|在线订房|online.asp|酒店动态|news.asp|商务中心|product.asp|餐饮服务|search.asp|宾客留言|guest.asp|联系我们|links.asp"

要在同一行,

#9

yms1232010-08-10 13:24

<div class="top"></div>
<div class="menu"><%
dim menus,menui,menustr,filename,tary
menustr="首页=default.asp|酒店纵览=about.asp|在线订房=online.asp|酒店动态=news.asp|商务中心=product.asp|餐饮服务=search.asp|宾客留言=guest.asp|联系我们=links.asp"
menus=split(menustr,"|")
menustr=""
filename=Request.ServerVariables("SCRIPT_NAME")
filename=mid(filename,InStrRev(filename,"/")+1,len(filename))
for menui=0 to UBound(menus)
    tary=split(menus(menui),"=")
    menustr=menustr&"<a href='"&tary(1)&"'"
    if(filename=tary(1)) then
        menustr=menustr&" class=cur "
    end if
    menustr=menustr&">"&tary(0)&"</a>"
next
Response.Write(menustr)%>

#10

TZTJ2010-08-11 09:21

首先感谢版主,你给出的代码测试成功,对我很有帮助.但没有分隔线啦.本来我想得到这个式样:
首页|酒店纵览|在线订房|酒店动态|商务中心|餐饮服务|宾客留言|联系我们

还有,从方法来说,都是利用split()对menustr分组,为什么原来方法不行呢?问题出在何处呢?非要改为等号呢?版主能否解释一下吗?

[ 本帖最后由 TZTJ 于 2010-8-11 10:25 编辑 ]

#11

yms1232010-08-11 18:28

以下是引用TZTJ在2010-8-11 09:21:53的发言：

首先感谢版主,你给出的代码测试成功,对我很有帮助.但没有分隔线啦.本来我想得到这个式样:
首页|酒店纵览|在线订房|酒店动态|商务中心|餐饮服务|宾客留言|联系我们

还有,从方法来说,都是利用split()对menustr分组,为什么原来方法不行呢?问题出在何处呢?非要改为等号呢?版主能否解释一下吗?

因为你的信息是2个一组的原来的方法，循环step2就有可能循环出错，把两个一组的结合=号区分更清楚后就减少了出错的麻烦

#12

TZTJ2010-08-12 09:10

我已经找到问题原因,把所有"|"改为","号就OK了.可能split()对|不识别.

1