图片错位怎么解决?
asp做的适应屏幕宽度的网页,显示图片时有几行错位,好像是满屏下面的图片(图片大小略有不同)!求解!<div style="width:100%;margin-top:40px; margin-left:0; padding:0; overflow:hidden">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from artical where dlei="&zpzs&" order by id desc "
Set rs.ActiveConnection = conn
rs.CursorType = 3
rs.Open sql,conn,1,1
if rs.bof and rs.eof then
response.Write("<TR><TD align='center'>暂时没有数据</TR></TD>")
else
'设置每页显示10行记录
rs.PageSize =10
'读取参数
page = CInt(Request.QueryString("page"))
'处理无效页码
If page < 1 Then
page = 1
End If
If page > rs.PageCount Then
page = rs.PageCount
End If
'设置当前页
rs.AbsolutePage = page
m=cint((page-1)*10)+1
For i = m To rs.PageSize*page
%>
<div style="width:49.9%;background-color: #FFF; text-align:center;height:auto; display:inline; float:left;">
<div style="width:100%; bottom:0; top:0; text-align:center">
<a href="mjsnr.asp?id=<%=rs("id")%>" ><img src="<%=rs("pic")%>" width="99%" height="auto" border="0" alt="<%=rs("ztitle")%>" /></a>
</div>
<div style="width:100%; height:30px; text-align:center; line-height:30px; float:left">
<a href="msnr.asp?id=<%=rs("id")%>" target="_blank" art="<%=rs("ztitle")%>"><strong><font size="3" font-family:="font-family:" "Microsoft yahei="Yahei"", "STHeiti", "SimSun", "Arail", "Verdana", "Helvetica", "sans-serif" color="#171717"> <%=rs("ztitle")%></font></strong></a>
</div>
</div>
<%
rs.MoveNext
'如果已经到达记录集结尾,则退出循环
If rs.EOF Then Exit For
Next
end if
%>
</div>
<div style="width:100%; height:30px; line-height:30px; text-align:center; background-color: #CCC; border-bottom:1px solid #000; float:left">
<span><font color="#000000">共 <%=rs.recordCount%>项
当前页码:<%=page%>/<%=rs.PageCount%>
<%
'设置“第一页”链接
If page = 1 Then
Response.Write("第一页 ")
Else
Response.Write(" <a href=?zpzs="&zpzs&"" & url &">第一页</a> ")
End If
'设置“上一页”链接
If page = 1 Then
Response.Write(" 上一页 ")
Else
Response.Write(" <a href=?zpzs="&zpzs&"&page="&page-1&">上一页</a> ")
End If
'设置“下一页”链接
If page = rs.PageCount Then
Response.Write(" 下一页 ")
Else
Response.Write(" <a href=?zpzs="&zpzs&"&page="&page+1&">下一页</a> ")
End If
'设置“最后一页”链接
If page = rs.PageCount Then
Response.Write(" 最后一页 ")
Else
Response.Write(" <a href=?zpzs="&zpzs&"&page="&rs.PageCount&">最后一页</a> ")
End If
%>
</font></span>
</div>