WebClass实现动态WEB编程之实践篇 (转)[@more@]
webClass实现动态WEB
编程之实践篇
（作者：苏红超 2001年01月10日 15:50）
说了这么多的有关WebClass理论方面的东西，想必大家也一定想要亲自试一试究竟WebClass是怎么样一回事情了，那我们就先来看一个小的例子，也慢慢消化一下我们上面讲解到的各种理论知识：
启动 vb6集成环境之后，新建一个“IIS应用 程序”的项目。这样缺省的情况下就会创建一个名称是Project1的工程以及一个叫做WebClass1的缺省的WebClass 对象。WebClass的开发环境有两部分组成：WebClass设计器和代码窗口。其中的WebClass设计器的地位就像往常的VB表单设计器一样，通过他可以添加新的HTML模版WebItems，添加Custom Webitems对象，以及在WebItems中添加各种事件处理过程和启动停止本地的Web Server。当这个项目运行的时候，会初始化WebClass对象，会触发WebClass_Start事件，也就是说这个事件类似于VB中的Sub Main 函数，他会首先被触发。
我们来先写一段最简单的WebClass程序代码：
Option Explicit
Option Compare Text
Private Sub WebClass_Start()
Response.write ""
Response.write ""
Response.write "
这是我们的第一个WebClass程序！
"
Response.write "
当前的
系统事件是：" & now() & "
"
Response.write ""
Response.write ""
End sub
好了，我们需要保存这个工程，运行的时候VB会提示我们建立一个新的WEB，是为了可以在VB中运行我们的WebClass工程的时候 调试的方便。之后，我们运行这个项目，VB就会自动 调用Inte .NET Explorer 浏览器浏览我们的程序，并且你可以随时在我们的WebClass程序中设置端点来跟踪各种变量的值，这在普通的 ASP程序中是无法想象的事情，但是使用WebClass却是如此的方便和自由！
WebClass使用WebItem向浏览器提供内容和事件。每一个WebClass都会包含多个WebItems。而WebItem则有两种类型：HTML Template WebItem和Custom WebItem。通过HTML Template WebItem可以将HTML 文件和WebItem联系在一起，所以在添加WebItem之前必须创建我们需要的HTML文件。值得注意的是：当你在添加HTML模版的时候，如果模版文件和我们的工程文件不在同一个目录中，则系统会将模版的一个副本拷贝到工程所在的目录中；如果模版文件和工程文件在同一个目录中，则系统会重新命名这个模版副本的名字，而我们在需要改动模版的时候，需要改动的是这个模版的副本，而不是它本身！
WebItem使用方法WriteTemplate()来对响应输出模版内容。下面我们再来看一个结合了HTML Template WebItem的程序：
在我们刚才的WebClass1工程中添加一个HTML Template WebItem，系统会提示我们选择一个HTML文件，我们选择的HTML文件是test.htm，内容很简单：
这是模版test中的内容：Hello，world!
添加之后，我们会在WebClass设计器中的“HTML Template WebItem”下面找到名为“Template1”的一个模版，为了方便，我们更改他的名字为“test”。
这样我们的代码变动如下：
Option Explicit
Option Compare Text
'模版test的Response事件
Private Sub test_Respond()
Response.Write "
"
'调用WriteTemplate()方法来处理我们的名叫test的HTML模版文件
test.WriteTemplate
End Sub
Private Sub WebClass_Start()
'写一个对 用户的回答
Response.write ""
Response.write ""
这是我们的第一个WebClass程序！
"
Response.write "
当前的系统事件是：" & now() & "
"
Response.write ""
Response.write ""
'将控制权交给名为test的HTML模版，会首先触发他的Response事件
Set NextItem = test
End Sub
我们运行这一段WebClass程序，则会在浏览器中显示如下(图1)：
接下来我们看看Custom WebItem，这种类型的WebItem没有相关的HTML文件，顾名思义，他是用户自定义的WebItem，他是不可以使用WriteTemplate()方法的。同样可以通过设置NextItem属性来触发Custome WebItem。我们就不再重复了。
探讨完了两种类型的WebItem，我们来看一个综合利用这两种类型WebItem的例子：
Option Explicit
Option Compare Text
Private Sub custome_Respond()
Response.Write "
"
Response.Write "
'处理用户做出的选择
select Case Trim(Request.Form("userchoice"))
Case "普通工人"
Set NextItem = workerpage
Case "销售人员"
Set NextItem = salespage
Case "其它"
Set NextItem = otherpage
End Select
End Sub
Private Sub otherpage_Respond()
Response.Write "
"
otherpage.WriteTemplate
End Sub
Private Sub salespage_Respond()
Response.Write "
"
salespage.WriteTemplate
End Sub
Private Sub workerpage_Respond()
Response.Write "
"
workerpage.WriteTemplate
End Sub
Private Sub WebClass_Start()
'Webclass启动的时候生成我们需要的一个表单
With Response
.Write ""
处理表单
"
'设置表单提交到我们的Custome Webitem（custome）中，会首先触发custome的response事件
.Write "RM name=test1 method=post action=" & URLFor(custome) & ">"
.Write "选择你喜欢的职业："
.Write "普通工人"
.Write "销售人员"
.Write "其它"
.Write ""
.Write ""
End With
End Sub
其中的三个HTML模版内容如下：
HTML模版otherpage：
HTML模版salespage：
HTML模版worker：
运行这个项目之后首先会出现如下叶面，让用户选择喜欢的职业：
如果用户做出了自己的选择，并提交了这个表单，则显示如下图：
ide/2001/01/10//image/010110b1-3.jpg">
我们知道在ASP中可以动态的控制各种HTML元素，从而实现统一个ASP文件可以实现不同的HTML叶面，那么在WebClass中我们如何实现呢？这就需要在WebClass中很重要的标签处理事件了，也就是在HTML Template WebItem中的ProcessTag事件，也就是说在你调用一个HTML Template WebItem中的WriteTemplate()方法的时候就会触发他的ProcessTag事件，从而也就开始了对HTML模版的标签处理程序。这个事件有如下参数：
Private Sub TemplateItem_ProcessTag(ByVal TagName As String， TagContents As String， SendTags As Boolean)
End Sub
其中的参数TagName是在HTML模版中你自行定义的标签名称，在默认的情况下，这个标签的前缀是WC@(当然你也可以自行改为自己想要的名字)，在HTML中的代码一般如下：mytest。
而参数TagContents则是标签所包围的内容了，你可以通过对这个参数的赋值来实现标签间内容的动态改变。
参数SendTags表示是否将标签本身也传送到浏览器，默认的情况下是false，也就是不将标签本身传送到浏览器。
我们现在来做一个使用ProcessTag事件的具体例子，还是沿用我们上面的例子，不过我们加上，当用户选择的是其他的职业的时候，在otherpage这个HTML模版中我们定义一个标签：WC@other。
HTML模版otherpage的代码修改如下：
test
这样当我们选择了“其他”的选项之后，从我们上面运行过的代码可以看出在otherpage_Respond()事件中，我们调用了WriteTemplate方法，上面的例子中由于在HTML模版otherpage中没有任何标签，所以不会触发他的ProcessTag事件，但是现在的例子则会触发相应的ProcessTag事件，我们在相应的ProcessTag事件中的代码如下：
Private Sub otherpage_ProcessTag(ByVal TagName As String， TagContents As String， SendTags As Boolean)
'如果是标签WC@other，则我们进行相应的动态替换
If TagName = "WC@other" Then
TagContents = "标签里面的内容已经被我们动态替换啦！"
End If
End Sub
运行我们的这个例子，你就会发现位于标签和之间的内容"test"的确被我们动态的替换掉了！
通过上面的讲解和实际例子的联系，相信大家对于WebClass的编程思想和思路有了一定的认识和了解，当然我们这篇文章只是引导大家进入WebClass世界，真正的WebClass编程仍然需要大家的不断实践才可以掌握，但是仅仅通过我们的这些简单介绍，大家也一定应当可以了解到WebClass相对于纯ASP来讲是一个很大的飞跃，他使得我们可以向往常的编写普通应用程序那样来编写各种WEB程序，给我们带来了极大的方便！我们在WebClass的世界中可以使用所有VB程序可以使用的东西，包括各种 ActiveX DLL对象等等，可以享受到VB带来的所有优点！
在文章的最后，我们来看一下WebClass实现的一些“秘密”，仍然是用上面的我们的例子，我们的工程保存为Project1，WebClass被命名为WebClass1，则当你运行这个项目的时候，你会发现在浏览器中间的URL中显示的是类似下面的东西：http://localhost/Project1/WebClass1.ASP。
怎么仍然调用的是一个ASP文件呢？先不要奇怪，我们来看看这个ASP文件的内容究竟是什么吧：
Server.ScriptTimeout=600
Response.Buffer=True
Response.Expires=0
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Application.Lock
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Set Application("~WC~WebClassManager") =
Server.Create object("WebClassRuntime.WebClassManager")
End If
Application.UnLock
End If
Application("~WC~WebClassManager").ProcessNoStateWebClass "Project1.WebClass1"， _
Server， _
Application， _
Session， _
Request， _
Response
%>
看到了吧，其实这个文件是系统自动生成的用来调用我们的WebClass项目的一个文件，通过这个文件的内容我们就可以很容易的理解了其实WebClass在本质上仍然是一个ActiveX DLL 组件(在我们编译这个WebClass项目的时候，你会发现生成的名字是Project1.DLL)！当然这个文件的内容我们是不可以随便改动的，否则会出现错误，这个文件是由系统自动产生的，无需我们多干涉的！
通过我们的介绍，大家也一定对WebClass有了一个初步的认识和了解了，剩下的事情当然就是需要自己多多通过实践加以练习了，这样才能将WebClass技术运用自如！
（以上所有程序均在VB6.0中文企业版， windows2000 Server中文版，IIS5.0下运行通过）
（作者：苏红超 2001年01月10日 15:50）
说了这么多的有关WebClass理论方面的东西，想必大家也一定想要亲自试一试究竟WebClass是怎么样一回事情了，那我们就先来看一个小的例子，也慢慢消化一下我们上面讲解到的各种理论知识：
启动 vb6集成环境之后，新建一个“IIS应用 程序”的项目。这样缺省的情况下就会创建一个名称是Project1的工程以及一个叫做WebClass1的缺省的WebClass 对象。WebClass的开发环境有两部分组成：WebClass设计器和代码窗口。其中的WebClass设计器的地位就像往常的VB表单设计器一样，通过他可以添加新的HTML模版WebItems，添加Custom Webitems对象，以及在WebItems中添加各种事件处理过程和启动停止本地的Web Server。当这个项目运行的时候，会初始化WebClass对象，会触发WebClass_Start事件，也就是说这个事件类似于VB中的Sub Main 函数，他会首先被触发。
我们来先写一段最简单的WebClass程序代码：
Option Explicit
Option Compare Text
Private Sub WebClass_Start()
Response.write ""
Response.write ""
Response.write "
Response.write "
Response.write ""
Response.write ""
End sub
好了，我们需要保存这个工程，运行的时候VB会提示我们建立一个新的WEB，是为了可以在VB中运行我们的WebClass工程的时候 调试的方便。之后，我们运行这个项目，VB就会自动 调用Inte .NET Explorer 浏览器浏览我们的程序，并且你可以随时在我们的WebClass程序中设置端点来跟踪各种变量的值，这在普通的 ASP程序中是无法想象的事情，但是使用WebClass却是如此的方便和自由！
WebClass使用WebItem向浏览器提供内容和事件。每一个WebClass都会包含多个WebItems。而WebItem则有两种类型：HTML Template WebItem和Custom WebItem。通过HTML Template WebItem可以将HTML 文件和WebItem联系在一起，所以在添加WebItem之前必须创建我们需要的HTML文件。值得注意的是：当你在添加HTML模版的时候，如果模版文件和我们的工程文件不在同一个目录中，则系统会将模版的一个副本拷贝到工程所在的目录中；如果模版文件和工程文件在同一个目录中，则系统会重新命名这个模版副本的名字，而我们在需要改动模版的时候，需要改动的是这个模版的副本，而不是它本身！
WebItem使用方法WriteTemplate()来对响应输出模版内容。下面我们再来看一个结合了HTML Template WebItem的程序：
在我们刚才的WebClass1工程中添加一个HTML Template WebItem，系统会提示我们选择一个HTML文件，我们选择的HTML文件是test.htm，内容很简单：
这是模版test中的内容：Hello，world!
添加之后，我们会在WebClass设计器中的“HTML Template WebItem”下面找到名为“Template1”的一个模版，为了方便，我们更改他的名字为“test”。
这样我们的代码变动如下：
Option Explicit
Option Compare Text
'模版test的Response事件
Private Sub test_Respond()
Response.Write "
模版test中的response事件响应！
"
'调用WriteTemplate()方法来处理我们的名叫test的HTML模版文件
test.WriteTemplate
End Sub
Private Sub WebClass_Start()
'写一个对 用户的回答
Response.write ""
Response.write "
"
Response.write "
Response.write "
Response.write ""
Response.write ""
'将控制权交给名为test的HTML模版，会首先触发他的Response事件
Set NextItem = test
End Sub
我们运行这一段WebClass程序，则会在浏览器中显示如下(图1)：
接下来我们看看Custom WebItem，这种类型的WebItem没有相关的HTML文件，顾名思义，他是用户自定义的WebItem，他是不可以使用WriteTemplate()方法的。同样可以通过设置NextItem属性来触发Custome WebItem。我们就不再重复了。
探讨完了两种类型的WebItem，我们来看一个综合利用这两种类型WebItem的例子：
Option Explicit
Option Compare Text
Private Sub custome_Respond()
Response.Write "
用户自定义WebItem（Custome）的response事件响应！
"
Response.Write "
接下来处理用户的选择！
"'处理用户做出的选择
select Case Trim(Request.Form("userchoice"))
Case "普通工人"
Set NextItem = workerpage
Case "销售人员"
Set NextItem = salespage
Case "其它"
Set NextItem = otherpage
End Select
End Sub
Private Sub otherpage_Respond()
Response.Write "
模版otherpage的response事件响应！
"
otherpage.WriteTemplate
End Sub
Private Sub salespage_Respond()
Response.Write "
模版salespage的response事件响应！
"
salespage.WriteTemplate
End Sub
Private Sub workerpage_Respond()
Response.Write "
模版workerpage的response事件响应！
"
workerpage.WriteTemplate
End Sub
Private Sub WebClass_Start()
'Webclass启动的时候生成我们需要的一个表单
With Response
.Write "
"
.Write "
"
'设置表单提交到我们的Custome Webitem（custome）中，会首先触发custome的response事件
.Write "RM name=test1 method=post action=" & URLFor(custome) & ">"
.Write "选择你喜欢的职业："
.Write "普通工人"
.Write "销售人员"
.Write "其它"
.Write ""
.Write ""
End With
End Sub
其中的三个HTML模版内容如下：
HTML模版otherpage：
你选择的是其他职业！
HTML模版salespage：
你选择的是销售人员职业!
HTML模版worker：
你选择的是普通工人！
运行这个项目之后首先会出现如下叶面，让用户选择喜欢的职业：
如果用户做出了自己的选择，并提交了这个表单，则显示如下图：
我们知道在ASP中可以动态的控制各种HTML元素，从而实现统一个ASP文件可以实现不同的HTML叶面，那么在WebClass中我们如何实现呢？这就需要在WebClass中很重要的标签处理事件了，也就是在HTML Template WebItem中的ProcessTag事件，也就是说在你调用一个HTML Template WebItem中的WriteTemplate()方法的时候就会触发他的ProcessTag事件，从而也就开始了对HTML模版的标签处理程序。这个事件有如下参数：
Private Sub TemplateItem_ProcessTag(ByVal TagName As String， TagContents As String， SendTags As Boolean)
End Sub
其中的参数TagName是在HTML模版中你自行定义的标签名称，在默认的情况下，这个标签的前缀是WC@(当然你也可以自行改为自己想要的名字)，在HTML中的代码一般如下：mytest。
而参数TagContents则是标签所包围的内容了，你可以通过对这个参数的赋值来实现标签间内容的动态改变。
参数SendTags表示是否将标签本身也传送到浏览器，默认的情况下是false，也就是不将标签本身传送到浏览器。
我们现在来做一个使用ProcessTag事件的具体例子，还是沿用我们上面的例子，不过我们加上，当用户选择的是其他的职业的时候，在otherpage这个HTML模版中我们定义一个标签：WC@other。
HTML模版otherpage的代码修改如下：
你选择的是其他职业！
test
这样当我们选择了“其他”的选项之后，从我们上面运行过的代码可以看出在otherpage_Respond()事件中，我们调用了WriteTemplate方法，上面的例子中由于在HTML模版otherpage中没有任何标签，所以不会触发他的ProcessTag事件，但是现在的例子则会触发相应的ProcessTag事件，我们在相应的ProcessTag事件中的代码如下：
Private Sub otherpage_ProcessTag(ByVal TagName As String， TagContents As String， SendTags As Boolean)
'如果是标签WC@other，则我们进行相应的动态替换
If TagName = "WC@other" Then
TagContents = "标签里面的内容已经被我们动态替换啦！"
End If
End Sub
运行我们的这个例子，你就会发现位于标签和之间的内容"test"的确被我们动态的替换掉了！
通过上面的讲解和实际例子的联系，相信大家对于WebClass的编程思想和思路有了一定的认识和了解，当然我们这篇文章只是引导大家进入WebClass世界，真正的WebClass编程仍然需要大家的不断实践才可以掌握，但是仅仅通过我们的这些简单介绍，大家也一定应当可以了解到WebClass相对于纯ASP来讲是一个很大的飞跃，他使得我们可以向往常的编写普通应用程序那样来编写各种WEB程序，给我们带来了极大的方便！我们在WebClass的世界中可以使用所有VB程序可以使用的东西，包括各种 ActiveX DLL对象等等，可以享受到VB带来的所有优点！
在文章的最后，我们来看一下WebClass实现的一些“秘密”，仍然是用上面的我们的例子，我们的工程保存为Project1，WebClass被命名为WebClass1，则当你运行这个项目的时候，你会发现在浏览器中间的URL中显示的是类似下面的东西：http://localhost/Project1/WebClass1.ASP。
怎么仍然调用的是一个ASP文件呢？先不要奇怪，我们来看看这个ASP文件的内容究竟是什么吧：
Server.ScriptTimeout=600
Response.Buffer=True
Response.Expires=0
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Application.Lock
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Set Application("~WC~WebClassManager") =
Server.Create object("WebClassRuntime.WebClassManager")
End If
Application.UnLock
End If
Application("~WC~WebClassManager").ProcessNoStateWebClass "Project1.WebClass1"， _
Server， _
Application， _
Session， _
Request， _
Response
%>
看到了吧，其实这个文件是系统自动生成的用来调用我们的WebClass项目的一个文件，通过这个文件的内容我们就可以很容易的理解了其实WebClass在本质上仍然是一个ActiveX DLL 组件(在我们编译这个WebClass项目的时候，你会发现生成的名字是Project1.DLL)！当然这个文件的内容我们是不可以随便改动的，否则会出现错误，这个文件是由系统自动产生的，无需我们多干涉的！
通过我们的介绍，大家也一定对WebClass有了一个初步的认识和了解了，剩下的事情当然就是需要自己多多通过实践加以练习了，这样才能将WebClass技术运用自如！
（以上所有程序均在VB6.0中文企业版， windows2000 Server中文版，IIS5.0下运行通过）
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10790690/viewspace-953747/，如需转载，请注明出处，否则将追究法律责任。
转载于:http://blog.itpub.net/10790690/viewspace-953747/
扫一扫
144
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
