将当前屏幕截图通过http发送到 服务器上，服务器上只有asp和access

Question

将当前屏幕截图通过http发送到 服务器上，服务器上只有asp和access

Answer 1

1，截图问题,如何将当前屏幕图片转换成压缩的数据，最好不好占用大量的系统资源，不在磁盘保存文件。 2，如何将数据传送至服务器的asp网页 
最好兼容 win98 ,2000 ,xp 实现方式不限 ，分不够再加，谢谢 

Answer 2

..........你要上传到服务器,但又不允许保存为文件,那么你是要直接要把二进制流上传上去?你的ASP怎么写的?

Answer 3

二进制流也可以上传的，可以Base64编码一下。
楼主看看MSXML中相关POST的资料。至于截图、压缩嘛，asp估计很难脱离ActiveX了，如果用.NET应该要简单的多。

Answer 4

对就是流，怎么传输给服务器，用控件也可以
能给个post jpg流和 aspx的资料吗，代码示例更好

Answer 5

可以直接把二进制数据Post到Web Server里，然后用ASP来处理数据。

Answer 6

能给个post jpg流和 aspx的资料吗，代码示例更好

Answer 7

APSX得没有做过，只做过ASP的。
给你写个例子，不过只是演示一下，代码我没有验证过。
'Client 端 Post 数据
Private Sub Command1_Click()
    
    Dim varData     As Variant
    Dim objXmlHttp  As MSXML2.XMLHTTP
    
    varData = ReadFile("c:\test.jpg")       ' 以 Binary 方式读取文件
    
    Set objXmlHttp = New MSXML2.XMLHTTP
    
    objXmlHttp.open "POST", "http://localhost/test.asp", False
    objXmlHttp.setRequestHeader "Content-Length", Len(varData)
    objXmlHttp.send varData                 ' Post 数据
    
    '...
    
End Sub'ASP 文件
<%@ language="VBScript" %>
<% 
dim lngDataSize,varData
dim cnn,rstlngDataSize=request.totalbytes 
varData=request.binaryread(lngDataSize) set cnn = server.CreateObject("ADODB.Connection") 
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & server.MapPath("test.mdb") & ";Persist Security Info=True"
cnn.Open set rst = server.createobject("ADODB.rstordset") 
rst.Open"select * from images where 1=0",cnn,1,3 
rst.addnew 
rst("img").appendchunk varData
rst.update 
rst.close 
set rst = nothing 
set cnn =nothing %>