📄 head.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'缓冲面页
response.Expires = -1
'True开启缓冲 False关闭
Response.Buffer=True
Dim time1,time2
time1=timer
%>
<!--#include file="include/setting.asp" -->
<!--#INCLUDE FILE="HXINCLUDE/datapath.ASP"-->
<!--#include file="include/Functionchar.asp" -->
<!--#include file="include/Function.asp" -->
<!--#include file="include/Conn.asp" -->
<html>
<head>
<title><%navigation()%></title>
<meta name="description" content="<%=a125_description%>">
<meta name="keyword" content="<%=a125_keywords%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/a125_style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javaScript src="Include/a125.js" type=text/javascript></SCRIPT>
<SCRIPT language=javaScript src="Include/head.js" type=text/javascript></SCRIPT>
<META content="MSHTML 6.00.2800.1595" name=GENERATOR>
</head>
<body topmargin="0" leftmargin="0" bgColor="#CC0000">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="996" height="20" bgColor="#c00000">
<tr>
<TD width=20></td><TD align=left width=300>地方政府门户网站</td><TD align=middle width=300><SCRIPT language=javascript>RunGLNL();CAL();</SCRIPT></TD><td width="300" align="right" valign="middle">·<a href="HX_INDEX.ASP" class="t" target="_blank">OA办公入口</a> ·<a href=# onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=a125_http%>');">设为首页</a> ·<a href="#" onClick="window.external.addFavorite('<%=a125_http%>','〖<%=a125_Title%>〗---<%=a125_http%>')">加入收藏</a></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="996" height="114">
<tr><td valign="bottom">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100%" height="100%">
<param name=movie value="<%=a125_Logo%>">
<param name=quality value=high>
<param name="wmode" value="transparent">
<param name="menu" value="false">
<embed src="<%=a125_Logo%>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100%" height="100%" wmode="transparent" menu="false"></embed>
</object></td></tr>
</table>
<DIV id=subNav>
<%dim mpmenu,mpmenu1
mpmenu=""
mpmenu1=""
SqlSort = "Select * from a125_type where (a125_big_id=0 or a125_big_id=-1) and hide=0 order by a125_order"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有一级栏目.......</div>")
response.end
else
do while not RsSort.eof
mpmenu1=mpmenu1&"#a"&RsSort("ID")&"{position:absolute;top:165px;margin:0;padding:0;} "
mpmenu1=mpmenu1&"#a"&RsSort("ID")&" li{float:none}"
mpmenu1=mpmenu1&"#a"&RsSort("ID")&" li a{ width:130px;height:24px;border-bottom:1px dotted #818488; display:block; font:12px/24px ""微软雅黑"", ""宋体"";color:#fff;} "
mpmenu1=mpmenu1&"#a"&RsSort("ID")&" a:link,#a"&RsSort("ID")&" a:visited{text-decoration:none;background:#D01A0B} "
mpmenu1=mpmenu1&"#a"&RsSort("ID")&" a:hover,#a"&RsSort("ID")&" a:active{font: bold 12px/24px ""微软雅黑"",""宋体""; background: url(images/navbg2.jpg) repeat-x;}"
if RsSort("a125_big_id")= 0 then
mpmenu = mpmenu&"<LI><A href=""type.asp?a125id="&RsSort("ID")&""" urn=""a"&RsSort("ID")&""">"&RsSort("a125_names")&"</A></LI>"
SqlClass = "Select * from a125_type where a125_big_id= "& RsSort("ID") &" order by a125_order "
Set RsClass = Conn.Execute(SqlClass)
if RsClass.eof and RsClass.bof then
Response.write("")
else
Response.write("<UL id=""a"&RsSort("ID")&""" style=""DISPLAY:none"">")
if RsSort("ID")=56 then
Response.write("<LI><A href=""pic.asp"">景点图片</A></LI>")
end if
do while not RsClass.eof
Response.write("<LI><A href=""class_type.asp?a125id="&RsClass("ID")&""">"&RsClass("a125_names")&"</A></LI>")
RsClass.movenext
loop
end if
RsClass.close
set RsClass=nothing
Response.write("</UL>")
end if
if RsSort("a125_setting")=-1 then
mpmenu = mpmenu&"<LI><A href="""&RsSort("daohang")&""" urn=""a"&RsSort("ID")&""">"&RsSort("a125_names")&"</A></LI>"
if RsSort("ID")=109 then
Response.write("<UL id=""a"&RsSort("ID")&""" style=""DISPLAY:none"">")
Response.write("<LI><A href=""gonggao.asp"">公示公告</A></LI><LI><A href=""news.asp"">新闻动态</A></LI></UL>")
end if
if RsSort("ID")=8 then
Response.write("<UL id=""a"&RsSort("ID")&""" style=""DISPLAY:none"">")
Response.write("<LI><A href=""feedback.asp"">投诉反馈</A></LI><LI><A href=""leadingbox.asp"">"&leader&"信箱</A></LI></UL>")
end if
end if
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
Response.write("</DIV><DIV id=Head><DIV class=Wp><UL id=nav>"&mpmenu&"</UL></DIV></DIV>")
Response.write("<STYLE>"&mpmenu1&"</STYLE>")
Response.write("<SCRIPT language=javascript>pcnNavInit()</SCRIPT>")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -