|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。汇合|数据|数据库 1、HTML的汇合属性
起首,让我们来熟习一下HTML的汇合属性。在表单(FORM)数据或查询(Query)参数中,当提交的多个参数接纳统一个称号时,这些参数值将组成一个汇合,在ASP页面能够猎取这些参数值或同名参数的个数。如鄙人面的页面(Set.HTM)中,6个复选框接纳统一个参数名MyCheckBox,其值分离为1、2、3、4、5、6。
<!--Set.HTM-->
<html>
<head>
<title>汇合属性使用</title>
</head>
<body>
<p>请选择要操纵的项目,提交数据后,将会显现您选择的项目。
<formmethod="POST"action="set.asp">
<br>1、<inputtype="checkbox"name="MyCheckBox"value="1">
<br>2、<inputtype="checkbox"name="MyCheckBox"value="2">
<br>3、<inputtype="checkbox"name="MyCheckBox"value="3">
<br>4、<inputtype="checkbox"name="MyCheckBox"value="4">
<br>5、<inputtype="checkbox"name="MyCheckBox"value="5">
<br>6、<inputtype="checkbox"name="MyCheckBox"value="6">
<br><inputtype="submit"value="提交数据"name="B1">
</form>
</body>
</html>
当客户端选择了要显现的项目后,上面的ASP页面(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>
如当客户端选择了第2、3、五项并提交数据后,将会看到以下了局:
您一共选择了3项,
您选择的项目有:2,3,5
应当注重到,“2,3,5”的情势与SQL语句请求的情势是分歧的,我们能够间接或直接天时用这类情势的了局,如"Select*fromATablewhereAFiledin("&request("MyCheckBox")&")"的实践
SQL查询语句为“Select*fromATablewhereAFiledin(2,3,5)”。
2、HTML的汇合属性的使用
上面我们分离一个实践的例子,会商一下怎样在ASP页面中使用HTML的汇合属性来成批操纵数据库。如今我们有一个纪录客户电子信箱的ACCESS数据库EMail,个中有一个数据表EmailList,包括CustomerId、CustomerName、CustomerEmail三个字段,分离暗示客户编号、客户称号、客户电子信箱。在ASP页面SelectId.ASP中,我们接纳CheckBox列出一切客户的客户称号(各个CheckBox的值为对应的客户编号),让用户选择给哪些客户发送电子邮件。当用户选择了客户并提交数据后,SendMail.ASP将检索到这些客户的电子信箱,并给这些客户发送电子邮件。详细的信息请拜见上面ASP程序代码和正文信息。
<!--SelectId.ASP:列出一切客户的客户称号-->
<html>
<head>
<title>一切客户的客户称号</title>
</head>
<body>
<palign=center><fontstyle="font-family:宋体;font-size:9pt">
请选择要给哪些客户发送“新年问候”的电子邮件
<formmethod="POST"action="SendMail.asp">
<%创建与ACCESS数据库的毗连
SetdbConnection=Server.CreateObject("ADODB.Connection")
dbConnection.open"Driver={MicrosoftAccessDriver(*.mdb)};"&_
"DBQ=C:inetpubwwwroot estEmail.mdb"
猎取一切客户的客户编号、客户称号
SetrsCustomers=Server.CreateObject("ADODB.RecordSet")
rsCustomers.Open"SelectCustomerId,CustomerName,CustomerEmailFromEmailList",_
dbConnection,1,3,1
显现一切客户的客户称号
whilenotrsCustomers.eof
%>
<br><inputtype="checkbox"name="CustomerId"value="<%=rsCustomers("CustomerId")%>">
<ahref="mailto:<%=rsCustomers("CustomerEmail")%>">
<%=rsCustomers("CustomerName")%></a>
<%rsCustomers.MoveNext
wend
rsCustomers.close
setrsCustomers=nothing
dbConnection.close
setdbConnection=nothing
%>
<br><inputtype="submit"value="给客户发送电子邮件"name="B1"
style="font-family:宋体;font-size:9pt">
</form></body></html>
<!--SendMail.ASP:给所选择客户发电子邮件-->
<html><head><title>给所选择客户发电子邮件</title></head><body>
<palign=center><fontstyle="font-family:宋体;font-size:9pt">
正在给上面客户发送电子邮件
<%创建与ACCESS数据库的毗连
SetdbConnection=Server.CreateObject("ADODB.Connection")
dbConnection.open"Driver={MicrosoftAccessDriver(*.mdb)};"&_
"DBQ=C:inetpubwwwroot estEmail.mdb"
猎取所选择客户的电子信箱
SetrsCustomers=Server.CreateObject("ADODB.RecordSet")
rsCustomers.Open"SelectCustomerName,CustomerEmailFromEmailListwhereCustomerIdin("&_
Request("CustomerId")&")",dbConnection,1,3,1
whilenotrsCustomers.eof
给一个客户发电子邮件
SetmyMail=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
SetmyMail=Nothing
%>
<br>给<ahref="">mailto:<%=rsCustomers("CustomerEmail")%>"><%=rsCustomers("CustomerName")%></a>
发送电子邮件乐成!
<%
rsCustomers.MoveNext
wend
rsCustomers.close
setrsCustomers=nothing
dbConnection.close
setdbConnection=nothing
%>
<br>在所选择的客户发送电子邮件终了!
</body>
</html>
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|