<%=Webname%>点歌台,送给好友一份最真挚的祝福!
<% rs.MoveNext next rs.close set rs=nothing conn.close set conn=nothing %>
<% sql="select * from basic order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof then response.write "
歌曲名称 收听 点歌人 受赠人 点歌时间 祝福词
暂时还没有人点歌,你愿意做第一个吗?
" else '####开始分页######## pageid = cint(request.querystring("pageid")) if pageid = "" or pageid =< 1 then pageid = 1 end if maxperpage = 30 rs.pagesize = maxperpage mpage = rs.pagecount '得到总页数 totalput = rs.recordcount '得到总记录数 rs.move(pageid-1)*maxperpage For i = 1 to maxperpage if rs.EOF then Exit For id=rs("id") title=rs("title") musicid=rs("musicid") myname=rs("myname") yourname=rs("yourname") jtime=rs("jtime") content=rs("content") %>
<%if len(rs("title")) > 11 then Response.write left(rs("title"),11)&".." else Response.write rs("title") end if%> <%if len(rs("myname")) > 6 then Response.write left(rs("myname"),6)&".." else Response.write rs("myname") end if%> <%if len(rs("yourname")) > 6 then Response.write left(rs("yourname"),6)&".." else Response.write rs("yourname") end if%> <%if len(rs("jtime")) > 10 then Response.write left(rs("jtime"),10)&"" else Response.write rs("jtime") end if%> <%if len(rs("content")) > 8 then Response.write left(rs("content"),8)&".." else Response.write rs("content") end if%>
页数：<%=pageid%>/<%=mpage%>  <%if pageid <> 1 then%> 首页 上一页 <%else%> 首页 上一页 <%end if%> <%if pageid <> mpage then%> 下一页 尾页 <%else%> 下一页 尾页 <%end if%> 共有<%=totalput%>条(每页<%=maxperpage%>条)
<%end if%>