 |
<%
Set rsqt=Server.CreateObject("ADODB.RecordSet")
sql="select top 5 * from vipbbs where typeid=65 order by id desc"
rsqt.Open sql,conn,1,1
if rsqt.eof and rsqt.bof then
%>
|
<%response.Write("数据库中暂无记录!")%> |
<%
else
if not rsqt.eof then
for i=1 to 5
if rsqt.eof then exit for
%>
| <%=rsqt("kaoshiriqi")%> |
<%=left(rsqt("title"),12)%> |
<%
rsqt.movenext
next
end if
end if
rsqt.close
set rsqt=nothing%>
|
|