关于asp连接数据库函数

Sub   CloseObj(ByRef   obj)    
  If   IsObject(obj)   Then  
  obj.Close  
  Set   obj   =   nothing  
  End   If  
  End   Sub  
   
  Function   openAccessDB  
  dim   conn_en        
  dim   connstr_en  
  db="database/eis.mdb"  
  connstr_en="driver={Microsoft   Access   Driver   (*.mdb)};dbq="   &   server.mappath(db)  
  connstr_en="Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="&server.MapPath(db)  
  On   Error   Resume   Next  
  Set   conn_en   =   Server.CreateObject("ADODB.Connection")  
  conn_en.open   connstr_en  
  if   Err   then  
  Err.clear  
  call   closeConn(conn_en)  
  response.Write   Err.number&":"&Err.description&":"&Err.source&"<br>"  
  response.Write   "数据库连接出错,请根据以上信息检查！<br>"  
  response.End()  
  end   if  
  End   Function  
  %>  
  <%  
  openAccessDB  
  set   rs   =   server.CreateObject("adodb.recordset")  
  sql="select   *   from   [eis]"  
  rs.open   sql,conn_en,1,1  
  for   i=1   to   rs.recordcount  
      response.Write   rs("eis_id")&"         "&rs("eis_name")&"<br>"  
      rs.movenext  
      if   rs.eof   then   exit   for  
  next  
  closeObj(rs)  
  closeObj(conn_en)  
  %>  
   
  出现"变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突"的问题,我直接把openAccessDB中的内容直接插入调用openAccessDB函数,不出错,为什么!

---

变量作用域的问题  
   
  conn_en   不是全局变量       使用肯定要出错了  
   
   
  dim   conn_en     把这句放到你的那个Function外面去   就好了

---

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	连接 关于 conn_en rs openAccessDB connstr_en db if