Question

asp 对象关闭时,不允许操作。

请高手帮我看看.这个哪里写错了?运行的时候老提示ADODB.Connection 错误 '800a0e78'

对象关闭时，不允许操作

<%
'处理标记

Dim SplitTag
SplitTag = "|"

'获取客户端地址
Function GetUserIP()
dim GetUserIPList, sGetUserIP
GetUserIPList = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetUserIPList = "" Then GetUserIPList = Request.ServerVariables("REMOTE_ADDR")
if GetUserIPList = "" then GetUserIPList = "168.1.1.*"
sGetUserIP = Split(GetUserIPList, ".")
GetUserIP = sGetUserIP(0) & "." & sGetUserIP(1) & "." & sGetUserIP(2) & ".*"
End Function

'获取缓存中的数据
Set conn = Server.CreateObject("ADODB.Connection")
Function GetCacheIP()
Dim CacheIP
'如果缓存为空将读取一次数据库
If InStr(Application("CacheIP"), SplitTag) = 0 Then
' Call OpenDB() '打开数据库
Set Rs = Conn.Execute("select ipstr from mov_263ip")
Do While Not Rs.eof
CacheIP = CacheIP & Rs(0) & SplitTag
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
' Call CloseDB() '关闭数据库
Application("CacheIP") = CacheIP
End If
GetCacheIP = Application("CacheIP")
End Function

'开始判断客户端IP是否存在缓存中的数据
If InStr(GetCacheIP(), GetUserIP() & SplitTag) > 0 Then
'存在

Else
'不存在
Response.write("IP不存在")
End If

%>
数据库是SQL的.这段代码是被其它页面调用.其它页面有数据库连接.

Answer 1

数据库没有连上，连接代码是这样
set conn=Server.Createobject("adodb.connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source=" & Server.MapPath("数据库所在路径")

Answer 2

Set conn = Server.CreateObject("ADODB.Connection")
constr="DRIVER={SQL Server}; SERVER=服务器名称; UID=用户;PWD=密码;DATABASE=数据库"
conn.open constr

Answer 3

' Call OpenDB() '打开数据库
的“ ' ”删除点 '是注释符。

Answer 4

Call CloseDB()
是不是重复关闭了RS?