SaveToFile在 客户端没这个权限。

解决方案 »

  1.   

    那这样写客户端却怎么可以上传
    <% 
    strFileName=Request.Form("file1") 
    response.Write ("strFileName=")&strFileName
    Set objStream=Server.CreateObject("ADODB.Stream")
    objStream.Type=1
    objStream.Open
    objStream.SaveToFile Server.MapPath("UploadFile\"&GetFileName(strFileName)),2
    objStream.Close
    %>   
      

  2.   

    objStream.SaveToFile Server.MapPath("UploadFile\"&GetFileName(strFileName)),2
    是服务器上的操作
      

  3.   

    我现在要上传整个文件夹,客户端用vc编了一个组件,可以遍历文件夹下所有路径,想在vbscript中
    建立同样文件夹,并利用ADODB.Stream来循环上传这些文件,现在怎么办好呢...............,请指教.
      

  4.   

    <INPUT id=btn_send name="btn_send" type=button value="send" > 
    <DIV id=div_message>Ready </DIV>
    </BODY> <script language="JavaScript">function btn_send.onclick() 

    var xml_dom = new ActiveXObject("MSXML2.DOMDocument");
    xml_dom.loadXML('<?xml version="1.0" ?> <root/>'); xml_dom.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes"); var node = xml_dom.createElement("updata");
    node.dataType = "bin.base64"; var ado_stream = new ActiveXObject("ADODB.Stream");
    ado_stream.Mode=3;
    ado_stream.Type = 1;
    ado_stream.Open();
    ado_stream.LoadFromFile("F:\\WEBSITE\\XMLHttpTest\\HUNTER16.MP3"); node.nodeTypedValue = ado_stream.Read(-1);
    ado_stream.Close();
    xml_dom.documentElement.appendChild(node); var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
    xmlhttp.open("POST","savefile.asp",false);
    xmlhttp.send(xml_dom);
    //alert(xmlhttp.ResponseText);
    div_message.innerHTML = xmlhttp.ResponseText;
    }
    </script>
    </HTML>
      

  5.   

    <%@ LANGUAGE=VBScript%>
    <% Option Explicit
    Response.Expires = 0dim ado_stream
    dim xml_dom
    dim xml_file1set ado_stream = Server.CreateObject("ADODB.Stream")set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
    xml_dom.load(request)set xml_file1 = xml_dom.selectSingleNode("root/updata")ado_stream.Type = 1
    ado_stream.open
    ado_stream.Write xml_file1.nodeTypedValueado_stream.SaveToFile "d:/HUNTER16.MP3",2
    ado_stream.closeset ado_stream = Nothing
    set xml_dom = NothingResponse.Write "Upload successful!"
    %>
      

  6.   

    试了,我的服务器是win2003,提示"禁止访问其它域的数据"错误,我是不是要装MDAC 2.6
      

  7.   

    禁止访问其它域的数据 可能是 xmlhttp造成的。
    两个页面你都是通过localhost来测试的吗?
      

  8.   

    htm页面和asp页面都放在一个web站点上。通过web地址访问。