index_bottom.asp

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

<%
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
%>
<%
Dim MM_paramName2 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone2
Dim MM_keepURL2
Dim MM_keepForm2
Dim MM_keepBoth2

Dim MM_removeList2
Dim MM_item2
Dim MM_nextItem2

' create the list of parameters which should not be maintained
MM_removeList2 = "&index="
If (MM_paramName2 <> "") Then
  MM_removeList2 = MM_removeList2 & "&" & MM_paramName2 & "="
End If

MM_keepURL2=""
MM_keepForm2=""
MM_keepBoth2=""
MM_keepNone2=""

' add the URL parameters to the MM_keepURL2 string
For Each MM_item2 In Request.QueryString
  MM_nextItem2 = "&" & MM_item2 & "="
  If (InStr(1,MM_removeList2,MM_nextItem2,1) = 0) Then
    MM_keepURL2 = MM_keepURL2 & MM_nextItem2 & Server.URLencode(Request.QueryString(MM_item2))
  End If
Next

' add the Form variables to the MM_keepForm2 string
For Each MM_item2 In Request.Form
  MM_nextItem2 = "&" & MM_item2 & "="
  If (InStr(1,MM_removeList2,MM_nextItem2,1) = 0) Then
    MM_keepForm2 = MM_keepForm2 & MM_nextItem2 & Server.URLencode(Request.Form(MM_item2))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth2 = MM_keepURL2 & MM_keepForm2
If (MM_keepBoth2 <> "") Then 
  MM_keepBoth2 = Right(MM_keepBoth2, Len(MM_keepBoth2) - 1)
End If
If (MM_keepURL2 <> "")  Then
  MM_keepURL2  = Right(MM_keepURL2, Len(MM_keepURL2) - 1)
End If
If (MM_keepForm2 <> "") Then
  MM_keepForm2 = Right(MM_keepForm2, Len(MM_keepForm2) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>

<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?<%= Server.HTMLEncode(MM_keepNone2) & MM_joinChar(MM_keepNone2) & "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>
              <TR>
                <TD> <div align="center"><%=(RsSiteConfig.Fields.Item("fCopyright").Value)%>&nbsp;&nbsp;&nbsp;程序开发: <a href="http://www.deepteach.com/" target="_blank">吕海鹏</a>&nbsp;&nbsp;&nbsp;站长: <%=(RsSiteConfig.Fields.Item("fWebmasterName").Value)%></div></TD>
              </TR>
</TABLE>
<%
RsChannelBottomUrl.Close()
Set RsChannelBottomUrl = Nothing
%>