<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

选择地区 <% strSQL="select Author from Cl_Article group by Author" rs.open strSQL,travel_con,1,3 do while not rs.eof %> ><%=rs("Author")%> <% rs.movenext loop rs.close %> <% dim rstemp set rstemp=server.CreateObject("ADODB.Recordset") rstemp.open "select * from Cl_Class where ParentID=1",travel_con,1,3 %> 信息类型 <% do while not rstemp.eof %> "><%=rstemp("ClassName")%> <% rstemp.movenext loop rstemp.close %> <%call Advertisment_show(20,1,266,210,true)%>   <%call ShowArticle_ShowNew(9)%>  在线地图  签证专家  电子客票   航班动态  网上支付   在线客服 <%call Advertisment_show(22,1,210,40,true)%> <%call ShowArticle_Middle("推荐行程",4)%> <%call Advertisment_show(23,1,210,40,true)%> <%call ShowArticle_Middle("精彩游记",4)%> <%call Advertisment_show(24,1,210,40,true)%> <%call ShowArticle_Middle("特产美食",4)%> <%call Advertisment_show(25,1,210,40,true)%> <%call ShowArticle_Middle("娱乐购物",4)%> 文章 人气 <%call TopArticle_Show(10)%> <%call Photo_Show()%> 更多>>  <%call Area_Show(1,7)%> <%call AreaPhoto_Show(7,1)%>   更多>>  <%call Area_Show(3,7)%> <%call AreaPhoto_Show(7,3)%>   更多>>  <%call Area_Show(2,7)%> <%call AreaPhoto_Show(7,2)%>   更多>>  <%call Area_Show(4,7)%> <%call AreaPhoto_Show(7,4)%>