标题:ADODB.Field (0x800A0BCD)
只看楼主
爬树的猪
Rank: 1
等 级:新手上路
帖 子:80
专家分:0
注 册:2007-7-6
 问题点数:0 回复次数:1 
ADODB.Field (0x800A0BCD)
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/guestbook/index.asp, 第 356 行

  • 浏览器类型:
    Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; InfoPath.2)

  • 网页:
    GET /guestbook/index.asp

  • 时间:
    2007年10月25日, 12:04:58
  • 帮帮忙吧...这个怎么解决啊?

    搜索更多相关主题的帖子: Field ADODB 浏览器 GET guestbook 
    2007-10-25 12:06
    爬树的猪
    Rank: 1
    等 级:新手上路
    帖 子:80
    专家分:0
    注 册:2007-7-6
    得分:0 

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
    <!--#include file="Connections/liu.asp" -->
    <%
    Dim Recordset1
    Dim Recordset1_numRows

    Set Recordset1 = Server.CreateObject("ADODB.Recordset")
    Recordset1.ActiveConnection = MM_liu_STRING
    Recordset1.Source = "SELECT * FROM main ORDER BY ID ASC"
    Recordset1.CursorType = 0
    Recordset1.CursorLocation = 2
    Recordset1.LockType = 1
    Recordset1.Open()

    Recordset1_numRows = 0
    %>
    <%
    Dim Repeat1__numRows
    Dim Repeat1__index

    Repeat1__numRows = 10
    Repeat1__index = 0
    Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
    %>
    <%
    ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

    Dim Recordset1_total
    Dim Recordset1_first
    Dim Recordset1_last

    ' set the record count
    Recordset1_total = Recordset1.RecordCount

    ' set the number of rows displayed on this page
    If (Recordset1_numRows < 0) Then
    Recordset1_numRows = Recordset1_total
    Elseif (Recordset1_numRows = 0) Then
    Recordset1_numRows = 1
    End If

    ' set the first and last displayed record
    Recordset1_first = 1
    Recordset1_last = Recordset1_first + Recordset1_numRows - 1

    ' if we have the correct record count, check the other stats
    If (Recordset1_total <> -1) Then
    If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
    End If
    If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_total
    End If
    If (Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
    End If
    End If
    %>
    <%
    Dim MM_paramName
    %>
    <%
    ' *** Move To Record and Go To Record: declare variables

    Dim MM_rs
    Dim MM_rsCount
    Dim MM_size
    Dim MM_uniqueCol
    Dim MM_offset
    Dim MM_atTotal
    Dim MM_paramIsDefined

    Dim MM_param
    Dim MM_index

    Set MM_rs = Recordset1
    MM_rsCount = Recordset1_total
    MM_size = Recordset1_numRows
    MM_uniqueCol = ""
    MM_paramName = ""
    MM_offset = 0
    MM_atTotal = false
    MM_paramIsDefined = false
    If (MM_paramName <> "") Then
    MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
    End If
    %>
    <%
    ' *** Move To Record: handle 'index' or 'offset' parameter

    if (Not MM_paramIsDefined And MM_rsCount <> 0) then

    ' use index parameter if defined, otherwise use offset parameter
    MM_param = Request.QueryString("index")
    If (MM_param = "") Then
    MM_param = Request.QueryString("offset")
    End If
    If (MM_param <> "") Then
    MM_offset = Int(MM_param)
    End If

    ' if we have a record count, check if we are past the end of the recordset
    If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
    If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
    MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
    Else
    MM_offset = MM_rsCount - MM_size
    End If
    End If
    End If

    ' move the cursor to the selected record
    MM_index = 0
    While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    MM_index = MM_index + 1
    Wend
    If (MM_rs.EOF) Then
    MM_offset = MM_index ' set MM_offset to the last possible record
    End If

    End If
    %>
    <%
    ' *** Move To Record: if we dont know the record count, check the display range

    If (MM_rsCount = -1) Then

    ' walk to the end of the display range for this page
    MM_index = MM_offset
    While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
    Wend

    ' if we walked off the end of the recordset, set MM_rsCount and MM_size
    If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
    MM_size = MM_rsCount
    End If
    End If

    ' if we walked off the end, set the offset based on page size
    If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
    If ((MM_rsCount Mod MM_size) > 0) Then
    MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
    Else
    MM_offset = MM_rsCount - MM_size
    End If
    End If
    End If

    ' reset the cursor to the beginning
    If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
    Else
    MM_rs.Requery
    End If

    ' move the cursor to the selected record
    MM_index = 0
    While (Not MM_rs.EOF And MM_index < MM_offset)
    MM_rs.MoveNext
    MM_index = MM_index + 1
    Wend
    End If
    %>
    <%
    ' *** Move To Record: update recordset stats

    ' set the first and last displayed record
    Recordset1_first = MM_offset + 1
    Recordset1_last = MM_offset + MM_size

    If (MM_rsCount <> -1) Then
    If (Recordset1_first > MM_rsCount) Then
    Recordset1_first = MM_rsCount
    End If
    If (Recordset1_last > MM_rsCount) Then
    Recordset1_last = MM_rsCount
    End If
    End If

    ' set the boolean used by hide region to check if we are on the last record
    MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
    %>
    <%
    ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

    Dim MM_keepNone
    Dim MM_keepURL
    Dim MM_keepForm
    Dim MM_keepBoth

    Dim MM_removeList
    Dim MM_item
    Dim MM_nextItem

    ' create the list of parameters which should not be maintained
    MM_removeList = "&index="
    If (MM_paramName <> "") Then
    MM_removeList = MM_removeList & "&" & MM_paramName & "="
    End If

    MM_keepURL=""
    MM_keepForm=""
    MM_keepBoth=""
    MM_keepNone=""

    ' add the URL parameters to the MM_keepURL string
    For Each MM_item In Request.QueryString
    MM_nextItem = "&" & MM_item & "="
    If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
    End If
    Next

    ' add the Form variables to the MM_keepForm string
    For Each MM_item In Request.Form
    MM_nextItem = "&" & MM_item & "="
    If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
    End If
    Next

    ' create the Form + URL string and remove the intial '&' from each of the strings
    MM_keepBoth = MM_keepURL & MM_keepForm
    If (MM_keepBoth <> "") Then
    MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
    End If
    If (MM_keepURL <> "") Then
    MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
    End If
    If (MM_keepForm <> "") Then
    MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
    End If

    ' a utility function used for adding additional parameters to these strings
    Function MM_joinChar(firstItem)
    If (firstItem <> "") Then
    MM_joinChar = "&"
    Else
    MM_joinChar = ""
    End If
    End Function
    %>
    <%
    ' *** Move To Record: set the strings for the first, last, next, and previous links

    Dim MM_keepMove
    Dim MM_moveParam
    Dim MM_moveFirst
    Dim MM_moveLast
    Dim MM_moveNext
    Dim MM_movePrev

    Dim MM_urlStr
    Dim MM_paramList
    Dim MM_paramIndex
    Dim MM_nextParam

    MM_keepMove = MM_keepBoth
    MM_moveParam = "index"

    ' if the page has a repeated region, remove 'offset' from the maintained parameters
    If (MM_size > 1) Then
    MM_moveParam = "offset"
    If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
    MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
    If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
    MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
    End If
    Next
    If (MM_keepMove <> "") Then
    MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
    End If
    End If

    ' set the strings for the move to links
    If (MM_keepMove <> "") Then
    MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
    End If

    MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

    MM_moveFirst = MM_urlStr & "0"
    MM_moveLast = MM_urlStr & "-1"
    MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
    If (MM_offset - MM_size < 0) Then
    MM_movePrev = MM_urlStr & "0"
    Else
    MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
    End If
    %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>留言板首页</title>
    </head>

    <body>
    <table width="650" height="632" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
    <th colspan="2" scope="col"> <div align="center">我的留言版 </div></th>
    </tr>
    <tr>
    <td height="17" colspan="2"> <div align="right"><a href="file:///F|/asp/insert.asp">留言</a>  <a href="file:///F|/asp/index.asp">查看</a>  <a href="file:///F|/asp/login.asp">管理</a> </div></td>
    </tr>
    <%
    While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
    %>
    <tr>
    <td width="245" height="294"><%=(Recordset1.Fields.Item("ICON").Value)%></td>
    <td width="399" rowspan="2">
    <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
    <table width="100%" height="621" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
    <th scope="col"> <%=(Recordset1.Fields.Item("NAME").Value)%>发表于:<%=(Recordset1.Fields.Item("Date").Value)%></th>
    </tr>
    <tr>
    <td height="492"><table width="100%" height="453" cellpadding="0" cellspacing="0">
    <tr>
    <td width="12%">留言 </td>
    <td width="88%">&nbsp;<%=(Recordset1.Fields.Item("Ctent").Value)%></td>
    </tr>
    <tr>
    <td>回复 </td>
    <td>&nbsp;<%=(Recordset1.Fields.Item("Rply").Value)%><%=(Recordset1.Fields.Item("Rate").Value)%></td>
    <br>
    </tr>
    </table></td>
    </tr>
    <tr>
    <td height="15">
    <div align="right"><a href="<%=(Recordset1.Fields.Item("HPAGE").Value)%>" target="_blank">主页</a> <a href="mailto:<%=(Recordset1.Fields.Item("E-mail").Value)%>">信箱</a> <a href="<%=(Recordset1.Fields.Item("QQ").Value)%>">QQ</a> </div></td>
    </tr>
    </table>
    <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
    </td>
    </tr>
    <%
    Repeat1__index=Repeat1__index+1
    Repeat1__numRows=Repeat1__numRows-1
    Recordset1.MoveNext()
    Wend
    %>

    <tr>
    <td height="169"> <div align="center"><%=(Recordset1.Fields.Item("NAME").Value)%></div></td>
    </tr>
    <tr>
    <td height="15" colspan="2"> <div align="right"><A HREF="<%=MM_moveFirst%>">首页</A> <A HREF="<%=MM_movePrev%>">上页</A> <A HREF="<%=MM_moveNext%>">下页</A> <A HREF="<%=MM_moveLast%>">尾页</A> </div></td>
    </tr>
    <tr>
    <td height="15" colspan="2"><div align="center">感谢你的留言</div></td>
    </tr>
    </table>
    </body>
    </html>
    <%
    Recordset1.Close()
    Set Recordset1 = Nothing
    %>

    2007-10-25 12:07



    参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-180651-1-1.html




    关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

    编程中国 版权所有,并保留所有权利。
    Powered by Discuz, Processed in 0.253485 second(s), 7 queries.
    Copyright©2004-2024, BCCN.NET, All Rights Reserved