<%@ Language=VBScript%>


<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.Source,conn,1,1

set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top 10 * from Special order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1

Set rs9 = Server.CreateObject("ADODB.Recordset")
sql9 ="SELECT * From system Order By id DESC"
RS9.open sql9,Conn,3,3
%>

<% i=1 Dim ArrayBigClassID(20),ArrayBigClassName(20) while not rs.EOF RecordCount=rs.RecordCount BigClassID=rs("BigClassID") BigClassName=trim(rs("BigClassName")) TdString="" Response.Write TdString ArrayBigClassID(i)=BigClassID ArrayBigClassName(i)=BigClassName i=i+1 rs.MoveNext wend rs.close %> 　 " & BigClassName & "

height=134> width=24> height=22> width=130>

src="image/tuijian.gif" width=165> 归元寺位于汉阳翠微街的西端，最初系清顺治初由白光和尚就明代五章浦葵园旧址建造，现存为清同治三年（1864年）、光绪二十一年（1895年）及民国初年所陆续重建。 古琴台位于汉阳区北部月湖南边，相传是战国时楚国的俞伯牙弹琴的地方。 src="image/search.gif" width=165> width="100%" height="40"> 请选择搜索类别 所有类别 <%for i=1 to RecordCount%> ><%=ArrayBigClassName(i)%> <%next%> : 友情链接 : 红盾信息网 北京市人民政府 上海市人民政府 广州市人民政府 深圳市人民政府 武汉江岸区人民政府 武汉青山区人民政府 武汉硚口区人民政府 武汉洪山区人民政府 武汉江汉区人民政府 武汉新洲区人民政府 武汉东西湖人民政府

height=30 rowSpan=5>

<% set rs3=server.CreateObject("ADODB.RecordSet") for i=1 to RecordCount BigClassID=ArrayBigClassID(i) BigClassName=ArrayBigClassName(i) %>                            <%= BigClassName%> " else DisplayTitle=mid(Title,1,21) Response.Write "" end if rs3.MoveNext wend rs3.close %>          <% rs3.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,click from News where BigClassName='" & BigClassName &"' order by NewsID DESC" rs3.Open rs3.Source,conn,1,1 while not rs3.EOF '定义标题显示限制 Title=trim(rs3("Title")) TitleLen=len(Title) If TitleLen<21 then Response.Write " " %>  &BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialId")%>" target="_blank"><%=Title %>(<%=Month(rs3("UpdateTime")) %>月<%=Day(rs3("UpdateTime")) %>日)[<%=rs3("click") %>] <% Response.Write " " %>   &BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialId")%>" target="_blank"><%=displaytitle%>...(<%=Month(rs3("UpdateTime")) %>月<%=Day(rs3("UpdateTime")) %>日)[<%=rs3("click") %>] <% Response.Write " [ 更多...] <% next %>   教育科研： href="#" target=_blank>高等院校 href="#" target=_blank>特教职教 href="#" target=_blank>中小学教育 href="#" target=_blank>学前教育 href="#" target=_blank>科研普及 href="#" target=_blank>勤工俭学 文化体育： href="#" target=_blank>文化场馆 href="#" target=_blank>文艺团体 href="#" target=_blank>广电影视 href="#" target=_blank>体育场馆 href="#" target=_blank>休闲娱乐 href="#" target=_blank>旅游名胜 民政医疗： href="#" target=_blank>民政机构 href="#" target=_blank>综合医院 社区诊所 href="#" target=_blank>药品商店 医疗保健 民间医疗 商业服务： href="#" target=_blank>综合商场 href="#" target=_blank>宾馆酒店 href="#" target=_blank>副食菜场 href="#" target=_blank>电信邮局 href="#" target=_blank>摄影美发 家政服务 金融法律： href="#" target=_blank>银行信托 证券保险 财税中介 href="#" target=_blank>律师公证 法规检索 专业市场： href="#" target=_blank>人才市场 href="#" target=_blank>劳动力市场 href="#" target=_blank>科技市场 href="#" target=_blank>房地产市场 建材市场 href="#" target=_blank>农批市场

这段代码浏览后会在
下面出现网站导航条，我不想要这个导航，不知道谁能够帮我改一下，我急着用，拜托了。

导航条的内容是数据库定的，这个是一个文章管理系统，在数据库里面加个版块，导航条上就出现一个。

自己动手解决不是很好，感觉也不一样啊。多动手就ok了。高手就是这么出来的

呵呵~！我自己搞定了，只是少了一个引号。我好笨啊。