转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
如何制作无状态的ASP组件         ★★★★

如何制作无状态的ASP组件

作者:闵涛 文章来源:闵涛的学习笔记 点击数:629 更新时间:2009/4/23 10:26:18
 ∫话阄颐窃趙eb或其它有关的无状态应用中使用组件时,脚本运行完毕后我们都会丢失组件的所有参照。当然可以简单地将组件的参照保存在会话(session )变量中,但这浪费资源。更聪明的方法是用会话变量或隐式表单标签保存组件的一些信息。当重新制作组件的实例时,试图用保存在会话变量中的信息恢复组件的状态。但两种方法的弊端都在于:从资源的角度来看过于昂贵,甚至恰好难以实现。

  很幸运有个好消息。我们都知道可持续性的整个前提是能够将变量恢复到这样的状态,以至于组件知道在上次的例示中它在哪。这有助于组件现在去做它假定要做的。这个方案的一个典型例子是网页上资料的翻页。当用户点击Page Down时,我们需要知道我们在前一页的位置。 不把变量保存在内存中(如会话变量),如果我们能将它们保存在文件中,等以后需要时检索不是会很好吗?用基础的数据形式(字符串与数字)保存数据很容易。用对象和数组会怎样呢?对象和数组本质上是存储器中的二进制数据流。如果我们能读这个数据我们就能将它写进文件以便以后的检索。关于对象有个好注意。尽管数组的情况不同。首先你不能用数组做组件的属性(VB6.0)。你可以用他们做变量,但以后你会碰到路障。幸运地是我们为这种情况发现了一个工作区。

  你可以将所有或部分属性保存在一个PropertyBag对象中。PropertyBag对象控制在一个对象调用过程中可以保存和恢复的信息。PropertyBag对象的内容(Content)属性提供你任何存在组中的二进制数据流。由你来将这些二进制数据流写进文件中以便日后的检索。

实例:

比如你有一个类MyComp.clsMyDept,它有两个属性MyDepartment$ 和 MyEmployees (一个ADO记录集对象)。

以下是这个类模块的代码:
Option Explicit
Option Compare Text

Public MyDepartment As String
Public MyEmployees As ADODB.Recordset

Dim objBag As New PropertyBag

Private Sub Class_InitProperties()
 Set MyEmployees = New ADODB.Recordset
 MyEmployees.Fields.Append "EmpName", adVarChar, 30
 MyEmployees.Fields.Append "EmpSal", adCurrency
 MyEmployees.Open
End Sub

Public Sub SaveMyProperties()
 Dim intFile%, bytRec() As Byte
 objBag.WriteProperty "MyDepartment", MyDepartment
 objBag.WriteProperty "MyEmployees", MyEmployees
 Save this    a in a file for later retrieval
 intFile = FreeFile
 If Dir("C:\MyData.txt", vbNormal) = "" Then
 Else
 Kill "C:\MyData.txt"
 End If
 Open "C:\MyData.txt" For Binary Access Write As #intFile
 bytRec = objBag.Contents
 Put #intFile, , bytRec
 Close #intFile
End Sub

Public Sub RestoreMyProperties()
 Dim intFile%, bytRec() As Byte
 Read the saved data from the file.
 ReDim bytRec(FileLen("C:\MyData.txt"))
 intFile = FreeFile
 Open "C:\MyData.txt" For Binary Access Read As #intFile
 Get #intFile, , bytRec
 objBag.Contents = bytRec
 Close #intFile
 PropertBag restored. Lets restore the properties now.
 MyDepartment = objBag.ReadProperty("MyDepartment")
 Set MyEmployees = objBag.ReadProperty("MyEmployees")
End Sub

在客户应用中保存属性
Private Sub Command1_Click()
 Dim objDept As New MyComp.clsMyDept
 objDept.MyDepartment = "Research"
 Add one employee
 objDept.MyEmployees.AddNew
 objDept.MyEmployees!EmpName = "Harry"
 objDept.MyEmployees!EmpSal = 2500
 objDept.MyEmployees.Update
 Add second employee
 objDept.MyEmployees.AddNew
 objDept.MyEmployees!EmpName = "Potter"
 objDept.MyEmployees!EmpSal = 3000
 objDept.MyEmployees.Update
 Save the properties by calling the method from our component
 objDept.SaveMyProperties
 Set objDept = Nothing
End Sub

取回保存的属性
Private Sub Command2_Click()
 Dim objDept As New MyComp.clsMyDept
 Restore properties by calling the method from our component
 objDept.RestoreMyProperties
 Lets see what is restored
 Debug.Print objDept.MyDepartment Will print Research

 objDept.MyEmployees.MoveFirst
 Debug.Print "" & objDept.MyEmployees!EmpName Will print Harry
 objDept.MyEmployees.MoveNext
 Debug.Print "" & objDept.MyEmployees!EmpName Will print Potter
 Set objDept = Nothing
End Sub
  先别激动,你在自己的应用中运行这个酷件之前,必须了解它的局限性。用于保存的时间取决于属性的大小和数据类型。注意大部分时间用在ReadProperty 和 WriteProperty 中。原因很简单,当我们处理象ADO记录集这样的结构型数据时,过程可不象拷贝字节流那样简单。数据也得被解释。

保存记录集时我观察到以下情况:

1、保存100,000行每列有25个字符的记录集用了50秒。
2、检索同样的数据用了20秒。

  有个更好的方法保存记录集对象。他们有自己的Save方法。用Save方法保存100,000个记录集仅用了6秒。用Open方法检索保存的记录集对象,从保存的记录集对象中检索100,000行用了20秒(与PropertyBag方法的时间一样)

选择使用数组

  持续的ADO记录集为在你的应用中使用数组提供了一个好方法。想想,如果你使用起来你就有所有ADO的简便方法可以使用,象FIND,SORT,FILTER等等。实际上,如果你观察仔细,会发现我们在上述实例中用持续的记录集实现了职工记录的数组。纯理论化的人可能会反对,因为你不得不在你的设计中包含ADO,而这将增加你分布磁盘的大量存储。

小结

  在Web类的无状态应用中组件的可持续性是非常重要的功能。使用PropertyBag对象保存和检索属性。对于记录集对象分别使用ADO的Save和Open方法保存和检索数据。将上述例子作为摸板,给每一个实例加上变量文件名就可以制作你自己的组件。


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台