asp分页的问题,为什么每页多一个出来

Question

'参数:ts条数 ynpage是否分页 0不分 1分
Function Prolist(ts,ynpage)
' oRs.Close
Dim Protype,Pic,ProSql
Protype = saferequest("type",1)
if Protype = "" then
ProSql = "select * from Pro order by Pro_ID desc"
else
ProSql = "select * from Pro where Pro_type = "&Protype&" order by Pro_ID desc"
end if
oRs.PageSize = ts
oRs.CursorLocation = 3
oRs.open ProSql,oConn,1,1
call page1()
response.write "<table><tr>"
for i=0 to oRs.PageSize
if oRs.Eof then exit for
if(i<>0 and (i mod 2)=0) then response.write "</tr><tr>"
%>
<%
if oRs("Pro_Pic") <> "" then
if instr(oRs("Pro_Pic"),"http")=1 then
Pic=oRs("Pro_Pic")
else
Pic=ESCMS_ADMIN_DIR &"/"& oRs("Pro_Pic")
end if
else
Pic="sys_images/nopic.gif"
end if
%>
<td align="center" valign="top"><a href="Pro_show.asp?Proid=<%=oRs("Pro_ID")%>" target="_blank"><img border="0" src="<%=pic%>" width="140" height="80" /></a><br />
<a href="Pro_show.asp?Proid=<%=oRs("Pro_ID")%>" target="_blank"><%=oRs("Pro_Name")%></a></td>
<%
oRs.movenext
next
response.write "</tr></table>"
if ynpage=1 then Call Page()
oRs.close
End Function
我每页显示4个 每行2个 但是它每页出现5个 请高手帮帮忙 帮我解决一下
csweimin 和 witp你好 按你的改了后 我把条数换成4个了 一行2个
但是所等的结果是 成了3行 一行有一个 中间行有2个 第3行一个了
按ajancn所说的去做 确实是每行2个 但是上页的尾条内容和下页的第一个内容重复啊
高手们 帮帮忙啊 其实你们所说的我早都用了的.碰到效果就是我上面所说的

Answer 1

简单的for问题，给成这样就行了
for i=1 to oRs.PageSize

说明
for i=0 to 4 '就是0 1 2 3 4，五个数，所以这里要用for i=1 to 4

补充：
if(i<>0 and (i mod 2)=0) then response.write "</tr><tr>"
改成
if(i<>0 and (i mod 2)=1) then response.write "</tr><tr>"

Answer 2

你把TS参数设定为3看看是否是4个了就！
或者更改此处 oRs.PageSize = ts 为oRs.PageSize = ts -1

Answer 3

你调用的时候是这样么:Prolist(4,ynpage)
ts=4么?
如果是这样,那么把
for i=0 to oRs.PageSize 改成for i=1 to oRs.PageSize
也可以这样调用,ts=3 也就是:Prolist(3,ynpage)