advert_top_468x60.asp

来自「深度学习整站系统 v1.10 1、将整个目录上传到虚拟空间」· ASP 代码 · 共 38 行

<%
Dim RsAdvert__MMColParam
RsAdvert__MMColParam = "Banner广告"
If (Application("Banner广告") <> "") Then 
  RsAdvert__MMColParam = Application("Banner广告")
End If
%>
<%
Dim RsAdvert
Dim RsAdvert_numRows

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

RsAdvert_numRows = 0
%>


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


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