ADODB.Recordset 错误 '800a0e7d' 连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

[alanbabby]

ADODB.Recordset 错误 '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

/Conn.asp，行 71
代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%

'--------------------------------------------------
'--------------------------------------------------
Session.CodePage=65001
Response.codepage=65001
Response.Charset="UTF-8"
'on Error Resume Next
Response.Buffer = True
Response.expiresabsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"

'Response.Clear
'Server.ScriptTimeOut= 999999
'Session.Timeout = 30
'Dim isdata
isdata = 1

Function OpenConn()
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
Data_Source="127.0.0.1" '请输入Sqlserver服务器的IP地址,或者数据库实例名称
DbPort="1433" '数据库连接端口号，默认为1433,一般此处不需要更改
db="26" '请输入Sqlserver服务器的数据库名称
User_ID="sa" '请输入连接Sqlserver服务器的用户名
pass_word="sa" '请输入连接Sqlserver服务器的密码

On Error Resume Next
If DbPort="1433" Then
DbPort=""
Else
DbPort=","&DbPort
End If

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB.1;Password='"&pass_word&"';"&"Persist Security Info=True;User ID='"&User_ID&"';"&"Initial Catalog='"&db&"';"&"Data Source='"&Data_Source&DbPort&"';Connect Timeout=15"
conn.Open connstr
Set OpenConn = conn
End Function

if isdata = 1 then
set conn = OpenConn()
else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Mdb)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
End If
end if

Sub CloseConn(Conn) '关闭数据库代码
On Error Resume Next
If IsObject(Conn) then
Conn.Close()
Set Conn = Nothing
End If
If Err Then Err.Clear
End Sub

Set RsSet=Server.CreateObject("Adodb.RecordSet")
Sql="Select Top 1 * From Admin Order By ID"
RsSet.Open Sql,Conn,1,1

If RsSet.Eof Then
Response.Write "数据库错误"
Response.end
End If

'网站名称
WebTitle = GetSet(RsSet("SiteName"),"WebName")
'网站子标题
WebsTitle = GetSet(RsSet("SiteName"),"WebsName")
'网站域名
WebUrl = RsSet("SiteUrl")
'网站金币名称
Webjb = RsSet("Webjb")
'网站成长值名称
Webgrow = RsSet("Webgrow")
'系统安全码
SysCode = RsSet("SysKey")
'备案号
beianCode = GetSet(RsSet("SiteFooter"),"footbeian")
'备案号
tongjiCode = GetSet(RsSet("SiteFooter"),"foottongji")
'使用的模板名称
TemplateName=RsSet("TemplateName")
zxwplzb = RsSet("weblzb")
'--------------------------------
'开关
web_on = RsSet("web_on")
JifenOn = RsSet("jifentomoney")
adpagesize = RsSet("syspagesize")
UserManagePath = RsSet("UserManagePath")
'if web_on = 0 then
'response.Redirect("")
'end if
%>

[Go 旅城通票]

sqlserver配置有问题导致连接不上罗。。 你的错误处理要放出来 f isdata = 1 then set conn = OpenConn() else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Mdb) Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr end if If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。" Response.End End If

[hookee]

On Error Resume Next 注释掉，看报什么错