ASP服务器组件编程心得

发表日期：2000-10-31

新浪微博 QQ空间 QQ微博百度搜藏腾讯朋友 QQ收藏百度空间人人网开心网

使用asp编程的一大优点是可以使用众多的服务器组件（ActiveX Server Components)。这些组件提供诸如广告轮显
（Ad Rotator）、浏览器兼容（Browser Capabilities）、数据库存取（Database access）、文件超链接（Content
Linking）、文件存取（File Access）等等功能。使用服务器组件，可以通过非常简单的方式高效率地完成各种复杂的工
作。

　　一般，ASP的各个组件通常使用 Server.CreateObject 方法来创建。例如，创建一个AD Rotator 组件可用：

<%

set ad = Server.CreateObjet (“MSWC.AdRotator”)

%>

　　在ASP的各个组件中，ActiveX Data Object（ADO）组件有着极为重要的作用。它是一种可以提供Web页面设计开发人
员快速存取Internet的数据库，并在用户端实现网上实时更新显示的Web数据库技术；ADO几乎兼容于各种数据库系统，而
且跨越多种不同的程序语言开发环境。

　　例如，我们在网上向本公司的客户群提供各种硬件的升级程序，与此同时，我们希望能够记录下客户的相关资料。在
以前，这种Web上的交互操作一般采用CGI来完成，不仅难以书写和维护，而且对处理器的消耗很大。现在，我们使用ASP的
ADO组件，就可以在短短的两个小时轻轻松松的完成以前需要三天才能完成的开发工作，而且还不必花费太多的时间和精力
放在维护上。

　　首先，我们需要写一个供用户填写资料的表格页面，或者我们还可以将这个页面与后面的ASP处理程序放在同一个文件
里，只需要我们在<form>代码中注明Action的对象是本程序（要么就什么都不写）。

　　假定我们的程序名是download.html，下面是原代码：

<html>

<body>

`声明提交方法及传递信息的方式

<form METHOD="POST" ACTION="download.asp">

<font face=arial>

<table border="0" align=center>

<tr>

<td><font color="black" size="2"><b>Name:</b></font></td>

<td><input TYPE="text" SIZE="30" NAME="name"></td>

</tr>

<tr>

<td><font color="black" size="2"><b>Telephone:</b></font></td>

<td><input TYPE="text" SIZE="30" NAME="telephone"></td>

</tr>

<td><font color="black" size="2"><b>E-mail:</b></font></td>

<td><input TYPE="text" SIZE="30" NAME="email"></td>

</tr>

<tr>

<td><font color="black" size="2"><b>Address:</b></font></td>

<td><input TYPE="text" SIZE="30" NAME="address"></td>

</tr>

<tr>

</table>

<hr>

<table align=center><tr>

<td><input TYPE="Submit" VALUE="Submit"></td>

<td width=30></td>

<td><input TYPE="Reset" VALUE="Reset"></td>

</tr></table>

</font>

</form>

</body>

</html>

　　然后，我们开始编写数据处理程序download.asp。

<script language=vbscript runat=server>

`设置缓冲区属性

response.buffer=true

Dim name

　　判断有关字段是否为空

if Len(request.form("name"))=0 then

name="Not Entered"

else

　　不为空时，利用Response对象让Server获取表格中“name”字段内容

name=request.form("name")

end if

Dim telephone

if Len(request.form("telephone"))=0 then

telephone="Not Entered"

else

telephone=request.form("telephone")

end if

Dim address

if Len(request.form("address"))=0 then

address="Not Entered"

else

address=request.form("address")

end if

　　由于我们将采取Email发送的方式将该下载软件提供给用户，所以我们必须要求客户提供有效的Email地址。

Dim email

email=request.form("email")

　　`判定客户填写的“Email”资料中是否含有特别字符“@”

if instr(email,"@")=0 then

`若为否，引导客户至“back.htm”的提示页面。

