|
|
| 编号 |
产品名称 |
规格 |
主讲 |
市场价(元) |
折扣 |
优惠价(元) |
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 2000 typeid,sortid,showname,dateandtime,described,id,author,price12,price32 from cd order by dateandtime Desc,id desc"
rs.open sql,conn,1,3
if rs.eof then
response.write" 暂无内容
"
else
k=1
do while not rs.eof
zhekou=(rs("price32")/rs("price12"))*10
%>
| R<%=rs("id")%> |
" href="http://www.51report.com/edu/detail/<%=rs("sortid")%><%=rs("typeid")%><%=rs("id")%>.html" target=_blank class="edu3"><%=left(rs("showname"),30)%> |
<%=rs("described")%> |
<%=rs("author")%> |
<%=rs("price12")%> |
<%=round(zhekou,1)%> |
<%if rs("price32")<>"" and rs("price32")<>0 then%>
<%=rs("price32")%>
<%end if%> |
<%if k mod 5=0 then%>
|
<%end if%>
<%
k=k+1
if k>=2000 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
|