发生错误: 对象关闭时，不允许操作。

[lby221]

dim constr , rs ,conn , MD5

MD5 = File.MD5Hash
constr = "SELECT * from FILES WHERE Hash = '" & MD5 & "'"
set conn=Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "data.mdb"

rs.open constr


With rs
if .bof and .eof then
.AddNew
.Fields("FileName") = File.FileName
.Fields("FileSize") = File.Size
.Fields("Hash") = MD5
.Fields("Tim") = now
.Update

else
Response.Write "KKK"
Response.End()
end if

总是提示 发生错误: 对象关闭时，不允许操作。

[mailbao]

原來
rs.open constr
------------------------------
改成:
rs沒有打開數據庫連接conn
rs.open constr,conn,3,3

[mailbao]

如果不行,將原code:
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "data.mdb"
rs.open constr

-------------------------
統一寫成如下方式 :

conn= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("data.mdb")
rs.open constr,conn,3,3

[liuwei_IT_love]

楼上说的正确，你没有打开链接，把CONN这个参数加上就行了

[aemyang1987]

[Quote=引用 2 楼 mailbao 的回复:]
如果不行,將原code:
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "data.mdb"
rs.open constr

-------------------------
統一寫成如下方式 :

conn= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("data.mdb")
rs.open constr,conn,3,3
[/Quote]
正解

[qwegis]

学习

[chenjianyong94]

conn= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("data.mdb") 
rs.open constr,conn,3,3 

[sumjor]

MD5 = File.MD5Hash
constr = "SELECT * from FILES WHERE Hash = '" & MD5 & "'"
set conn=Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "data.mdb"

rs.open constr，conn,3,3