将当前屏幕截图通过http发送到 服务器上,服务器上只有asp和access 将当前屏幕截图通过http发送到 服务器上,服务器上只有asp和access 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1,截图问题,如何将当前屏幕图片转换成压缩的数据,最好不好占用大量的系统资源,不在磁盘保存文件。 2,如何将数据传送至服务器的asp网页 最好兼容 win98 ,2000 ,xp 实现方式不限 ,分不够再加,谢谢 ..........你要上传到服务器,但又不允许保存为文件,那么你是要直接要把二进制流上传上去?你的ASP怎么写的? 二进制流也可以上传的,可以Base64编码一下。楼主看看MSXML中相关POST的资料。至于截图、压缩嘛,asp估计很难脱离ActiveX了,如果用.NET应该要简单的多。 对就是流,怎么传输给服务器,用控件也可以能给个post jpg流和 aspx的资料吗,代码示例更好 可以直接把二进制数据Post到Web Server里,然后用ASP来处理数据。 能给个post jpg流和 aspx的资料吗,代码示例更好 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,varDatadim 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 varDatarst.update rst.close set rst = nothing set cnn =nothing %> VB 创建 vpn 连接的属性 VBA的问题 紧急求助:关于引用excel的版本问题????? 還是自定義紙張的問題! 有什么方法可以判断网络文件夹是否有写权限,不能用创建一个临时文件的方法! 请问用MSHFLEXGRID控件和datagrid控件之间有什么区别啊?? 一个TEXT控件,一个VScrollBar控件,如何根据VScrollBar来改变text里的值?? 关于MSFLEXGRID控件的问题 怎样用用vb创建进程? 请问vb发送邮件的例子 知道窗口的句柄hwnd怎么使用其中的控件? vb编程
最好兼容 win98 ,2000 ,xp 实现方式不限 ,分不够再加,谢谢
楼主看看MSXML中相关POST的资料。至于截图、压缩嘛,asp估计很难脱离ActiveX了,如果用.NET应该要简单的多。
能给个post jpg流和 aspx的资料吗,代码示例更好
给你写个例子,不过只是演示一下,代码我没有验证过。
'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 %>