求助，关于ADODB.Field 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除

[free2035]

ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

。。/Include/Function.asp，行 5070

行5070附近代码如下：

Function DomainReNew(ByVal Grade, ByVal ProdCode, ByVal DomainName, ByRef Price)
Dim tRs
Call DomainChking(DomainName, TDoType, DomainType)
If Len(Grade) = 0 Then Grade = "1"
Set tRs = Server.CreateObject("Adodb.RecordSet")
Sql = "select * from [domain_list] where grade='" & Grade & "'"
If AutoHostDB Then Sql = Sql & " and prodcode is null" Else Sql = Sql & " and len(prodcode & '')=0"
tRs.Open Sql, Conn, 1, 1
If tRs.EOF And tRs.BOF Then Response.Redirect ("error.asp?id=003")
Price = tRs("Domain_" & TDoType & "_price_renew")
tRs.Close
If Len(ProdCode) > 0 Then
Sql = "select * from [domain_list] where grade='" & Grade & "' and ProdCode=" & Int(ProdCode)
tRs.Open Sql, Conn, 1, 1
If Not (tRs.EOF And tRs.BOF) Then
If Len(tRs("Domain_" & TDoType & "_price_renew") & "") > 0 Then Price = tRs("Domain_" & TDoType & "_price_renew")
End If
tRs.Close
End If
If Len(Session("id")) > 0 Then
Sql = "select * from [user_price] where userid=" & Session("id") & " and protype='domain'"
tRs.Open Sql, Conn, 1, 1
If Not (tRs.EOF And tRs.BOF) Then
Do While Not tRs.EOF
If LCase(tRs("ProName")) = LCase("Domain_" & TDoType & "_price_renew") Then Price = tRs("Price")
tRs.MoveNext
Loop
End If
tRs.Close
Sql = "select * from [domain_list] where Grade='5'"
If Len(ProdCode) > 0 Then
Sql = Sql & " and prodcode=" & ProdCode
Else
If AutoHostDB Then Sql = Sql & " and prodcode is null" Else Sql = Sql & " and len(prodcode & '')=0"
End If
tRs.Open Sql, Conn, 1, 1
tmpUserPrice = tRs("Domain_" & TDoType & "_price_renew")
If Price < tmpUserPrice Then Price = tmpUserPrice
End If
Set tRs = Nothing
End Function

标红色的是5070行代码

求助下大家，什么问题，我该怎么操作呢

[hookee]

没相关记录 , 先做一个判断

tRs.Open Sql, Conn, 1, 1
If (tRs.BOF And tRs.BOF) Then
  Response.Write "无记录" & Sql
Else
  tmpUserPrice = tRs("Domain_" & TDoType & "_price_renew")
  If Price < tmpUserPrice Then Price = tmpUserPrice
End If

[free2035]

[Quote=引用 1 楼 hookee 的回复:]
没相关记录 , 先做一个判断

VBScript code

tRs.Open Sql, Conn, 1, 1
If (tRs.BOF And tRs.BOF) Then
Response.Write "无记录" & Sql
Else
tmpUserPrice = tRs("Domain_" & TDoType & "_price_renew")
……
[/Quote]

我试下，感谢啊

[free2035]

这个出现点错误，按照hookee的写法，点 连接后提示权限不足！

[Tks_King]

学习。