top.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#include file="../inc/config.asp"-->
<%if topbg=1 then %>
<script src="admin/clearevents.js"></script>
<%else%>
<%end if%>
<div align="center">
  <TABLE WIDTH=760 height="110" BORDER=0 CELLPADDING=0 CELLSPACING=0>
    <TR> 

      
	  <script language="javascript">
var i;
i=Math.floor(Math.random()*4);
document.write("<td width='510' height='110' rowspan='3' background=./images/"+i+".gif>")
</script>
<object 
      codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 
      height=110 width=510 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
          <param name="movie" value="./images/top.swf">
          <param name="quality" value="high">
          <param name="wmode" value="transparent">
          <embed src="photo/top.swf" quality=high 
      pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" 
      type="application/x-shockwave-flash" width="634" height="60"> </embed> </object>
</TD>
      <TD width="250"> <IMG SRC="images/news2003-2_02.gif" WIDTH=250 HEIGHT=10 ALT=""></TD>
    </TR>
    <TR> 
      <TD width="250" height="89" align="center" background="images/news2003-2_03.gif"> 
        <table width="90%" border="0" cellpadding="2" cellspacing="0">
          <tr> 
            <td align="right" valign="top"class="top"><marquee scrolldelay="5" scrollamount="2" >
              <font color=#F5F5F5><%=gg1%></font></marquee></tr>
          <tr> 
            <td align="right" valign="top"class="top"><img src="./IMAGES/a.gif" width="11" height="8" align="absmiddle"><a class=top href="#" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=xpurl%>');" >&nbsp;设为首页</a></tr>
          <tr> 
            <td align="right" valign="top"class="top"><img src="./IMAGES/c.gif" width="11" height="8" align="absmiddle"><a class=top href="#" onclick=window.external.AddFavorite(location.href,document.title);>&nbsp;加入收藏</a></tr>
          <tr> 
            <td align="right" valign="top"class="top"><img src="./IMAGES/b.gif" width="11" height="8" align="absmiddle"><a href="mailto:<%=email%>" class=top>&nbsp;联系我们</a></tr>
        </table></TD>
    </TR>
    <TR> 
      <TD height="11"> <IMG SRC="images/news2003-2_04.gif" WIDTH=250 HEIGHT=11 ALT=""></TD>
    </TR>
  </TABLE>
</div>
<table width="760" height="27" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="760" height="27" align="center" background="IMAGES/top-d.gif"> 
      <table><tr>
          <td class="top" nowrap><font color="#DDE5F2">|</font> <a href="index.asp" class="top">网站首页</a></td>
          
		  <% if B_BG=0 then %> 
		  <td>
		  <!--#include file=menu.asp --></td>
          <% else %>
		  <td class="top" nowrap>
<%
dim menuid
dim menuname
dim menucontent
dim menuview
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraymenuID(1000),ArraymenuName(1000)
while not rs.EOF
RecordCount=rs.RecordCount
menuid=rs("typeid")
menuname=rs("typename")
menucontent=rs("typecontent")
menuview=rs("typeview")
TdString="<font color='#DDE5F2'>|</font>&nbsp;<a href='type.asp?typeID="& menuid &" 'class=top title='"& menucontent &"' class='top'>"& menuName &"</a>" 
Response.Write TdString
ArraymenuID(i)=menuID
ArraymenuName(i)=menuName
i=i+1
rs.MoveNext
wend
rs.close
set rs=nothing
%></td><%end if%>
<td class=top nowrap><%
dim mymenu
mymenu=basemenu
Response.Write mymenu
%></td> 
        </tr></table></td>
  </tr>
</table>