frendsite_bottom.asp

深度学习整站系统 v1.10 1、将整个目录上传到虚拟空间

<%
Dim rsFriendSite
Dim rsFriendSite_numRows

Set rsFriendSite = Server.CreateObject("ADODB.Recordset")
rsFriendSite.ActiveConnection = MM_connDB_STRING
rsFriendSite.Source = "SELECT fSiteName, fSiteUrl, fSiteIntro FROM tFriendSite ORDER BY fOrderID ASC"
rsFriendSite.CursorType = 0
rsFriendSite.CursorLocation = 2
rsFriendSite.LockType = 1
rsFriendSite.Open()

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

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

<TABLE cellSpacing=0 cellPadding=0 width=765 align=center  border=0>
  <TR>
      <TD background=images/dx2.gif height=30><div align="center">
        友情连接：<% 
While ((Repeat1__numRows <> 0) AND (NOT rsFriendSite.EOF)) 
%>
        &nbsp;<a href="<%=(rsFriendSite.Fields.Item("fSiteUrl").Value)%>" title="<%=(rsFriendSite.Fields.Item("fSiteIntro").Value)%>" target="_blank"><%=(rsFriendSite.Fields.Item("fSiteName").Value)%></a>&nbsp;
        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsFriendSite.MoveNext()
Wend
%>
</div></TD>
  </TR>
</TABLE>

<%
rsFriendSite.Close()
Set rsFriendSite = Nothing
%>