index_bottom.asp

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

<%
Dim RsChannelBottomUrl
Dim RsChannelBottomUrl_numRows

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

RsChannelBottomUrl_numRows = 0
%>
<%
'Dim Repeat1__numRows
'Dim Repeat1__index

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

<TABLE cellSpacing=0 cellPadding=0 width=765 align=center  border=0>
              <TR>
                <TD height="70" valign="middle" background=images/d.gif >&nbsp;&nbsp;|
                  <% 
While ((Repeat1__numRows <> 0) AND (NOT RsChannelBottomUrl.EOF)) 
%>
                  <A HREF="index_bottomURL.asp?fID=<%= RsChannelBottomUrl.Fields.Item("fID").Value %>"><%=(RsChannelBottomUrl.Fields.Item("fBUrlName").Value)%></A> |
                  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsChannelBottomUrl.MoveNext()
Wend
%></TD>
			</TR>
</TABLE>
<div align="center"><%=(RsSiteConfig.Fields.Item("fCopyright").Value)%>&nbsp;&nbsp;&nbsp;程序开发: 
  sdjiaoyu&nbsp;&nbsp;&nbsp;站长: <%=(RsSiteConfig.Fields.Item("fWebmasterName").Value)%></div>
<%
RsChannelBottomUrl.Close()
Set RsChannelBottomUrl = Nothing
%>