<% call isinstall() '第一次配置跳转 call redir_scenery() '设置单景点跳转 call redir_hotel() '设置单酒店跳转 call redir_vacations() '设置单线路跳转 if request("proid")="" then response.Redirect("index.asp?proid=2") end if %> <%=cookie_shengfen%><%=conf_sitename%>_<%=cookie_shengfen%>旅游网_<%=conf_sitename%>
景点点评
<% dim str_jd img_tj=GetScenery_dp1(1) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 then img_tj_arr_arr=split(img_tj_arr(i),"#") str_jd=GetScenById1(img_tj_arr_arr(0)) if str_jd<>"" then str_jd_arr=split(str_jd,"#") end if %>

<%=str_jd_arr(1)%>

<%=left(str_jd_arr(1),12)%>

会员:<%=left(img_tj_arr_arr(1),7)%> 点评奖金 <%=img_tj_arr_arr(2)%>元

<%=RemoveHTML_A(img_tj_arr_arr(3),28)%>...

<% end if next end if %>
景点口碑榜
<% img_tj=GetScenery_tj(9) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 then img_tj_arr_arr=split(img_tj_arr(i),"#") %>
  • <% end if next end if %>
    <% img_tj=GetScenery_yx(4) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 then img_tj_arr_arr=split(img_tj_arr(i),"#") %> <% end if next end if %>
    <% img_tj=GetScenery_yx(4) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 then img_tj_arr_arr=split(img_tj_arr(i),"#") %>
  • <%=left(img_tj_arr_arr(1),7)%>

    景点上线!门票预订价值需要<%=img_tj_arr_arr(4)%>元!

  • <% end if next end if %>
    打折门票
    <% citys_str=GetCityByShengfenid(cookie_shengfen_id) if citys_str<>"" then citys_arr=Split(citys_str,conf_web_separator) for i=lbound(citys_arr) to ubound(citys_arr) if i>8 then exit for end if if citys_arr(i)<>"" and instr(citys_arr(i),"#")>0 then city_arr=split(citys_arr(i),"#") %>
  • <%=city_arr(1) %>
  • <% end if next end if %>
    <% img_tj=GetScenery_index1(6) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 then img_tj_arr_arr=split(img_tj_arr(i),"#") %>
  • class="liset" <% end if %>>

    <%=left(trim(img_tj_arr_arr(1)),7)%>

    <%=replace(img_tj_arr_arr(3),".00","")%>元起

  • <% end if next end if %>
    <% img_tj=GetScenery_index1(18) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 and i>6 then img_tj_arr_arr=split(img_tj_arr(i),"#") %>
  • <%="class='nomarginr'"%> <% elseif ((i-6) mod 4) = 3 then %> <%="class='setbg'"%> <% elseif ((i-6) mod 4) = 0 then %><%="class='nomarginr setbg'" %> <% end if %>>

    <%=left(trim(img_tj_arr_arr(1)),15)%>

    ¥<%=replace(img_tj_arr_arr(2),".00","")%>

    ¥<%=replace(img_tj_arr_arr(3),".00","")%>

  • <% end if next end if %>
    景区酒店
    <% citys_str=GetCityByShengfenid(cookie_shengfen_id) if citys_str<>"" then citys_arr=Split(citys_str,conf_web_separator) for i=lbound(citys_arr) to ubound(citys_arr) if i>8 then exit for end if if citys_arr(i)<>"" and instr(citys_arr(i),"#")>0 then city_arr=split(citys_arr(i),"#") %>
  • <%=city_arr(1) %>
  • <% end if next end if %>
    <% img_tj=GetHotels_index1(6) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 then img_tj_arr_arr=split(img_tj_arr(i),"#") %>
  • class="liset" <% end if %>>

    <%=left(trim(img_tj_arr_arr(1)),7)%>

    <%=replace(img_tj_arr_arr(3),".00","")%>元起

  • <% end if next end if %>
    <% img_tj=GetHotels_index1(18) if img_tj<>"" then img_tj_arr=split(img_tj,conf_web_separator) for i=lbound(img_tj_arr) to ubound(img_tj_arr) if img_tj_arr(i)<>"" and instr(img_tj_arr(i),"#")>0 and i>6 then img_tj_arr_arr=split(img_tj_arr(i),"#") %>
  • <%="class='nomarginr'"%> <% elseif ((i-6) mod 4) = 3 then %> <%="class='setbg'"%> <% elseif ((i-6) mod 4) = 0 then %><%="class='nomarginr setbg'" %> <% end if %>>

    <%=left(trim(img_tj_arr_arr(1)),15)%>

    ¥<%=replace(img_tj_arr_arr(3),".00","")%>

  • <% end if next end if %>