<%  
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
%>
                <%
rs.PageSize=15 
for j=1 to rs.PageSize
ViewList=3
%>
  <td width="33%">
   <table width="100%"  border="0" align="center" cellpadding="3" cellspacing="0">
             <tr>
                 <td width="5%" height="27">&nbsp;</td>
                 <td width="5%" valign="middle" style="border-bottom:1px dotted #9b7022;"><img src="images/a. ......

这几天好多人问我如何在asp程序中控制摄像头去抓拍照片，asp技术还是99年的时候看过一点点，早就着米饭吃了，不过既然有人问，那就是看得起咱，花了一个晚上的时间把asp程序调用摄像头拍照的问题搞定了，现记录如下，让有类似需求的同学可以少走些弯路。
用到的技术：
1.asp程序中作base64编码和解码，使用的是msxml组件，其实主要是用来对摄像头采集到的二进制图片数据做处理，因为不可能让用户拍完照片以后再手动上传，而且程序也没办法控制实现自动文件上传，所以在前台的网页中拍照片以后要对照片数据做base64编码处理，然后提交到服务器端以后做base64解码处理。
2.activex技术
   控制各种各样的摄像头去拍照，用纯网页肯定是不可能的了，这里的拍照片功能使用的是activex技术，做了一个activex控件，实现了照片的裁剪，转黑白化处理，缩放等等功能，类似于photo的图片裁剪功能，实现的关键点在于用鼠标选择裁剪区域，以及拖动裁剪区域等。采集以后的照片数据在程序中做了标准base64编码处理，便于网络数据传输。
3.数据传输
   其实这个不光是和摄像头控件或者摄像头拍照有关系，所有的在http通讯协议中传输的base64数据都有这种情况， ......

　　学习目的：学会用表单元素向服务器传送变量，然后显示变量在客户端的浏览器。
　　首先，让我们来看一下DREAMWEAVER的表单元素毛刷。
　　下面我们来一个一个看表单元素。1、文本域，这个是最基本的，传送的是文本信息，一般用户名，密码都要用这个传送，不过要是密码的话要在类型里面选择密码，这样就会以*代替显示出来的字符，文本域的名字很重要，以后会用到这个名字所以一般不用默认的名字。现在举一个例子：如果文本域的名字是name的话，用来传送网上用户登记的名字，在表单域里面，传送到reg.asp，用POST方法，那么在reg.asp里面这样得到变量<%name=request.form("name")%>如果要显示变量再家加一句，response.write name，这样就形成了一个从客户端到浏览器再回到客户端的过程。如果方法用的是GET的话，那么就改为name=request.querystring("name")实际上两者可以统一为name=request("name")。下面看看按钮，按钮里面无非两种，一种是提交表单的按钮，一种是重新输入的按钮。单选按钮，一个按钮有一个值。在列表里面同样，添加列表选项和值。下面举一个例子，实际上各种表单元素都是差不多的。下面是DREAMWEAVER里面的代码：
<form name="form1" metho ......

  <%
for i=1 to rs.recordCount '变量i从1循环到数据库中的全部记录数
if (i mod 1 =1) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "<tr align='center'>"
end if
%>
此处为要循环的内容
  <%if (i mod 1 = 0) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "</tr>"
end if
rs.movenext
next
rs.close
%>
备注：
如果要输出序号，在ASP中使用<%=i%>标记即可，则 i 对应输出的内容为1、2、3、4……100、101、102……
本例中只要将<%=i%>放在腰循环的内容中就可以 ......

添加、删除、修改使用
db.Execute(Sql)命令执行操作
╔----------------╗
☆ 数据记录筛选 ☆
╚----------------╝
注意：单双引号的用法可能有误(没有测式)
 
Sql = "Select
Distinct
字段名 from 数据表"
Distinct函数，查询数据库存表内不重复的记录
 
Sql = "Select Count(*) from 数据表 where
字段名1>#18:0:0# and 字段名1< #19:00# "
count函数,查询数库表内有多少条记录，“字段名1”是指同一字段
例：
set rs=conn.execute("select count(id) as idnum from news")
response.write rs("idnum")
 
sql="select * from 数据表 where 字段名 between 值1 and
值2"
Sql="select * from 数据表 where 字段名 between
#2003-8-10# and #2003-8-12#"
在日期类数值为2003-8-10 19:55:08
的字段里查找2003-8-10至2003-8-12的所有记录，而不管是几点几分。
 
select * from tb_name   where datetime between #2003-8-10# and
#2003-8-12#
字段里面的数据格式为：2003-8-10
19:55:0 ......

添加、删除、修改使用
db.Execute(Sql)命令执行操作
╔----------------╗
☆ 数据记录筛选 ☆
╚----------------╝
注意：单双引号的用法可能有误(没有测式)
 
Sql = "Select
Distinct
字段名 from 数据表"
Distinct函数，查询数据库存表内不重复的记录
 
Sql = "Select Count(*) from 数据表 where
字段名1>#18:0:0# and 字段名1< #19:00# "
count函数,查询数库表内有多少条记录，“字段名1”是指同一字段
例：
set rs=conn.execute("select count(id) as idnum from news")
response.write rs("idnum")
 
sql="select * from 数据表 where 字段名 between 值1 and
值2"
Sql="select * from 数据表 where 字段名 between
#2003-8-10# and #2003-8-12#"
在日期类数值为2003-8-10 19:55:08
的字段里查找2003-8-10至2003-8-12的所有记录，而不管是几点几分。
 
select * from tb_name   where datetime between #2003-8-10# and
#2003-8-12#
字段里面的数据格式为：2003-8-10
19:55:0 ......

1.如果您的操作系统为Windows 98，请运行 Windows98的安装光盘。在其Add-ons\pws目录下找到pws的安装程序，运行安装即可
2.如果操作系统为 Windows 2000 以上，可以按图4.1.1的方法安装 IIS：
打开【控制面板】，找到 【添加/删除程序】→【添加/删除WINDOWS组件】，
弹出 【Windows 组件向导】 ，选择 【Internet 信息服务(IIS)】(在 Windows Server 2003 中，此选项是在 【就用程序服务器】的【详细信息】里)，插入安装盘，按【下一步】开始安装。如4.1.1所示:
图4.1.1 选择安装 IIS服务
安装成功后，就可以按照自己的要求配置IIS了。首先您需要知道IIS在我们使用的过程中充当着一个虚拟的角色。也就是我们是“假装的”把本机磁盘空间的一部分空间划归为“服务器”（实际上我们访问的网站是存储在专门的网络服务器上的）。既然我们也要访问“服务器”上的内容（虽然它存在本机上），那么我们也要通过类似于访问网站的模式去访问。
 
IIS的默认目录安装在 系统盘:\Inetpub\wwwroot里，也就是说上面的虚拟目录http://localhost 或http://127.0.0.1其实是执行您机器上物理路径为 系统盘:\Inetpub\wwwroot上的内容，尝试看看II ......