如题,是要调用Microsoft ActiveX Data Objects Library吗?然后呢

解决方案 »

  1.   

    一个例子
    目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本 
    最关键的是没有10行代码以下的 :) 
    我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传: strFileName = Request.QueryString("file1") 
    Set objStream = Server.CreateObject("ADODB.Stream") 
    objStream.Type = 1 ' adTypeBinary 
    objStream.Open 
    objStream.LoadFromFile strFileName 
    objStream.SaveToFile Server."123_onweb.gif",2 使用方法: 把上面的代码写成upload.asp 
    在浏览器里面输入: 
    http://XXX/upload.asp?file1=c:\上传文件\123.gif 
    XXX为你的主机地址 
    执行完后你会看到你的目录下面多了一个123_onweb.gif 
    他就是你要文件拉!!!! 根据原理我们可以扩展以下代码: 
    upload.asp文件 
    <% 
    Function GetFileName(ByVal strFile) 
    If strFile <> "" Then 
    GetFileName = mid(strFile,InStrRev(strFile, "\")+1) 
    Else 
    GetFileName = "" 
    End If 
    End function strFileName = Request.Form("file1") 
    Set objStream = Server.CreateObject("ADODB.Stream") 
    objStream.Type = 1 ' adTypeBinary 
    objStream.Open 
    objStream.LoadFromFile strFileName 
    objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2 
    objStream.Close 
    %> upload.htm文件 
    <form name="FORM" action="upload.asp" method="post"> 
       <input type="submit" name="submit" value="OK"> 
    <input type="file" name="file1" style="width:400" value=""> 
    </form> 
      

  2.   

    我是想知道在VB中(不是asp,vbs,vba)如何可以使用adodb.stream.........
      

  3.   

    参见ADO帮助文件
    C:\Program Files\Common Files\Microsoft Shared\OFFICE11\2052\ADO210.CHM
      

  4.   

    -_-asp是vb的“子类”   你可以把vbs部分提取出来在vb中是用阿