<!--#include file="conndb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>查看信息</title>
<link rel=stylesheet href="style.css" type="text/css">
</head>
<body bgcolor="#84A6C5" style="text-align: right">
<div align="center">
<font color="#00FFFF">报修信息总汇</font><table border="0" width="315" cellspacing="0" cellpadding="0">
<tr>
<td width="77%"><span style="font-size: 9pt"><font color="#00FFFF"><%
set rs=server.createobject("adodb.recordset")
sql="select * from fwwxdj order by id desc"
rs.open sql,conn,3,1
if Not(rs.bof and rs.eof) then'判别数据表中是否为空记录
NumRecord=rs.recordcount
rs.pagesize=600
NumPage=rs.Pagecount
if request("page")=empty then
NoncePage=1
else
if Cint(request("page"))<1 then
NoncePage=1
else
NoncePage=request("page")
end if
if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
%>
</font>
</span>
<div align="center">
<table border="0" width="963" bordercolorlight="#84A6C5" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF" height="61">
<%if Not(rs.bof and rs.eof) then
rs.move (Cint(NoncePage)-1)*10,1
for i=1 to rs.pagesize
%>
<tr>
<td>
<table border="1" width="100%" id="table1" cellspacing="0" cellpadding="2">
<tr>
<td width="6%">
<p align="center"><font color="#00FFFF">地区</font></td>
<td width="12%"><font color="#FFFFFF"><%=rs("d_address")%></font></td>
<td width="6%">
<p align="center"><a href="jutixianshi.asp?id=<%=rs("id")%>"><font color="#00FFFF">具体地址</font></td>
<td width="27%"><font color="#FFFFFF"> <%=rs("x_address")%></font></td>
<td width="6%"><font color="#00FFFF">报修项目</font></td>
<td width="23%"><font color="#FFFFFF"> <%=rs("b_xiangmu")%></font></td>
<td width="14%" colspan="2"><a href="jutixianshi.asp?id=<%=rs("id")%>"><font color="#00FFFF">
查看具体信息</font></td>
</tr>
<tr>
<td width="6%">
<p align="center"><font color="#00FFFF">报修日期</font></td>
<td width="12%"><font color="#FFFFFF"><%=rs("b_time")%> </font></td>
<td width="6%">
<p align="center"><font color="#00FFFF">联系人</font></td>
<td width="27%"><font color="#FFFFFF"> <%=rs("b_name")%></font></td>
<td><font color="#00FFFF">联系电话</font></td>
<td><font color="#FFFFFF"><%=rs("b_phone")%></font></td>
<td width="7%">
<p align="center"><a href="xigai.asp?id=<%=rs("id")%>"><font color="#00FFFF">修改</font></td>
<td width="7%">
<p align="center"><a href="xxdel.asp?id=<%=rs("id")%>"><font color="#00FFFF">删除</font></td>
</tr>
</table>
</td>
</tr>
<% rs.movenext
if rs.eof then exit for
next
else
response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if
rs.close
set rs=nothing
%>
</center>
</center>
</table>
</div>
</table>
</div>
<div align="center">
<table width="943" border="0" height="18" cellspacing="0" cellpadding="5">
<tr>
<td height="14">
<div align="right">
<span style="font-size: 9pt">
<font color="#00FFFF">
<input type="hidden" name="page" value="<%=NoncePage%>">
</font><font color="#00FFFF">
<%
if NoncePage>1 then
response.write "|<a href=viewxxgl.asp?page=1>首 页</a>| |<a href=viewxxgl.asp?page="&NoncePage-1&">上一页</a>| "
else
response.write "|首 页| |上一页| "
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
response.write "|<a href=viewxxgl.asp?page="&NoncePage+1&">下一页</a>| |<a href=viewxxgl.asp?page="&NumPage&">尾 页</a>|"
else
response.write "|下一页| |尾 页|"
end if
%>
页次：<%=NoncePage%>/<%=NumPage%>
共<%=NumRecord%>条记录
</font>
</span> </div>
</td>
</tr>
</table>
</div>
</body>
</html>
哪里出错啊 找了一星期了 都没找到 郁闷啊 万分感谢@
错误类型:
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/viewxxgl.asp
[此贴子已经被作者于2006-7-7 8:45:27编辑过]
