<%@LANGUAGE="VBSCRIPT"%> <% Dim p_class__MMColParam p_class__MMColParam = "1" If (Request.QueryString("p_classid") <> "") Then p_class__MMColParam = Request.QueryString("p_classid") End If %> <% Dim p_class Dim p_class_numRows Set p_class = Server.CreateObject("ADODB.Recordset") p_class.ActiveConnection = MM_webconn_STRING p_class.Source = "SELECT * FROM product_class WHERE p_classid = " + Replace(p_class__MMColParam, "'", "''") + "" p_class.CursorType = 0 p_class.CursorLocation = 2 p_class.LockType = 1 p_class.Open() p_class_numRows = 0 %>

<%=(p_class.Fields.Item("p_class").Value)%> ">" alt="浏览该系列产品" border="0"> 点击浏览该系列产品 <%= CleanHtmlBr(p_class.Fields.Item("p_class").Value)%> <%= CleanHtmlBr(p_class.Fields.Item("p_c_desc").Value)%>

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