showContent showpage totalPut,MaxPerPage,"manage.asp" else if (currentpage-1)*MaxPerPage
<%do while not rs.eof%><% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> <% end sub Function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n=totalnumber\maxperpage else n=totalnumber\maxperpage+1 end if response.Write" form method =post action=manage.asp>" response.Write"
fontcolor='#000080'>>>分页"if currentpage<2 then response.Write"
首页 上一页" else response.Write"首页 "


ID号
信息类型
信息名称
修 改
删 除

<%=rs("id")%>
<%=rs("txttype")%>
<%=rs("txttitle")%>
">修 改
">删 除

response.Write"上一页 "end ifif n-currentpage<1 then' response.Write"
下一页 尾页" else response.Write"下一页" response.Write"尾页" end if response.Write"
页次：
"¤tpage&"
/"&n&"页"response.Write"
共
"&totalnumber&"条信息
"&maxperpage&"条信息/页"response.Write"
转到：
"end Function //就是这里老出错 %>

心雨工作室 © 2005-2006
设计：
版权所有，引用不咎，但请注明出处。
  为什么IE总是提示:错误类型：Microsoft VBScript 编译器错误 (0x800A03F6)缺少 'End'但是我加了不少地方都不顶用呀,为什么呢?

(3299) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的