[求助]初学者求援~~~~~ - ASP技术论坛

问题点数：0 回复次数：5

[求助]初学者求援~~~~~

我写了个打开数据库的函数,请高手看一下有错误没有
sub opendb(varsql)
set conn = server.CreateObject ("adodb.connection")
conn.provider="microsoft.jet.oledb.5.0;data source=my15.mdb;"
conn.open vardb
end sub

搜索更多相关主题的帖子: 数据库　求援　 conn　sub　

第 2 楼

得分:0

对错先放一边你这个没有用处你的conn是局部变量

">东搞一下西搞一下

第 3 楼

得分:0

ASP是可以INCLUDE 的
在用的时候INCLUDE那个文件不就可以直接引用了?
那样说来和全局变量没有区别了

第 4 楼

得分:0

我的本意就设置成局部变量，全文是这样的
<body>
<%
'声明变量
dim

vardb,varmydomain,vardate,varmessage,varusername,varusername2,varuserid,maruser2id,varlogof

f,varstyle,varcolour,varswearstatus,varpmrand,conn,rs,varsql,vartime,varrooms,varidletime,v

aridle,varlastpost,i

vardb = server.mappath("../myroom/my15.mdb")
'初始化时间变量，记录当前时间
vardate = now()

'错误提示函数
function traperror
response.Write "错误产生!"
end function

'打开数据库函数
sub opendb(varsql)
set conn = server.CreateObject ("adodb.connection")
conn.provider="microsoft.jet.oledb.5.0;data source=my15.mdb;"
conn.open vardb
end sub

'关闭数据库
sub closedb(varsql)
rs.close
conn.close
set rs = nothing
end sub

'执行SQL语句
sub writedb(varsql)
set conn=server.createobject("adodb.connection")
conn.provider="microsoft.jet.loedb.4.0;jet oledb:database password=natterchat"
conn.open vardb
conn.execute(varsql)
conn.close
set conn = nothing
end sub

'打开数据库
call opendb(varsql)
varsql = "select * from users;"
rs.open varsql, conn ,1,3
if rs.eof then
'打开setup表，如果为空，则提示错误
else
varidletime = rs("idletime")
varkickouttime = rs("kickouttime")
end if
call closedb(varsql)
%>
你看这样写，成吗？

第 5 楼

得分:0

我一直搞不通这个程序，老是提示
错误类型：
ADODB.Connection (0x800A0E7A)
未找到提供程序。该程序可能未正确安装。
/myroom/config.asp, 第 25 行

第 6 楼

得分:0

就在打开数据库函数里面