函数问题

[huanshen0634]

文件一:conn.asp
sub opendb
on error resume next
dim connstr
Set conn=Server.CreateObject("ADODB.Connection")
'打开sqlserver数据库的连接语句
connstr="driver={SQL Server};server=liuyan;uid=sa;pwd=1234;database=sunstone;"
conn.open connstr
if err.number<>0 then
call diserror("打开数据库失败，出错的原因是：" & err.Description)
end if
end sub
文件二:
<!--#include file="include/conn.asp"-->

<%
opendb
if isobject(Conn) then
response.write "yes"
else
response.write "No1!"
end if
sql="select * from test"
set rs=conn.execute(sql)
%>
在第二个文件调用中,总是conn不是一个对象,好像根本就没有打开一样.
请问这是什么原因造成的?

[huanshen0634]

我懂了,结帖

[leo963258]

你做什么引用2次

[huanshen0634]

什么引用两次?是文件二吗?
那是测试的语句

[hzw66]

<!--#include file="include/conn.asp"-->

<%
dim conn
opendb
if isobject(Conn) then
response.write "yes"
else
response.write "No1!"
end if
sql="select * from test"
set rs=conn.execute(sql)
%>

[huanshen0634]

难道我在文件1种的opendb函数中不可以定义dim conn吗?
我试过了,在文件2中 dim conn就可以,而在文件二中就不可以.
那么假如要是写成 function 的形式呢?
function opendb
on error resume next
dim connstr,conn
Set conn=Server.CreateObject("ADODB.Connection")
'打开sqlserver数据库的连接语句
connstr="driver={SQL Server};server=liuyan;uid=sa;pwd=1234;database=sunstone;"
conn.open connstr
if err.number<>0 then
call diserror("打开数据库失败，出错的原因是：" & err.Description)
end if
set opendb=conn
end function
然后在文件2中这样调用:
dim a
a=opendb
可是这样也出问题,请问能不能详细的写出sub和function的区别?

[hzw66]

dim conn 写在过程内部时，是局部变量，到过程外就不存在了所以。。。。
dim conn 写在第一个文件中也行，要写在 sub opendb 上面

用function 是可以的，不过要这样写
set a = opendb

[leo963258]

文件一:conn.asp
dim connstr
Set conn=Server.CreateObject("ADODB.Connection")
'打开sqlserver数据库的连接语句
connstr="driver={SQL Server};server=liuyan;uid=sa;pwd=1234;database=sunstone;"
conn.open connstr
if err.number<>0 then
call diserror("打开数据库失败，出错的原因是：" & err.Description)
在文件1中不要定义过程,就可以了

[yb2008]

不要把conn写到过程中,会报错..

[huanshen0634]

谁能给一个完整的function的代码?