databasepassword = "" '数据库登陆密码，这里为空
databaseservername = "newreport" 'oracle数据库的服务名
databaseusername = "newreport" 'oracle数据据库的登录名
cn.connectiontimeout = 5
cn.cursorlocation = aduseclient
cn.connectionstring = "provider=msdaora.1;password=" + databasepassword + ";user id=" + databaseusername + _
";data source=" + databaseservername + ";persist security info=true" '数据库连接字符串。
cn.open '打开数据连接。
set getconnection = cn
end if '结束if cn.state = adstateopen
exit function
errhand:
