 |
|
|
 |
 |
 |
|
|
|
 |
 |
|
| 电话: | 021-52988986/52988987 转8000分机 |
 |
| 手机: | 13671655526(24小时) |
 |
| Email: | echangyu@126.com |
 |
| MSN: | toys4ush@hotmail.com |
 |
| QQ: | 11898926 |
 |
|
|
|
 |
 |
<%dim i
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 newsname,adddate,newsid from shop_news order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有新闻!"
else
do while not rs.eof
i=i+1
response.write " "&trim(rs("newsname"))&" "
if i>=5 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing%><%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname from shop_books order by liulancount desc",conn,1,1%> |
|