📄 gaobei_head.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%
'缓冲面页
response.Expires = -1
'True开启缓冲 False关闭
Response.Buffer=True
Dim time1,time2
time1=timer
%>
<!--#include file="Include/Gaobei_Function.asp" -->
<!--#include file="Conn_User.asp" -->
<!--#include file="other/Gaobei_md5.asp" -->
<!--#include file="Include/Gaobei_Setup.asp" -->
<!--#include file="Conn.asp" -->
<html>
<head>
<title><%=Gaobei_Title%></title>
<meta name="description" content="<%=Gaobei_description%>">
<meta name="keyword" content="<%=Gaobei_keywords%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="other/Gaobei_style.css" rel="stylesheet" type="text/css">
</head>
<!--
<%
'获取文章的导航题目
SortID=CheckStr(Request.QueryString("SortID"))
sql="select * from Sort where ID="&SortID&""
Set Rs=conn.execute (sql)
Sortname=Rs("names")
Rs.close
set Rs=nothing
'==============================================
ClassID=CheckStr(Request.QueryString("ClassID"))
sqlc="select * from Sort where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
Classname=Rsc("names")
Gaobei_CalssInfo=Rsc("Info")
B_ID=Rsc("B_ID")
sqls="select * from Sort where ID="&B_ID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
Title ="<a href=Sort.asp?SortID="&B_ID&">" &SortName & "</a>"& " >> " & Classname
Rs.close
set Rs=nothing
%>
-->
<body topmargin="0" leftmargin="0" background="images/gaobei_background.gif">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="106" background="images/gaobei_top1.gif">
<tr>
<td width="148" valign="top">
<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="99%" height="96%">
<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="99%" height="96%" wmode="transparent" menu="false">
</embed>
</object>
</td>
<td width="630"> </td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="35" background="images/gaobei_daohang.gif">
<tr>
<td>
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" height="35">
<tr>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="13" height="35">
<tr>
<td>
<img border="0" src="images/Gaobei_skin/Gaobei_dhhead.gif" width="13" height="35"></td>
</tr>
</table>
</div>
</td>
<%
Dim TopSortSql,RsTopSort,daohang,hide
TopSortSql="select * from Sort where (B_id=0 or daohang<>'') and hide<>true order by s_order"
Set RsTopSort=conn.execute (TopSortSql)
With RsTopSort
if .eof and .bof then
Response.write "<td align='center' background='images/Gaobei_skin/Gaobei_dhmain.gif'>没有栏目</td>"
else
do while not .eof
'==================
if RsTopSort("daohang")<>"" then
daohang=RsTopsort("daohang")
else
daohang=" Sort.asp?SortID="&RsTopSort("ID")&" "
end if
'==================
response.write "<td>"
response.write "<div align=right>"
response.write "<table border=0 cellpadding=0 cellspacing=0 height=35 background='images/Gaobei_skin/Gaobei_dhmain.gif'>"
response.write "<tr>"
response.write "<td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>"
response.write "<p align=center>"
if RsTopSort("blank")=true then
response.write " "
Response.Write("<A href='"&daohang&"' target='_blank'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
response.write " "
else
response.write " "
Response.Write("<A href='"&daohang&"'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
response.write " "
end if
response.write "</td>"
response.write "<td width=11 background='images/Gaobei_skin/Gaobei_dhzhong.gif'></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
.movenext
loop
end if
.close
End With
Set RsTopSort=Nothing
%>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="13" height="35">
<tr>
<td>
<img border="0" src="images/Gaobei_skin/Gaobei_dhend.gif" width="13" height="35"></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="143" bgcolor="#FFFFFF">
<tr>
<td>
<div align="center">
<SCRIPT language=javascript>
<!--
bg = new Array(0); //设定图片数量，如果图片数为3，这个参数就设为2，依次类推
//bg[0] = 'images/gaobei_topbanner1.gif' //显示的图片路径，可用http://
//bg[1] = 'images/gaobei_topbanner2.gif'
//bg[2] = 'images/gaobei_topbanner3.gif'
bg[0] = 'images/gaobei_topbanner4.gif'
index = Math.floor(Math.random() * bg.length);
document.write("<style>#huerreson{background-image:url("+bg[index]+")}</style>");
//-->
</SCRIPT>
<table id=huerreson border="0" cellpadding="0" cellspacing="0" width="765" height="142">
<tr>
<td>
<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="89%">
<param name=movie value="other/flash.swf">
<param name=quality value=high>
<param name="wmode" value="transparent">
<param name="menu" value="false">
<embed src="other/flash.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100%" height="89%" wmode="transparent" menu="false">
</embed>
</object>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="29" background="images/gaobei_top2.gif" id="table5">
<tr>
<td width="83"></td>
<td width="147" valign="middle">
<font color="#FFFFFF">
<script language=JavaScript>
<!--
tmpDate = new Date();
date = tmpDate.getDate();
month= tmpDate.getMonth() + 1;
year= tmpDate.getYear();
document.write(year);
document.write("年");
document.write(month);
document.write("月");
document.write(date);
document.write("日 ");
myArray=new Array(6);
myArray[0]="星期日"
myArray[1]="星期一"
myArray[2]="星期二"
myArray[3]="星期三"
myArray[4]="星期四"
myArray[5]="星期五"
myArray[6]="星期六"
weekday=tmpDate.getDay();
if (weekday==0 | weekday==6)
{
document.write(myArray[weekday])
}
else
{
document.write(myArray[weekday])
};
// -->
</script>
</font>
</td>
<td width="25"></td>
<td width="523"><font color="#008AF7">您现在所在的位置：</font><a href="index.asp">首页</a><% call navigation() %></td>
</tr>
</table>
</div>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -