advert.asp

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

<% Sub Advert (LHP)%>
<%
Dim RsAdvert__MMColParam
RsAdvert__MMColParam = LHP
If (Request("MM_EmptyValue") <> "") Then 
  RsAdvert__MMColParam = Request("MM_EmptyValue")
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, "'", "''") + "'"
RsAdvert.CursorType = 0
RsAdvert.CursorLocation = 2
RsAdvert.LockType = 1
RsAdvert.Open()

RsAdvert_numRows = 0
%>


<div align="center">
  <% 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
%>
<%End Sub%>