<% set myrs_catalog=server.CreateObject("adodb.recordset") myrs_catalog.Open "select catalogid,catalogname from t_business_catalog where mever='" & current_ver & "'",conn,1,1 %>
所有商品
<%if myrs_catalog.RecordCount>0 then myrs_catalog.MoveFirst do until myrs_catalog.EOF Response.Write "
" & myrs_catalog("catalogname") & "
" myrs_catalog.MoveNext loop end if %>
=====请选择=====
书名
作者
出版社
ISBN
>
高级搜索