请教各位大哥一个数据库连接问题，我在本机处理很快，可分机操作确老是连接失败。

我的数据库操作是由客户端上传一个excel报表，然后由服务器先读取该上传的报表然后通过access连接将报表中的数据增删改到access数据库中。我在单机通过iis连接服务器时这些操作都没问题，同时插入500条记录都成功执行了，可通过客户机访问服务器时，相关网页都能链接得上但进行数据库增删改时就连一条记录都不行，最后显示是连接数过多无法执行。以下是连接数据库和打开excel的代码：
  
  打开上船的excel文件
  set objExcelApp = CreateObject("Excel.Application")     
  objExcelApp.DisplayAlerts = false   
  objExcelApp.Application.Visible = false   
  objExcelApp.Workbooks.Open(xlspath)   '打开Excel模板    
  set objExcelBook = objExcelApp.ActiveWorkBook     
  set objExcelSheets = objExcelBook.Worksheets     
  set objExcelSheet = objExcelBook.Sheets(1)
  
  '打开access数据库
  set userconn = server.createobject("ADODB.Connection")
  path=server.mappath("database")+"\G10process.mdb"' 获得数据库的相对路径
  userconn.ConnectionString = "DBQ="+path+";DRIVER={Microsoft Access Driver (*.mdb)};"
  userconn.open


以下是数据库更新的操作函数：
  sub updatetable(object, conn, hang)'输入参数：excel数据集，access数据库连接, 行号
  dim updatesql, i
  updatesql = "update processtable set " &object.cells(1,2)&" = '" & object.cells(hang,2)& "'" 

  i = 3
  do while not object.cells(1,i) = ""
  if (not trim(object.cells(hang,i)) = "") and (not trim(object.cells(hang,i)) = "-") and (not trim(object.cells(hang,i)) = "－") then
  updatesql = updatesql & " , " &object.cells(1,i)&" = '" & object.cells(hang,i) & "'"
' else updatesql = updatesql & " = ''"
  end if
    i = i+1
  loop
  updatesql = updatesql & " where 站号 = '" &object.cells(hang,1)& "'"
  conn.execute(updatesql)
  end sub

请各路高手不吝赐教。

2 个解决方案

#1

有人能帮忙吗？这问题挺严重的，快来帮帮我，只要有效马上给分。

#2

自己的服务器?装个2003系统