救命!Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'rs' /main/conn.asp,行18
spoky 2003-08-18 12:16:55 我在一个asp页面使用了<!-- #include file="conn.asp"-->
竟然出错,但是在另一个asp文件中使用<!-- #include file="conn.asp"-->
却不会出错,我得天,究竟是怎么回事啊!!!
同目录下有一个conn.asp文件:
<!--在包含此连接函数的文件中使用记录集名称必须为"RS"-->
<%@LANGUAGE="VBSCRIPT"%>
<%
dim conn,rs
function CONNdatabase
m_sqlstring="Driver={SQL Server};Server=Markss\markss;Database=cmbgz;UID=sa;PWD=;OLE DB Services=-1;"
set conn=server.CreateObject("adodb.connection")
conn.Open m_sqlstring
end function
function RSRecord
set rs=server.CreateObject("adodb.recordset")
end function
function CloseRecord
If Rs.state = 1 Then
rs.close
Set rs=nothing
end if
end function
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>