请教各位高手,以下代码表示有何错误呢?
<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 编辑 ]

<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)%>

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

<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)%>

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

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

怎么没人感兴趣呢?

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

要在同一行,

<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)%>

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

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

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