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

来源：百度知道编辑：UC知道时间：2024/06/18 17:42:58

请高手帮我看看.这个哪里写错了?运行的时候老提示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 = C

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

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

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

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