📄 gaobei_head.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%
'缓冲面页
response.Expires = -1
'True开启缓冲 False关闭
Response.Buffer=True
Dim time1,time2
time1=timer
%>
<!--#include file="Include/Gaobei_Setup.asp" -->
<!--#include file="Include/Gaobei_Function.asp" -->
<!--#include file="Conn_User.asp" -->
<!--#include file="other/Gaobei_md5.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">
<SCRIPT language=javaScript src="Include/Gaobei.js" type=text/javascript></SCRIPT>
</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">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="150" background="images/xbqq_top.gif">
<tr>
<td width="778" valign="top">
<OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,
0 height=144 width=776>
<PARAM NAME="movie" VALUE="images/top.swf">
<PARAM NAME="quality" VALUE="high">
<PARAM NAME="wmode" VALUE="transparent">
<embed src="images/top.swf" width="776" height="144" quality="high"
pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-
flash" wmode="transparent">
</OBJECT>
</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">
</div>
</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="86"></td>
<td width="144" valign="middle">
<font color="#FFFFFF">
<SCRIPT type=text/javascript>Gaobei_time();</SCRIPT>
</font>
</td>
<td width="25"></td>
<td width="523"><font color="#008AF7">您现在所在的位置：</font><a href="default.asp">首页</a><% call navigation() %></td>
</tr>
</table>
</div>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -