📄 head.asp

📁 强大的部门网站功能
💻 ASP
字号:

<%
    '缓冲面页
    response.Expires = -1
    'True开启缓冲 False关闭
    Response.Buffer=True 
    Dim time1,time2
    time1=timer
%>
<!--#include file="include/setting.asp" -->
<!--#include file="include/Function.asp" -->
<!--#include file="include/Conn_User.asp" -->
<!--#include file="other/zf11_md5.asp" -->
<!--#include file="include/Conn.asp" -->

<html>
<head>
<title><%=zf11_Title%></title>
<meta name="description" content="<%=zf11_description%>">
<meta name="keyword" content="<%=zf11_keywords%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="other/zf11_style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javaScript src="Include/zf11.js" type=text/javascript></SCRIPT>
</head>
<!--
<%
    '获取文章的导航题目
    zf11id=CheckStr(Request.QueryString("zf11id"))
    sql="select * from zf11_type where ID="&zf11id&""
    Set Rs=conn.execute (sql)
    Sortname=Rs("zf11_names")
    Rs.close
    set Rs=nothing
    '==============================================
    ClassID=CheckStr(Request.QueryString("ClassID")) 
    sqlc="select * from zf11_type where ID="&ClassID&""
    Set Rsc=conn.execute (sqlc)
    Classname=Rsc("zf11_names")
    zf11_CalssInfo=Rsc("Info")
    zf11_big_id=Rsc("zf11_big_id")
    sqls="select * from zf11_type where ID="&zf11_big_id&""
    Set Rss=conn.execute (sqls)
    SortName=Rss("zf11_names")
    Title ="<a href=type.asp?zf11id="&zf11_big_id&">" &SortName & "</a>"& " &gt;&gt; " & Classname
    Rs.close
    set Rs=nothing
%>
-->
<body topmargin="0" leftmargin="0" background="images/bg.gif" bgColor=#336699>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="780" height="140" >
		<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="images/top.swf">
  <param name=quality value=high>
  <param name="wmode" value="transparent">
  <param name="menu" value="false">
  <embed src="images/top.swf" 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>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="780" height="31" background="images/daohang_bg.gif">
		<tr>
                    <td>

<div align="right">
	<table border="0" cellpadding="0" cellspacing="0" height="31">
		<tr>
			<td>

			</td>
<%
    Dim TopSortSql,RsTopSort,daohang,hide
    TopSortSql="select * from zf11_type where (zf11_big_id=0 or daohang<>'') and hide<>true order by zf11_order"
    Set RsTopSort=conn.execute (TopSortSql)
    With RsTopSort
    if .eof and .bof then
    Response.write "<td align='center' >没有栏目</td>"
    else
    do while not .eof
    '==================
    if RsTopSort("daohang")<>"" then
    daohang=RsTopsort("daohang")
    else
    daohang=" type.asp?zf11id="&RsTopSort("ID")&" "
    end if
    '==================
    response.write "<td>"
    response.write "<div align=right>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 height=31 style='text-align:center;'>"
    response.write "<tr>"
    response.write "<td style=' PADDING-TOP: 2px'>"
    response.write "<p align=center>"
    if RsTopSort("blank")=true then
    response.write "&nbsp;&nbsp;"
    Response.Write("<A href='"&daohang&"' target='_blank'><FONT color=#ffffff><span style='letter-spacing: 2px'>"  & RsTopSort("zf11_names") & "</span></Font></a>")
    response.write "&nbsp;&nbsp;"
    else
    response.write "&nbsp;&nbsp;"
    Response.Write("<A href='"&daohang&"'><FONT color=#ffffff><span style='letter-spacing: 2px'>"  & RsTopSort("zf11_names") & "</span></Font></a>")
    response.write "&nbsp;&nbsp;"
    end if
    response.write "</td>"
    response.write "<td width=5 ></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "</td>"
    .movenext  
    loop
    end if 
    .close 
    End With
    Set RsTopSort=Nothing
%>
			<td>

			</td>

		</tr>
	</table>
</div>

</td>
		</tr>
	</table>
</div>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -