您的位置： 网站的首页 >> 机票常识   <%sql="select top 8 id,c_name from Hotelb order by id desc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,1 if rs.eof then response.write "暂时还没有任何信息!" Else do while not rs.eof%> .html"> <%if len(rs("c_name"))>13 then%> <%=left(rs("c_name"),13)%>... <%else%> <%=rs("c_name")%> <%end if%> <% rs.movenext loop end if rs.close%> <% set strs=server.createobject("adodb.recordset") stsql="select id,Title,time from news order by time desc" strs.open stsql, conn, 1, 1 if not strs.eof then strs.PageSize =25 '每页记录条数 result_num=strs.RecordCount '记录总数 maxpage=strs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if strs.AbsolutePage=Page else result_num=0 maxpage=0 page=0 end if if not strs.eof then for i=1 to strs.PageSize Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write (" "&strs("title")&" "&strs("time")&" ") strs.movenext if strs.EOF then Exit For next end if strs.close set strs=nothing %>   <% call LastNextPage(maxpage,page,result_num) %>