UC知道asp发生意外问题
来源：百度知道 编辑：UC知道 时间：2024/05/31 09:20:09
<!--#include file="../conn.asp"-->
<body>
<%
set rs_ap=server.CreateObject("adodb.recordset")
rs_ap.open "select * from jobapply where puid='"&session("puid")&"' ",conn,1,1
if rs_ap.recordcount=0 then
response.Write("<p align='center'>没有记录</p>")
else
%>
<%
dim count1
dim MaxPerPage
dim totalPage
count1=rs_ap.recordcount
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
rs_ap.pagesize=20
MaxPerPage=rs_ap.pagesize
totalPage=rs_ap.pagecount
if CurrentPage<1 then
CurrentPage=1
end if
if CurrentPage>totalPage then
CurrentPage=totalPage
end if
if CurrentPage>1 then
<body>
<%
set rs_ap=server.CreateObject("adodb.recordset")
rs_ap.open "select * from jobapply where puid='"&session("puid")&"' ",conn,1,1
if rs_ap.recordcount=0 then
response.Write("<p align='center'>没有记录</p>")
else
%>
<%
dim count1
dim MaxPerPage
dim totalPage
count1=rs_ap.recordcount
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
rs_ap.pagesize=20
MaxPerPage=rs_ap.pagesize
totalPage=rs_ap.pagecount
if CurrentPage<1 then
CurrentPage=1
end if
if CurrentPage>totalPage then
CurrentPage=totalPage
end if
if CurrentPage>1 then
rs_ap.movenext '去掉这个,出现0X80020009只有一种情况,检查循环
i=i+1
rs_ap.movenext
loop
rs_cu.open "select * from companyuser where cuid="&rs_w("cuid")conn,1,1
试试这样行不行?