📄 head.asp

📁 网站代码
💻 ASP
字号:
<%
	'缓冲面页
	response.Expires = -1
	'True开启缓冲 False关闭
	Response.Buffer=True 
	Dim time1,time2
    time1=timer
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Setup.asp" -->
<!--#include file="Include/char.asp" --><HTML>
<HEAD>
<meta name="keywords" content="<%=Pw_Manager%>,<%=Pw_WebInfo%>,<%=Pw_http%>,wenday.com,源码下载,网页特效,音乐,Flash,ASP设计,教程,聊天,图片,酷站,链接,留言,统计,日记,文章,免费,软件,合作,ASP,主机,交流,电影">
<meta name="description" content="<%=Pw_Manager%>,<%=Pw_Title%>,<%=Pw_Title%>,<%=Pw_WebInfo%>,<%=Pw_http%>,wenday.com,源码下载,网页特效,音乐,Flash,ASP设计,教程,聊天,图片,酷站,链接,留言,统计,日记,文章,免费,软件,合作,ASP,主机,交流,电影">
<!--#include file="Include/Pw_Function.asp" --><link href="Img/Style.css" rel="stylesheet" type="text/css">
<title><%=Pw_Title%>--<%=Pw_WebInfo%></title>
<BODY leftMargin=0 topMargin=0 >
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="1" bgcolor="#CCCCCC"></td>
  </tr>
</table>
<TABLE width=777 border="0" align=center cellPadding=0 cellSpacing=0 bgColor=#ffffff style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid">
<TBODY>
    <TR> 
      <TD width="775" height=75><img src="Img/logo.gif" width="778" height="75"></TD>
    </TR>
    <TR> 
      <TD bgColor=#e4e4e4 height=2></TD>
    </TR>
    <TR align=middle> 
      <TD height="1" align=middle></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE height=110 cellSpacing=0 cellPadding=0 width=778 align=center 
      border=0>
  <TBODY>
    <TR> 
      <TD height=86><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="778" height="129">
          <param name="movie" value="swf/20040916.swf">
          <param name="quality" value="high">
          <embed src="swf/20040916.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="778" height="129"></embed></object></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <TBODY>
    <TR bgColor=#ffffff> 
      <TD width="778" height=2 colSpan=3></TD>
    </TR>
    <TR> 
      <TD height=22 colspan="3" bgColor=#eeeeee><TABLE width="100%" height="30" border=0 cellPadding=0 cellSpacing=0 background="Img/top_bg.gif">
          <TBODY>
            <TR> 
              <TD height="30" align=right background=""><table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td align="center"><a href="index.asp">网站首页</a></td>
                    <td align="center"><a href="news.asp">本站新闻</a></td>
                    <td height="25"> <%
	sql="select * from Sort where B_id=0 order by s_order"
	Set rs=conn.execute (sql)
	if rs.eof and rs.bof then
		response.write "还没有任何栏目"
	else
	do while not rs.eof
	Id=Request("SortID")
%> 
                    <td align="center"> <a href="Sort.asp?SortID=<%=rs("ID")%>"> 
                      <%if rs("id")=id then%>
                      <font color=#FF0000><%=rs("Names")%></font> 
                      <%else%>
                      <%=rs("Names")%> 
                      <%end if%>
                      </a></td>
                    <%  
rs.movenext  
loop  
end if  
rs.close 
%>
                    <td align="center"><a href="Guestbook.asp">网站留言</a></td>
                  </tr>
                </table>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
⌨️ 快捷键说明

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