完善下,加上分页代码.doc

完善下，加上分页代码dim rs,sqlset rs = server.createobject(adodb.recordset)sql=select * from 数据表 order by ID ascrs.open sql,conn,1,1if rs.eof then response.write response.write 　div id=Page_cil　暂无图片链接/divelseResponse.Write table width=92% border=0 cellspacing=0 cellpadding=1 align=center循环Dim row,col row行，col列for row=1 to 2 2行Response.write trtd width=6/tdfor col=1 to 6 6列Response.write td align=lefta href=LinkUrl.Asp?ID=Trim(rs(ID))LinkName=Trim(rs(LinkName)) target=_blankimg src=Trim(rs(LinkLogo)) alt=Trim(rs(Remark)) width=120 height=45 border=0 //a/td循环rs.movenextif rs.eof then exit forNextResponse.Write /td/trResponse.write tr height=6Response.write /trif rs.eof then exit forNext Response.write /table End ifrs.closeset rs=nothing 满意答案 table width=96% border=0 align=center cellpadding=0 cellspacing=1%dim rs,sqlset rs = server.createobject(adodb.recordset)sql=select * from 数据表 order by ID ascrs.open sql,conn,1,1if rs.eof then%trtd width=100% height=28 align=center valign=middle暂时没有相关信息/td/tr%elseif not isempty(request(page)) then pagecount=cint(request(page)) else pagecount=1end ifrs.pagesize=16rs.AbsolutePage=pagecountallmovie=rs.recordcountsum=-1For iPage = 1 To rs.PageSizesum=sum+1if sum mod 4=0 then%tr%count=-1end ifcount=count+1%td align=center valign=middle table width=140 border=0 cellpadding=0 cellspacing=0 %if not rs.eof then% trtd width=130 align=centera href=LinkUrl.Asp?ID=Trim(rs(ID))LinkName=Trim(rs(LinkName)) target=_blankimg src=Trim(rs(LinkLogo)) alt=Trim(rs(Remark)) width=120 height=45 border=0 //a/td/tr%end if%/table/td% if count =-1 then%/tr%end ifif not rs.eof thenrs.MoveNextend ifif count=4 and rs.eof thenexit forend ifNextend if%/table 答案补充 table width=96% border=0 align=center cellpadding=0 cellspacing=0tr%response.writeform name=form1%td height=30 align=center共%=rs.recordcount%条信息　 %=rs.pagesize%条/页nbsp;共%=rs.pagecount%页nbsp; 当前在第fo