使用到了ScanOnWeb控件去实现扫描仪控制,ScanOnWeb控件能百度到。
实现代码如下:
1.页面中引入ScanOnWeb控件
<object classid="clsid:15D142CD-E529-4B01-9D62-22C9A6C00E9B" id="scaner1" width="100%" height="600" codebase="../cabs/ScanOnWeb.cab#version=1,0,0,10">
</object>
2.编写javascript代码控制扫描仪读取扫描结果
document.getElementById('scaner1').scan();
3.读取扫描结果存入html的input type=hidden隐藏元素中,然后submit form
var base64_data = document.getElementById('scaner1').jpegBase64Data;
document.getElementById('picData').value=base64_data;
document.forms[0].submit();
这里是没扫描一次以后就提交一页扫描结果到asp程序中,如果需要扫描多页文档如扫描成pdf格式以后再提交,则需要读取多页扫描结果。
4.服务器端保存数据到文件中
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64)
dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.base64"
EL.Text = base64
decodeBase64 = EL.NodeTypedValue
end function
dim data
dim ext
data=decodeBase64(request.Form("picData"))
ext=request.Form("picExt")
set stm=Server.CreateObject("ADODB.Stream")
'stm.Mode=adSaveCreateOverWrite 'adModeReadWrite
stm.type=1
stm.open
stm.Write(data)
stm.SaveToFile Server.MapPath("./") & "/" & "ajax" & ext,2
stm.Close
set stm=nothing
response.write "<a href='ajax" & ext & "'>click here</a>"
response.end
%>
实现代码如下:
1.页面中引入ScanOnWeb控件
<object classid="clsid:15D142CD-E529-4B01-9D62-22C9A6C00E9B" id="scaner1" width="100%" height="600" codebase="../cabs/ScanOnWeb.cab#version=1,0,0,10">
</object>
2.编写javascript代码控制扫描仪读取扫描结果
document.getElementById('scaner1').scan();
3.读取扫描结果存入html的input type=hidden隐藏元素中,然后submit form
var base64_data = document.getElementById('scaner1').jpegBase64Data;
document.getElementById('picData').value=base64_data;
document.forms[0].submit();
这里是没扫描一次以后就提交一页扫描结果到asp程序中,如果需要扫描多页文档如扫描成pdf格式以后再提交,则需要读取多页扫描结果。
4.服务器端保存数据到文件中
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64)
dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.base64"
EL.Text = base64
decodeBase64 = EL.NodeTypedValue
end function
dim data
dim ext
data=decodeBase64(request.Form("picData"))
ext=request.Form("picExt")
set stm=Server.CreateObject("ADODB.Stream")
'stm.Mode=adSaveCreateOverWrite 'adModeReadWrite
stm.type=1
stm.open
stm.Write(data)
stm.SaveToFile Server.MapPath("./") & "/" & "ajax" & ext,2
stm.Close
set stm=nothing
response.write "<a href='ajax" & ext & "'>click here</a>"
response.end
%>