地毯|地毯厂|地毯铺装－－

<%@LANGUAGE="VBSCRIPT"%> <% Dim mm8YBM__MMColParam mm8YBM__MMColParam = "8YBM系列" If (Request("MM_EmptyValue") <> "") Then mm8YBM__MMColParam = Request("MM_EmptyValue") End If %> <% Dim mm8YBM Dim mm8YBM_numRows Set mm8YBM = Server.CreateObject("ADODB.Recordset") mm8YBM.ActiveConnection = MM_songhui_STRING mm8YBM.Source = "SELECT * FROM xlcp WHERE lei = '" + Replace(mm8YBM__MMColParam, "'", "''") + "'" mm8YBM.CursorType = 0 mm8YBM.CursorLocation = 2 mm8YBM.LockType = 1 mm8YBM.Open() mm8YBM_numRows = 0 %> 地毯|地毯厂|地毯铺装－－－燕山地毯

五十年国庆

北京空招

......

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