response.redirect("back.htm")

else

　　建立数据库连接通道

Set objConn = Server.CreateObject("ADODB.Connection")

　　打开需要的数据库

objConn.Open("download")

　　创建对象接口

set objRst = Server.CreateObject("ADODB.Recordset")

set objRst.ActiveConnection = objConn

　　设定对数据库更新数据时的锁定机制为：数据在更新时并未锁定其他用户的动作。

objRst.LockType = 3

　　数据库源

objRst.Source = "client"

　　控制数据更新后过滤下载的数据类型

objRst.CursorType = adOpenKeyset

　　将从表格内获取的资料传送到web服务器上的数据库

objRst.Open

objRst.AddNew

objRst("company") = company

objRst("name") = name

objRst("telephone") = telephone

objRst("fax") = fax

objRst("email") = email

objRst("address") = address

objRst.Update

objRst.close

　　关闭连接

objConn.close

　　下面是利用IIS4.0附带的Email组件CDONTS发送邮件

Dim objmail

　　建立一个Email组件

set objMail=Server.CreateObject("CDONTS.NewMail")

　　邮件发送者的Email地址

objMail.From="me@hotmail.com"

　　邮件接收者的Email地址

objMail.To=email

　　邮件的标题

objMail.Subject="Thank you!"

　　邮件的正文

objMail.Body="This is the software of Virtual Drive 2000 Network."

　　在邮件里附加文件，“绝对路径”，“文件名”。若为URL地址，则改为ObjMail.AttachUrl

objMail.AttachFile "d:/power/download/vdn2kdm.exe", "vdn2kdm.exe"

　发送邮件

objMail.Send

　　将Email对象从内存中清除

Set objMail=nothing

response.write "<p><font face=arial size=3 color=blue><b>Thank you!<br>We have sent the file pass your
Email, please wait...</b></font></p>"

end if

</script>

　　到这里，一个很不错的web数据库交互操作程序就大功告成，而且，它还带有向客户发送Email的功能，方便客户利用
Email下载较大的文件。

关注此文的读者还看过：
·2012-5-22 18:09:56 不用EOF以加快记录循环
·2012-5-22 18:09:38 要如何使用 ASP Error 组件？
·2012-5-22 18:09:32 用ASP发送邮件
·2012-5-22 18:09:30 关于ASP中堆栈溢出错误的解决
·2012-5-22 18:09:27 ASP乱码的解决方法
·2012-5-22 18:09:26 让ASP也可以连接MYSQL
·2012-5-22 18:09:19 ODBC Drivers错误'80004005'的解决办法
·2012-5-22 18:08:52 在ASP里建表
·2012-5-22 18:08:23 如何设置二级域名？

站长推荐 PS笔刷下载在线翻译系统进程广告代码

发表评论
姓　名:	验证码:
内　容:

教程搜索服务

项目外包信息

·寻会php的程序员外包网站
·派桑网络-网络营销专家
·汽车配件网站制作 50000元
·整站SEO优化
·课件门户网程序
·求长期合作网站设计制作高手
·公司网站重新改版 8000元
·asp企业网站小改动
·网站flash片头
·文化传播公司网站设计稿
·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·做B2C网站 20000元

发布信息

浏览信息

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<ASP技巧>的内容

网络编程文章分类

ASP教程
ASP实例
ASP技巧
ASP文摘
PHP教程
PHP技巧
PHP实例
PHP文摘
JSP教程
JSP技巧
JSP实例
JSP文摘
ASP.NET教程
ASP.NET技巧
ASP.NET实例
ASP.NET应用
xml教程
xsl教程
xml技巧
C#教程
C#应用
Delphi教程
Perl教程
Shell教程
Ajax教程
Visual Basic教程
Java教程
J2EE/J2ME教程
C/C++教程
移动解决方案
移动短信技术
移动行业动态
软件工程
WordPress
Android开发