index_top.asp

来自「基于ＡＳＰ的教育网站」· ASP 代码 · 共 62 行

<%
Dim RsChannelTop
Dim RsChannelTop_numRows

Set RsChannelTop = Server.CreateObject("ADODB.Recordset")
RsChannelTop.ActiveConnection = MM_connDB_STRING
RsChannelTop.Source = "SELECT * FROM tChannelTop ORDER BY fOrderID ASC"
RsChannelTop.CursorType = 0
RsChannelTop.CursorLocation = 2
RsChannelTop.LockType = 1
RsChannelTop.Open()

RsChannelTop_numRows = 0
%>
<%
Dim Repeat1__numRows	'FriendSite.asp 注释掉
Dim Repeat1__index		'FriendSite.asp 注释掉

Repeat1__numRows = -1
Repeat1__index = 0
RsChannelTop_numRows = RsChannelTop_numRows + Repeat1__numRows
%>

<TABLE width=765  border=0 align=center cellPadding=0 cellSpacing=0 background="images/dx1.gif">
  
    <TR>
      <TD width="200" height=80>&nbsp;<a href="<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>"><img src="<%=(RsSiteConfig.Fields.Item("fLogoUrl").Value)%>" width="180" height="60" border="0" title="<%=(RsSiteConfig.Fields.Item("fSiteTitle").Value)%>"></a></TD>
      <TD><%Call Advert ("首页顶部Banner")%>
      </TD>
      <TD width="100"><p align="center"><a href="mailto:">联系我们</a><br>
          <a href="<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>')" target=_self>设为首页</a><br>
          <a href="<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>" onClick="window.external.addFavorite('<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>','【<%=(RsSiteConfig.Fields.Item("fSiteName").Value)%>】<%=(RsSiteConfig.Fields.Item("fSiteTitle").Value)%>')" target=_self>收藏本站</a><br>
        </p></TD>
    </TR>
  
</TABLE>
<TABLE width="765" border=0 align="center" cellPadding=0 cellSpacing=0>
  
    <TR>
      <TD width=16><IMG height=41  src="images/index1_1.gif" width=16> </TD>
      <TD width=472 valign="middle" background=images/index1_2.gif>&nbsp; 
<% 
While ((Repeat1__numRows <> 0) AND (NOT RsChannelTop.EOF)) 
%>
&nbsp;<a href="<%=(RsChannelTop.Fields.Item("fLinkUrl").Value)%>" title="<%=(RsChannelTop.Fields.Item("fReadMe").Value)%>"><%=(RsChannelTop.Fields.Item("fChannelName").Value)%></a>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsChannelTop.MoveNext()
Wend
%>      </TD>
      <TD valign="top" background=images/index1_5.gif><IMG height=41  src="images/index1_4.gif" width=30></TD>
      <TD width="200" valign="bottom" background=images/index1_5.gif><div align="right"><%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%></div></TD>
      <TD width=14 valign="top"><IMG src="images/index1_7.gif" width=14 height=41 align="top"></TD>
    </TR>
  
</TABLE>
<%
RsChannelTop.Close()
Set RsChannelTop = Nothing
%>