实现asp程序调用摄像头并控制摄像头进行拍照
这几天好多人问我如何在asp程序中控制摄像头去抓拍照片，asp技术还是99年的时候看过一点点，早就着米饭吃了，不过既然有人问，那就是看得起咱，花了一个晚上的时间把asp程序调用摄像头拍照的问题搞定了，现记录如下，让有类似需求的同学可以少走些弯路。
用到的技术：
1.asp程序中作base64编码和解码，使用的是msxml组件，其实主要是用来对摄像头采集到的二进制图片数据做处理，因为不可能让用户拍完照片以后再手动上传，而且程序也没办法控制实现自动文件上传，所以在前台的网页中拍照片以后要对照片数据做base64编码处理，然后提交到服务器端以后做base64解码处理。
2.activex技术
控制各种各样的摄像头去拍照，用纯网页肯定是不可能的了，这里的拍照片功能使用的是activex技术，做了一个activex控件，实现了照片的裁剪，转黑白化处理，缩放等等功能，类似于photo的图片裁剪功能，实现的关键点在于用鼠标选择裁剪区域，以及拖动裁剪区域等。采集以后的照片数据在程序中做了标准base64编码处理，便于网络数据传输。
3.数据传输
其实这个不光是和摄像头控件或者摄像头拍照有关系，所有的在http通讯协议中传输的base64数据都有这种情况，因为http method分为get方式和post方式，而get方式在个别浏览器上的实现有所限制，如最大的数据量不能大于多少K，所以要在http通讯协议下传输大数据量的东西，要选择post方式去处理。
4.activex技术与服务区端asp程序的交互
客户端浏览器中操作摄像头进行抓拍处理是activex控件完成的，但是activex控件的数据并不能直接 submit到服务器端处理，也就是说asp代码中你想直接取摄像头的照片数据是取不到的，那就需要把客户端浏览器中的activex控件拍照的数据拿出来，让服务器端的asp程序代码可以访问到照片数据，这样就需要有个“代理”或者叫做“中转站”的东西去做这个事情，其实说白了很简单，就是我们的activex数据不能直接提交，你要放在文本框里面或者hidden隐藏元素里面去提交给asp程序.
5. 照片数据保存
服务器端收到的照片数据是base64字符串，这些字符串怎么才可以转变成二进制的图片数据呢？这里面还涉及到一个将base64数据解码以后写二进制文件的问题，既然涉及到写文件，就需要对web项目的安全权限做一些设定，偷懒的办法是给everyone完全控制权限就可以了。
以上的是技术思路和实现方案，来点干的吧，直接上代�
相关文档：
1. 让IIS7支持ASP
Windows Vista中IIS7是默认不安装的，所以在安装完Windows Vista之后如果需要安装IIS7的话，就要自己动手了。安装的步骤为：开始》控制面板》程序》打开或关闭Windows功能》Internet信息服 务(以前操作系统版本里面的"Windows components” 在Vista里面叫做"Programs and Features")。IIS7安装时� ......
常用的重定向方式有: 301 redirect, 302 redirect 与 meta fresh：
ASP 中，我们习惯使用 Response.Redirdect 来实现页面的跳转，但是这种跳转方式的状态是 302 的，属于临时跳转，对于搜索引擎来说，是一种不友好的重定向方式。
ASP 3.0 中，有了另一种方式，即 Response.Transfer 。关于这个，可以查询相关的信息。
......
目前，最常用的三种动态网页语言有ASP(Active Server Pages),JSP(Java Server Pages),
PHP (Hypertext Preprocessor)。
简 介
ASP全名Active Server & ......
发一个标准的数据库连接代码。希望对大家有帮助。
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data&n ......
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='家装课堂' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
......
