IDC资讯中心
一、ｈｔｍｌ的集合属性
首先，让我们来熟悉一下ｈｔｍｌ的集合属性。在表单（form）数据或查询（query）参数中，当提交的多个参数采用同一个名称时，这些参数值将构成一个集合，在ａｓｐ页面可以获取这些参数值或同名参数的个数。如在下面的页面（set.htm）中，６个复选框采用同一个参数名mycheckbox，其值分别为1、2、3、4、5、6。
<!– set.htm –>
<html><head><title>集合属性应用</title></head><body>
<p>请选择要操作的项目，提交数据后，将会显示您选择的项目。
<form method="post" action="set.asp">
<br>1、<input type="checkbox" name="mycheckbox" value="1">
<br>2、<input type="checkbox" name="mycheckbox" value="2">
<br>3、<input type="checkbox" name="mycheckbox" value="3">
<br>4、<input type="checkbox" name="mycheckbox" value="4">
<br>5、<input type="checkbox" name="mycheckbox" value="5">
<br>6、<input type="checkbox" name="mycheckbox" value="6">
<br><input type="submit" value="提交数据" name="b1">
</form></body></html>
当客户端选择了要显示的项目后，下面的ａｓｐ页面(set.asp)给出客户端选择的项目个数及其值。
<!– set.asp –>
<%@ language = vbscript %>
<html><head><title>集合操作测试</title></head>
<body>
<%
response.write "<br>您一共选择了"&request("mycheckbox").count&"项，"
response.write "<br>您选择的项目有："&request("mycheckbox")
%>
</body></html>
如当客户端选择了第二、三、五项并提交数据后，将会看到如下结果：
您一共选择了3项，
您选择的项目有：2, 3, 5
应该注意到，“2, 3, 5”的形式与ｓｑｌ语句要求的形式是一致的，我们可以直接或间接地利用这种形式的结果，如 "select * from atable where afiled in(" & request("mycheckbox") & ")"的实际
ｓｑｌ查询语句为“select * from atable where afiled in(2, 3, 5)”。
二、ｈｔｍｌ的集合属性的应用
下面我们结合一个实际的例子，讨论一下如何在ａｓｐ页面中利用ｈｔｍｌ的集合属性来成批操作数据库。现在我们有一个记录客户电子信箱的ａｃｃｅｓｓ数据库email，其中有一个数据表emaillist，包含customerid、customername、customeremail三个字段，分别表示客户编号、客户名称、客户电子信箱。在ａｓｐ页面selectid.asp中，我们采用checkbox列出所有客户的客户名称（各个checkbox的值为对应的客户编号），让用户选择给哪些客户发送电子邮件。当用户选择了客户并提交数据后，sendmail.asp将检索到这些客户的电子信箱，并给这些客户发送电子邮件。具体的信息请参见下面ａｓｐ程序代码和注释信息。
<!– selectid.asp：列出所有客户的客户名称 –>
<html><head><title>所有客户的客户名称</title></head><body>
<p align=center><font style="font-family:宋体;font-size:9pt">
请选择要给哪些客户发送“新年问候”的电子邮件
<form method="post" action="sendmail.asp">
<%建立与access数据库的连接
set dbconnection = server.createobject("adodb.connection")
dbconnection.open "driver={microsoft access driver (*.mdb)};"&_
"dbq=c:\inetpub\wwwroot\test\email.mdb"
获取所有客户的客户编号、客户名称
set rscustomers = server.createobject("adodb.recordset")
rscustomers.open "select customerid,customername,customeremail from emaillist",_
dbconnection,1,3,1
显示所有客户的客户名称
while not rscustomers.eof
%>
<br><input type="checkbox" name="customerid" value="<%=rscustomers("customerid")%>">
<a href="mailto:<%=rscustomers("customeremail")%>">
<%=rscustomers("customername")%></a>
<%rscustomers.movenext
wend
rscustomers.close
set rscustomers = nothing
dbconnection.close
set dbconnection = nothing
%>
<br><input type="submit" value="给客户发送电子邮件" name="b1"
style="font-family:宋体;font-size:9pt">
</form></body></html>
<!– sendmail.asp：给所选择客户发电子邮件 –>
<html><head><title>给所选择客户发电子邮件</title></head><body>
<p align=center><font style="font-family:宋体;font-size:9pt">
正在给下面客户发送电子邮件
<%建立与access数据库的连接
set dbconnection = server.createobject("adodb.connection")
dbconnection.open "driver={microsoft access driver (*.mdb)};"&_
"dbq=c:\inetpub\wwwroot\test\email.mdb"
获取所选择客户的电子信箱
set rscustomers = server.createobject("adodb.recordset")
rscustomers.open "select customername,customeremail from emaillist where customerid in ("&_
request("customerid")&")",dbconnection,1,3,1
while not rscustomers.eof
给一个客户发电子邮件
set mymail = createobject("cdonts.newmail")
mymail.from = "sales@test.com"
mymail.value("reply-to") = "sales@test.com"
mymail.to = rscustomers("customeremail")
mymail.subject = "来自王发军的新年问候"
mymail.bodyformat = 1
mymail.mailformat = 1
mymail.body = "王发军向"&rscustomers("customername")&"问好！"
mymail.send
set mymail = nothing
%>
<br>给<a href="mailto:<%=rscustomers("customeremail")%>"><%=rscustomers("customername")%></a>
发送电子邮件成功！
<%
rscustomers.movenext
wend
rscustomers.close
set rscustomers = nothing
dbconnection.close
set dbconnection = nothing
%>
<br>在所选择的客户发送电子邮件完毕！
</body></html>
以上程序在winnt4.0+iis4.0+asp2.0+access97下调试通过。
(作者：王发军 wangfajun@163.net http://wangfajun.163.net)
列出你的所有session变量
<%@ language=vbscript %>
<% option explicit %>
<%
response.write "在你的程序中一共使用了 " & session.contents.count & _
" 个session变量<p>"
dim strname, iloop
for each strname in session.contents
判断一个session变量是否为数组
if isarray(session(strname)) then
如果是数组，那么罗列出所有的数组元素内容
for iloop = lbound(session(strname)) to ubound(session(strname))
response.write strname & "(" & iloop & ") – " & _
session(strname)(iloop) & "<br>"
next
else
如果不是数组，那么直接显示
response.write strname & " – " & session.contents(strname) & "<br>"
end if
next
%>
