一个简单的ASP问题(10分)

一个DBCONN.ASP文件
<%
sub opendb()
set conn=server.CreateObject(&quot;ADODB.CONNECTION&quot
conn.open &quot;driver={sql server};server=1E6CBE1AB04B498/XG__SATAN;uid=sa;pwd=447620;database=jiaowu&quot;
set rs=server.CreateObject(&quot;ADODB.recordset&quot
end sub
sub closedb()
set rs=nothing
conn.close
set conn=nothing
end sub
%>
一个CHECK文件
<!--#include file=&quot;dbconn.asp&quot;-->
<%
sub student()
opendb()
sql=&quot;select * from jw_st_pass where sp_no='&quot;&userid&&quot;'and sp_pwd='&quot;&password&&quot;'&quot;
set rs=conn.execute(sql)
if not rs.eof then
session(&quot;stno&quot=userid
closedb()
response.Redirect(&quot;student/studentindex.htm&quot
else

closedb()
response.Write(&quot;id or password error!&quot
end if
end sub
sub teacher()
opendb()
sql=&quot;select * from jw_te_pass where tp_no='&quot;&userid&&quot;'and tp_pwd='&quot;&password&&quot;'&quot;
set rs=conn.execute(sql)
if not rs.eof then
session(&quot;teno&quot=userid
closedb()
response.Redirect(&quot;teacher/teacherindex.htm&quot
else

closedb()
response.Write(&quot;id or password error!&quot
end if
end sub
%>
<%
usertype=request.Form(&quot;type&quot
userid=request.Form(&quot;userid&quot
password=request.Form(&quot;password&quot
if usertype=&quot;student&quot;
then

student()
else
if usertype=&quot;teacher&quot;
then

teacher()
else

response.Redirect(&quot;vistor/vistorindex.htm&quot
end if
%>
问题提示是：缺少CONN对象
难道不可以在过程中引用其它过程么？
多谢

conn不是全局变量

虽然CONN不是全局变量，但是已经用INCLUDE包含了源文件了啊

我知道怎么解决了，在DBCONN.ASP文件中加入
DIM CONN，RS，SQL
就OK了

接受答案了.