产品列表

<%@LANGUAGE="VBSCRIPT"%> <% Dim BeyondDB Dim BeyondDB_numRows Set BeyondDB = Server.CreateObject("ADODB.Recordset") BeyondDB.ActiveConnection = MM_Beyond_STRING BeyondDB.Source = "SELECT * FROM product ORDER BY Code ASC" BeyondDB.CursorType = 0 BeyondDB.CursorLocation = 2 BeyondDB.LockType = 1 BeyondDB.Open() BeyondDB_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 BeyondDB_numRows = BeyondDB_numRows + Repeat1__numRows %> 产品列表

<% While ((Repeat1__numRows <> 0) AND (NOT BeyondDB.EOF)) %>

" width="300">

产品号：<%=(BeyondDB.Fields.Item("Code").Value)%>

产品 >> 级别一 <%=(BeyondDB.Fields.Item("Level1").Value)%> >> 级别二 <%=(BeyondDB.Fields.Item("Level2").Value)%> >> 级别三 <%=(BeyondDB.Fields.Item("Level3").Value)%> >> <%=(BeyondDB.Fields.Item("Name").Value)%>

" target="_blank">获取详情

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 BeyondDB.MoveNext() Wend %>

| 站点地图 | 联系方式 | 英文主页 |

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