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")) %>] <% 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) %> </P></OL> <DIV class=c></DIV></UL></DIV>