如何把網頁上所有的員工照片一次性保存到客戶并且使圖片的名稱是員工的工號!

Question

web方式是不允许写客户端的,
你为什么要有这样的需求啊?

Answer 1

<%@ Language=VBScript codepage=936  %>
<%  Option Explicit %>
<%
    Dim filePath, dataStream, BytesStream
    filePath = request.queryString("path")
    set BytesStream = server.createobject("ADODB.Stream")    With BytesStream
      .Open
      .Type = 2 
      .LoadFromFile filePath
      dataStream = .Readtext
      .Close
    End With    set BytesStream=nothing    Response.AddHeader "content-disposition","attachment; filename="+ Mid(filePath, InStrRev(filePath, "\")+1)
    Response.ContentType="application/octet-stream"
    Response.BinaryWrite dataStream
%>循环调用这个页面即可

Answer 2

楼上的只能显示…………现在的关键问题是FSO没有二进制流的输出

Answer 3

忽然想了一个方法，用FSO的copyfile，用楼上的方法得到路径后直接copyfile就可以了
<script>
var a = new activeXObject("scripting.FileSystemObject");
var name;
name="D:\pic\"+"<% =你想起的名字 %>"
a.copyfile <% =filename %>, "), name;
</script>

Answer 4

用fso需要降低安全性，所以强烈建议楼主不要使用客户端的操作方式！