Z
zylsoft
Unregistered / Unconfirmed
GUEST, unregistred user!
<!--#include file="conn.asp"--><!--#include file="conn2.asp"--><% if request.cookies("admin")="" then
response.redirect("login.asp")end if%><% dim datebz dim handset prod_datebz=request("datebz") prod_handset=request("handset") 'response.Write(datebz) 'response.Write(handset) 'response.write""&prod_datebz&""%><html><head><title>缩位搜索结果</title><meta http-equiv="Content-Type" content="text/html;
charset=gb2312"><link href="css.css" rel="stylesheet" type="text/css"></head><body>
<table width="450" border="0" align="center"> <tr> <td class="12"><div align="left">[<%response.Write(prod_handset)%>缩位信息</a>]</div></td> <td class="12"><div align="center">[<a href="#" onclick="javascript:window.open('suowei_windows.asp?prod_datebz=<%response.Write(prod_datebz)%>&prod_handset=<%response.Write(prod_handset)%>','','width=500,height=150,top=300,left=300,scrollbars=yes')">添加缩位信息</a>]</div></td> </tr></table><table width="450" height="54" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF6600" class="12"> <tr align="center" bgcolor="#FFFFFF"> <td width="78" height="22" ><font color="#FF0000">缩位号码</font></td> <td width="60"><font color="#FF0000">缩位</font></td> <td width="35"><font color="#FF0000">删除</font></td> </tr><%'response.write""&prod_datebz&""'response.end()dim rs,sqlset rs=server.createobject("adodb.recordset")rs.CursorLocation = 3sql="select handset,bh,mobile from hb_suowei where handset = '"&prod_handset&"' "'根据数据库标志查询数据库'if prod_datebz=1 then
'rs.open sql,conn2,1,1'else
rs.open sql,conn2,1,1'end ifdim total_record,currentpageconst MaxPerpage=3'response.Write( rs.RecordCount)total_record=rs.RecordCountcurrentpage=request("page") if currentpage<1 then
currentpage=1 end if if currentpage=1 then
show_content show_page total_record,Maxperpage else
rs.move (currentpage-1)*Maxperpage dim bookmark bookmark=rs.bookmark show_content show_page total_record,Maxperpage end if %> <%sub show_content dim i i=0 do while not rs.eof%> <tr bgcolor="#FFFFFF"> <td height="29" > <%=rs("mobile")%></td> <td align="center"><%=rs("bh")%></td> <td align="center"><a href="suowei_del.asp?bh=<%=rs("bh")%>&handset=<%response.Write(prod_handset)%>"><img src="images/edit.gif" width="16" height="16" border="0"></a></td> </tr> <% i=i+1if i>=Maxperpage then
exitdo
rs.movenextlooprs.close%> <%end sub%></table>
<%sub show_page(total_record,Maxperpage) dim file_url'文件名 file_url="search_suowei.asp" dim total_page if total_record mod Maxperpage=0 then
total_page=total_record / Maxperpage else
total_page=total_record / Maxperpage+1end if%>
<table width="439" height="36" border="0" align="center" class="12"> <tr> <td width="141"><table width="141" border="0" cellspacing="1" class="12"> <tr> <td class="12"> <%if currentpage<2 then
%> 第一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=1' class="link"><font color="#FF0000">第一页</font></a> <%end if%> </td> <td> <%if currentpage<2 then
%> <span class="12">上一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=<%=currentpage-1%>'><font color="#FF0000">上一页</font></a></span></td> <%end if%> </tr> </table></td> <td width="125"><div align="justify"><font color="#FF0000"> <span class="12">共</span></font><span class="12"><%=total_record%><font color="#FF0000">条</font> <font color="#FF0000">共分</font><%=total_page%><font color="#FF0000">页</font> </span></div></td> <td width="159"><table width="159" border="0" cellpadding="0" cellspacing="1" class="12"> <tr> <td width="73"> <%if total_page-currentpage<1 then
%> <span class="12">下一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=<%=currentpage+1%>' class="12"><font color="#FF0000">下一页</font></a> <%end if%> </span></td> <td width="59"> <%if total_page-currentpage<1 then
%> <span class="12"> 最后一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=<%=total_page%>' class="12"><font color="#FF0000">最后一页</font></a> <%end if%> </span></td> </tr> </table></td> </tr></table><%end sub%>
</body></html>报错：....BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录.....
response.redirect("login.asp")end if%><% dim datebz dim handset prod_datebz=request("datebz") prod_handset=request("handset") 'response.Write(datebz) 'response.Write(handset) 'response.write""&prod_datebz&""%><html><head><title>缩位搜索结果</title><meta http-equiv="Content-Type" content="text/html;
charset=gb2312"><link href="css.css" rel="stylesheet" type="text/css"></head><body>
<table width="450" border="0" align="center"> <tr> <td class="12"><div align="left">[<%response.Write(prod_handset)%>缩位信息</a>]</div></td> <td class="12"><div align="center">[<a href="#" onclick="javascript:window.open('suowei_windows.asp?prod_datebz=<%response.Write(prod_datebz)%>&prod_handset=<%response.Write(prod_handset)%>','','width=500,height=150,top=300,left=300,scrollbars=yes')">添加缩位信息</a>]</div></td> </tr></table><table width="450" height="54" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF6600" class="12"> <tr align="center" bgcolor="#FFFFFF"> <td width="78" height="22" ><font color="#FF0000">缩位号码</font></td> <td width="60"><font color="#FF0000">缩位</font></td> <td width="35"><font color="#FF0000">删除</font></td> </tr><%'response.write""&prod_datebz&""'response.end()dim rs,sqlset rs=server.createobject("adodb.recordset")rs.CursorLocation = 3sql="select handset,bh,mobile from hb_suowei where handset = '"&prod_handset&"' "'根据数据库标志查询数据库'if prod_datebz=1 then
'rs.open sql,conn2,1,1'else
rs.open sql,conn2,1,1'end ifdim total_record,currentpageconst MaxPerpage=3'response.Write( rs.RecordCount)total_record=rs.RecordCountcurrentpage=request("page") if currentpage<1 then
currentpage=1 end if if currentpage=1 then
show_content show_page total_record,Maxperpage else
rs.move (currentpage-1)*Maxperpage dim bookmark bookmark=rs.bookmark show_content show_page total_record,Maxperpage end if %> <%sub show_content dim i i=0 do while not rs.eof%> <tr bgcolor="#FFFFFF"> <td height="29" > <%=rs("mobile")%></td> <td align="center"><%=rs("bh")%></td> <td align="center"><a href="suowei_del.asp?bh=<%=rs("bh")%>&handset=<%response.Write(prod_handset)%>"><img src="images/edit.gif" width="16" height="16" border="0"></a></td> </tr> <% i=i+1if i>=Maxperpage then
exitdo
rs.movenextlooprs.close%> <%end sub%></table>
<%sub show_page(total_record,Maxperpage) dim file_url'文件名 file_url="search_suowei.asp" dim total_page if total_record mod Maxperpage=0 then
total_page=total_record / Maxperpage else
total_page=total_record / Maxperpage+1end if%>
<table width="439" height="36" border="0" align="center" class="12"> <tr> <td width="141"><table width="141" border="0" cellspacing="1" class="12"> <tr> <td class="12"> <%if currentpage<2 then
%> 第一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=1' class="link"><font color="#FF0000">第一页</font></a> <%end if%> </td> <td> <%if currentpage<2 then
%> <span class="12">上一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=<%=currentpage-1%>'><font color="#FF0000">上一页</font></a></span></td> <%end if%> </tr> </table></td> <td width="125"><div align="justify"><font color="#FF0000"> <span class="12">共</span></font><span class="12"><%=total_record%><font color="#FF0000">条</font> <font color="#FF0000">共分</font><%=total_page%><font color="#FF0000">页</font> </span></div></td> <td width="159"><table width="159" border="0" cellpadding="0" cellspacing="1" class="12"> <tr> <td width="73"> <%if total_page-currentpage<1 then
%> <span class="12">下一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=<%=currentpage+1%>' class="12"><font color="#FF0000">下一页</font></a> <%end if%> </span></td> <td width="59"> <%if total_page-currentpage<1 then
%> <span class="12"> 最后一页 <%else
%> <a href='<%=file_url%>?id=<%=id%>&page=<%=total_page%>' class="12"><font color="#FF0000">最后一页</font></a> <%end if%> </span></td> </tr> </table></td> </tr></table><%end sub%>
</body></html>报错：....BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录.....