top_menu.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<%sub tablefirst()
%>
<TABLE cellSpacing=0 
cellPadding=0 width="99%" border=0 align="center">
  <TBODY> 
  <TR> 
     
    <TD bgcolor="#FFFFFF"> 
      <%end sub%>
      <%sub tablelast()
%>
    </TD>
  </TR>
  </TBODY> 
</TABLE>
<%end sub%>
<%
function table(content)
tablefirst()
%>
<%=content%> 
<%
tablelast()
end function%>

<%
sub urltomyself()
%>
      <table border="0" width="100%" cellpadding="0" height="12">
        <tr> 
          
    <td width="100%" height="6" class=white> 
      <p align="center"> <img src="image/homepage.gif" width="16" height="16" align="absmiddle"><a href="<%=homeurl%>" target="_blank">首页</a> 
        <img src="image/post.gif" width="15" height="16" border="0" align="absmiddle"><a href="?user=<%=admin%>&action=write">签写留言</a>    
        <%if session("user")=admin then%>   
        <img src="image/userlist.gif" width="16" height="16" align="absmiddle"><a href="?action=administrator&user=<%=admin%>" >用户管理</a>    
        <img src="image/logout.gif" width="14" height="12" align="texttop"><a href="?action=logout&user=<%=admin%>" >管理退出</a>    
        <%else%>   
        <img src="image/registration.gif" width="16" height="16" align="absmiddle"><a href="?action=registration&user=<%=admin%>">免费申请</a>    
        <img src="image/manage.gif" width="16" height="16" align="absmiddle"><a href="?action=isadmin&user=<%=admin%>">管理留言</a>    
        <%end if%>   
        <img src="image/fav_add.gif" width="16" height="15" align="absmiddle" border="0"><a href="javascript:{window.external.addFavorite('<%=homepage%>','<%=homename%>')}">加入收藏</a>    
    </td>
</tr>
</table>
<%
end sub
%>
<%sub toptablefirst()%>
<table style="BORDER-COLLAPSE: collapse" bordercolor=#111111 cellspacing=0 
cellpadding=0 width="550" align=center border=0>
  <tbody> 
  <tr> 
    <td width=168 height=65 background="css/<%=css_name%>/<%=TopLeft%>">
      <table border="0" cellpadding="0" cellspacing="0" width="168">
       
        <tr> 
          <td rowspan="3" width="9" height="65">&nbsp;</td>
          <td width="48" height="9"></td>
          <td rowspan="3" width="111" height="65"> 
            <table width="111" border="0" cellspacing="0" cellpadding="0" style="TABLE-LAYOUT: fixed">
              <tr> 
                <td width="10"></td>
                <td width="91" style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word" height="20" class=xpshadow> 
                  <a href="<%=homepage%>" target="_blank"><font color="#FFFFFF"><%if myhome<>"" then 
response.write myhome
end if
%></font></a>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td><span class=xpshadow><img src="<%if logo<>"" then 
response.write logo
else
response.write("logos/public.gif")
end if
%>" width="48" height="48" border="0"></span></td>
        </tr>
        <tr> 
          <td width="48" height="8"></td>
        </tr>
      </table>
    </td>
    <td background="css/<%=css_name%>/<%=TopMid%>" width="442" align="right"> 
      <%end sub%>
      <%sub toptablelast()%>
    </td>
    <td width=10><img height=65 
      src="css/<%=css_name%>/<%=TopRight%>" 
      width=36></td>
  </tr>
  </tbody>
</table>
<font size=2><font color=#FFFFFF> </font></font> 
<%end sub%>
<%sub show()
%>
<%toptablefirst()%>
<%
if request("user")="" then
urltomyself()
%>
<%toptablelast()%>
<%
else
sql_user="select userid,user,homepage,homename from user where user='"&request("user")&"'"
set rs_user=conn.execute(sql_user)
if not rs_user.bof and not rs_user.eof then
%>
<table border="0" width="100%" cellpadding="0" height="12">
        <tr> 
          
    <td width="100%" height="6" class=white> 
      <p align="center"> <img src="image/homepage.gif" width="16" height="16" align="absmiddle"><a href="<%=rs_user("homepage")%>" target="_blank">首页</a> 
        <img src="image/post.gif" width="16" height="16" border="0" align="absmiddle"><a href="?user=<%=rs_user("user")%>&action=write">签写留言</a>                   
        <%if session("user")<>"" then%>                  
        <img src="image/myinfo.gif" width="16" height="16" align="absmiddle"><a href="?action=modify&user=<%=request("user")%>" >修改资料</a>                   
        <img src="image/logout.gif" width="14" height="12" align="texttop"><a href="?action=logout&user=<%=request("user")%>" >管理退出</a>                   
        <%else%>                  
        <img src="image/registration.gif" width="16" height="16" align="absmiddle"><a href="?action=registration&user=<%=admin%>" >免费申请</a>                   
        <img src="image/manage.gif" width="16" height="16" align="absmiddle"><a href="?action=isadmin&user=<%=request("user")%>" >管理留言</a>                   
        <%end if%>                  
        <img src="image/fav_add.gif" width="16" height="16" align="absmiddle" border="0"><a href="javascript:{window.external.addFavorite('<%=homepage%>','<%=homename%>')}">加入收藏</a>                   
    </td>
</tr>
</table>
<%toptablelast()%>
<%
else
urltomyself() 


%>
<%toptablelast()%>
<%
end if
end if
end sub
%>