| 培训课题 |
盘卷数 |
定价 |
操作 |
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "
目前没有培训课程"
else
i=0
while not rs.eof
%>
| <%=rs("anclass")%> |
<%
anclassid=rs("anclassid")
set rs_2=server.createobject("adodb.recordset")
rs_2.open "select * from shop_books where anclassid="&anclassid&" and kucun>-98 order by adddate desc",conn,1,1
if rs_2.recordcount=0 then
%>
|
<%
else
while not rs_2.eof
%>
.html><%=trim(rs_2("bookname"))%> |
<%=trim(rs_2("isbn"))%> |
￥<%=trim(rs_2("huiyuanjia"))%> |
&action=add>购买 |
<%
rs_2.movenext
wend
end if
rs_2.close
set rs_2=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
|