查看: 308|回复: 4

利用ASP开发Web应用[4]

[复制链接]

前进

电梯直达

1^#

发表于 2009-3-16 19:48:55 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

'使用它的方法
obj.Method
ASP提供了5个服务器组件，其中最重要的两个是数据库访问构件ADODB和文件访问构件F ileSystemObject，本文的例子将说明它们的使用。
　　对于一些特殊的需求，开发者还可以自己开发服务器构件，利用VB或VC可以很方便地开发出一些构件，然后登记这些构件，就可以用Server.CreateObject来调用。另外还有许多站点上有开发好的构件供下载，只要在自己的机器上将它们登记就可以使用。
　　五、ASP应用实例
　　1. 利用文件访问组件制作主页访问计数器
　　现在许多主页上都有一个计数器来记录该主页被访问的次数，通常计数器通过CGI实现，开发过程比较复杂，一些非专业的程序员难以实现。而通过ASP的文件访问组件File Acce ss Component (Scripting.FileSystemObject)，可以很方便地产生一个计数器。下面是一个例子，其原理是：根据page hits生成计数文件，读出计数文件中的数字，再根据它动态地调出代表1、2、3等数字的图像。其基本过程和CGI差不多，但在送出图像时不同，CGI是通过程序来动态生成一整幅图像，而我们的方法是将已存在于机器中的图像一张一张地调出，这样就可以制作非常精美的数字图像。其程序片段为：
　　＜html＞
　　＜％
　　CountFile = Server.MapPath(“/gjy”＋“/count.txt”)
　　’计数文件
　　Set FileObj = Server.CreateObject(“Scripting.FileSystemObject”) ’产生文件访问构件
　　Set Out=FileObj.OpenTextFile(CountFile,1,FALSE,FALSE) ’ 打开文件
　　visitors = Out.ReadLine ’读出访问记录
　　visitors = visitors＋1 ’加一
　　Length = Len(visitors) ’该调出的图像数目
　　strURL=“” ’图像的URL
　　Do While Length＞=1
　　strURL=“　Length=Length－1
　　Loop ’生成图像URL
　　Set Out=FileObject.CreateTextFile(CountFile,TRUE,TRUE)
　　Out.WriteLine(visitors) ’记录数写回
　　％＞
　　＜％=strURL％＞ ’输出图像
　　＜/html＞
　　注：读者可以根据自己服务器的情况设置图像文件路径。
　　2. 利用Data Access Component (ADODB .Connection) 访问服务器数据库
　　让用户通过浏览器查询服务器的后端数据库是许多Web服务提供者必需有的服务，ASP通过内置的ADODB组件来实现这一功能。ADO即Active Data Object，同DAO和RDO一样，属于数据库应用的COM构件，不同的是，ADO是专门针对Internet和Web开发的，并对此进行了优化。利用ADO查询数据库的步骤是：

　　设置DSN
ADODB通过ODBC工作，因此要在ODBC中设置DSN（数据源名）。
　　生成ADODB组件实例
Set Connect=Server.CreateObject(“ADODB.Connection”)

收藏0