advert_bottom_760x60.asp

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

<%
Dim RsAdvertBottom__MMColParam
RsAdvertBottom__MMColParam = "底部横条广告"
If (Application("底部横条广告") <> "") Then 
  RsAdvertBottom__MMColParam = Application("底部横条广告")
End If
%>
<%
Dim RsAdvertBottom
Dim RsAdvertBottom_numRows

Set RsAdvertBottom = Server.CreateObject("ADODB.Recordset")
RsAdvertBottom.ActiveConnection = MM_connDB_STRING
RsAdvertBottom.Source = "SELECT * FROM tAdvert WHERE fADType = '" + Replace(RsAdvertBottom__MMColParam, "'", "''") + "' ORDER BY IsSelected ASC"
RsAdvertBottom.CursorType = 0
RsAdvertBottom.CursorLocation = 2
RsAdvertBottom.LockType = 1
RsAdvertBottom.Open()

RsAdvertBottom_numRows = 0
%>

<div align="center">
  <% If Not RsAdvertBottom.EOF Or Not RsAdvertBottom.BOF Then %>
  	<%=(RsAdvertBottom.Fields.Item("fADSettingCode").Value)%>
  <% End If ' end Not RsAdvertBottom.EOF Or NOT RsAdvertBottom.BOF %>
  <% If RsAdvertBottom.EOF And RsAdvertBottom.BOF Then %>
		暂无广告！！！
  <% End If ' end RsAdvertBottom.EOF And RsAdvertBottom.BOF %>
</div>

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