Question

为什么我用分页函数显示access备注内容时第一页可以正常显示，后面就会转到第一记录的内容去，

我的分页函数如下：function listbody(scontent)
dim arrbody,pages
if Instr(scontent,"[NextPage]")<=0 then
response.write scontent
'response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
else
CurPage=request("CurPage")
arrbody=split(scontent,"[NextPage]")
pages=Ubound(arrbody)+1
if CurPage="" then
CurPage=1
else
CurPage=Cint(CurPage)
end if
if CurPage<1 then CurPage=1
if CurPage>pages then CurPage=pages
response.write arrbody(CurPage-1)
response.write "<div align=center>"
for i=1 to pages
if i=Curpage then response.write "[<font color=red>"&i&"</font>] " else response.write "[<a href=edetail.asp?id="&id&"&CurPage="&i&"> "&i&" </a>] "
next
response.write "</div>"
end if
End function
不好意思，我是新手，对语言不大懂
问题已经自己解决了

Answer 1

那我接分了，呵呵，下次有好事来叫我！