www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > head.asp

    <DIV class=header>
<DIV class=logo><A href="http://<%= request.ServerVariables("SERVER_NAME") %>"><IMG alt=E假海南旅行网 
src="skins/images/logo.gif"></A></DIV>
<DIV class=headerinfo>
<P class=ethainan_tel>客服热线<EM><%=phone %></EM></P>
<P class=login><a href="about.asp?id=3">联系我们</a> | <a style="cursor:hand;" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%= request.ServerVariables("SERVER_NAME") %>')">设为首页</a> | <a style="cursor:hand" onclick="window.external.AddFavorite('http://<%= request.ServerVariables("SERVER_NAME") %>','<%= sitename %>');">收藏本站</a></P></DIV>
<DIV class=c></DIV></DIV>
<%
dim ym
if ym="" then 
ym=1
end if
%>
<DIV class=menu_v5>

<UL>
<li <% If ym=1 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="index.asp">首页</a></li>
<li <% If ym=2 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="roadclass.asp">线 路</a></li>
<li <% If ym=3 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="innclass.asp">酒 店</a></li>
<li <% If ym=5 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="meeting.asp?fid=3">会议</a></li>
<li  <% If ym=6 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=4">高尔夫</a></li>
<li  <% If ym=7 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=5">租车</a></li>
<li  <% If ym=8 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=6">景点</a></li>
<li  <% If ym=9 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="pic.asp?fid=7">美图</a></li>
<li  <% If ym=13 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=9">小吃</a></li>
<li  <% If ym=11 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=13">民俗</a></li>
<li  <% If ym=12 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=11">特产</a></li>
<li  <% If ym=10 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=12">游记</a></li>
<li  <% If ym=14 Then Response.Write("class=""active""") Else Response.Write("") End If %>><a href="newsclass.asp?fid=46">民族</a></li>
  <DIV class=c></DIV></LI></UL></DIV>
  <DIV class=submenu_v5>
<UL>
  <OL class=zhinan_submenu_v5_ol_left>
    <DIV class=destination_menu>
    <LI class=act><marquee width="100%" scrollamount="2" direction="left" onmouseover="this.stop()" onmouseout="this.start()">
<%
sub notice(xid,ts)
set rs=conn.execute("select top "&ts&" * from jw_news where fid="&xid&" and show=0 order by  zd desc,qz desc")
do while not rs.eof 
%>
<a href="<%= getmc("jw_newsclass","id",rs("fid"),"newspath") %>?fid=<%= rs("fid") %>&id=<%= rs("id") %>"><%= rs("mc") %></a>[<%= getriqi(rs("ctim")) %>]&nbsp;&nbsp;&nbsp;&nbsp;
<%
rs.movenext
loop
call recordend(rs)
end sub

call notice(8,10)
%>
</marquee>
</LI>

</DIV></OL>
  <OL class=zhinan_submenu_v5_ol_right>
    <P class=weather>今天是: <%= formatdatetime(date(),1) %>&nbsp;</P></OL>
  <DIV class=c></DIV></UL></DIV>