top.asp

来自「计算器源码」· ASP 代码 · 共 56 行

<!--#include file="css/link.css"-->
<!--#include file="conn.asp"-->
<% 
   dim logo
   dim guestbookname 
   dim rs
   dim sql
   set rs=server.CreateObject("adodb.recordset")
       sql="select * from admin "
       rs.open sql,conn,1,1
	   logo=rs("logo")
	   guestbookname=rs("guestbookname")
  %>

<table width="623" height="65" border="0" align="center" cellspacing="0">
  <tr> 
    <td width="21%" valign="middle" background="image/blue.gif">
<div align="center"><a href="<%=rs("sitehomepage")%>" target="_blank"><img src="<%=logo%>" border="0" align="absmiddle"></a></div></td>
    <td width="42%" valign="middle" background="image/blue.gif">
<div align="center"><font color="#FFFFFF" size="4"><strong><a href="<%=rs("sitehomepage")%>" target="_blank"><%=guestbookname%></a>留言本</strong> 
        </font> </div></td>
    <td width="37%" valign="middle" background="image/blue.gif">
<div align="center"><font color="#FFFFFF" size="2"><img src="image/homepage.gif" width="16" height="16" align="absmiddle"><a href="index.asp">首页</a> 
        <img src="image/manage.gif" width="16" height="16" align="absmiddle"> 
        <%if session.contents("admin")="ok" then%>
        <a href="logout.asp">退出管理 </a> 
        <%else%>
        <a href="login.asp">管理入口</a> 
        <%end if%>
        <img src="image/help.gif" width="16" height="16" align="absmiddle"><a href="help.asp">使用说明</a></font></div></td>
  </tr>
</table>
<table width="623" height="25" border="0" align="center" cellspacing="1" bgcolor="#0066FF">
  <tr> 
    <td width="79" bgcolor="#FFFFFF">　<img src="image/announce.gif" width="18" height="18" align="absmiddle"><font size="2"><strong>公告： 
      </strong></font></td>
    <td width="537" bgcolor="#FFFFFF"> <marquee scrolldelay=150>
      
	 <%
	 dim rs4,sql4
	 set rs4=server.CreateObject("adodb.recordset")
	     sql4="select noticecontent from notice where id=1"
		 rs4.open sql4,conn,1,1
	%>
      <img src="image/gg.gif" width="19" height="18" align="absmiddle"><font color="red" size="2"> 
      <%=rs4("noticecontent")%></font> 
      </marquee></td>
  </tr>
</table>
<% rs.close
	 set rs=nothing%>
<% 
    conn.close
set conn=nothing

%>