WebClass实现动态WEB编程之实践篇
作者：Siny 文章来源：中国教师站cn-teacher 点击数： 更新时间：2007-4-22 16:20:44
（作者：苏红超 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 "<html>"
Response.write "<body>"
Response.write "<center>这是我们的第一个WebClass程序！</center>"
Response.write "<center>当前的系统事件是：" & now() & "</center>"
Response.write "</body>"
Response.write "</html>"
End sub
好了，我们需要保存这个工程，运行的时候VB会提示我们建立一个新的WEB，是为了可以在VB中运行我们的WebClass工程的时候调试的方便。之后，我们运行这个项目，VB就会自动调用Internet 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，内容很简单：
<html>
<body>
<br>这是模版test中的内容：Hello，world!
</body>
</html>
添加之后，我们会在WebClass设计器中的“HTML Template WebItem”下面找到名为“Template1”的一个模版，为了方便，我们更改他的名字为“test”。
这样我们的代码变动如下：
Option Explicit
Option Compare Text
'模版test的Response事件
Private Sub test_Respond()
Response.Write "<h1><br>模版test中的response事件响应！</h1>"
'调用WriteTemplate()方法来处理我们的名叫test的HTML模版文件
test.WriteTemplate
End Sub
Private Sub WebClass_Start()
'写一个对用户的回答
Response.write "<html>"
Response.write "<body><h1>"
Response.write "<center>这是我们的第一个WebClass程序！</center>"
Response.write "<center>当前的系统事件是：" & now() & "</center>"
Response.write "</h1></body>"
Response.write "</html>"
'将控制权交给名为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 "<h1><br>用户自定义WebItem（Custome）的response事件响应！</h1>"
Response.Write "<br><h1>接下来处理用户的选择！</h1>"
'处理用户做出的选择
Select Case Trim(Request.Form("userchoice"))
Case "普通工人"
Set NextItem = workerpage
Case
相关专题：
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
