<%@LANGUAGE="VBSCRIPT"%> <% Dim sale__MMColParam sale__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then sale__MMColParam = Request("MM_EmptyValue") End If %> <% Dim sale Dim sale_numRows Set sale = Server.CreateObject("ADODB.Recordset") sale.ActiveConnection = MM_webconn_STRING sale.Source = "SELECT * FROM sale WHERE s_type = " + Replace(sale__MMColParam, "'", "''") + " ORDER BY s_date DESC" sale.CursorType = 0 sale.CursorLocation = 2 sale.LockType = 1 sale.Open() sale_numRows = 0 %>

最新促销 <% If Not sale.EOF Or Not sale.BOF Then %> " border="0"> <%=(sale.Fields.Item("s_name").Value)%> 发布时间：<%= DoDateTime((sale.Fields.Item("s_date").Value), 2, -1) %> <%=ubbcode(sale.Fields.Item("s_desc").Value)%> <% End If ' end Not sale.EOF Or NOT sale.BOF %>

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