1:
   不清楚你的具体意思
2:var ADS = new ActiveXObject("RDS.Dataspace");
var mts_util = ADS.CreateObject("util.dodatabase",strServer);
// strServer为服务器名称

解决方案 »

  1.   

    coolstar:谢谢!
    对不起,是我没说清楚:
    1,我想下载网上的MDB文件到本机,不要出现任何提示和对话框等,只要知道下载完毕就可以了,期间不要出现是否下载,下载到何地等信息。
    2,我想实现在本机操作互连网上的数据库!我测试如下代码,失败??Dim rdso As New RDS.DataControlDim rs As ADOR.RecordsetPrivate Sub Command1_Click()
        driver = "driver={microsoft access driver(*.mdb)}"
        dbpath = "; dbq=C:\Inetpub\wwwroot\expo.mdb"
        rdso.Server = "http://127.0.0.1"
        rdso.Connect = driver & dbpath
        rdso.SQL = "Select * from expo"
        rdso.ExecuteOptions = adcExecAsync
        rdso.FetchOptions = adcFetchBackground
        rdso.Refresh
        Set rs = rdso.Recordset
        outputrecordset rs
    End SubSub outputrecordset(rs As ADOR.Recordset)
        Dim i As Integer
        For i = 0 To rs.Fields.Count - 1
            Debug.Print rs.Fields(i).Name
        Next
        Debug.Print
        While Not rs.EOF
            For i = 0 To rs.Fields.Count - 1
                Debug.Print rs.Fields(i),
            Next
            'Debug.Print
            rs.MoveNext
        Wend
    End Sub