分享
 
 
 

WebClass实现动态WEB编程之实践篇

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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 "<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 "销售人员"

Set NextItem = salespage

Case "其它"

Set NextItem = otherpage

End Select

End Sub

Private Sub otherpage_Respond()

Response.Write "<h1><br>模版otherpage的response事件响应!</h1>"

otherpage.WriteTemplate

End Sub

Private Sub salespage_Respond()

Response.Write "<h1><br>模版salespage的response事件响应!</h1>"

salespage.WriteTemplate

End Sub

Private Sub workerpage_Respond()

Response.Write "<h1><br>模版workerpage的response事件响应!</h1>"

workerpage.WriteTemplate

End Sub

Private Sub WebClass_Start()

'Webclass启动的时候生成我们需要的一个表单

With Response

.Write "<html><body><h1>"

.Write "<center>处理表单</center><br>"

'设置表单提交到我们的Custome Webitem(custome)中,会首先触发custome的response事件

.Write "<form name=test1 method=post action=" & URLFor(custome) & ">"

.Write "选择你喜欢的职业:<select name=userchoice>"

.Write "<option value=普通工人>普通工人"

.Write "<option value=销售人员>销售人员"

.Write "<option value=其它>其它"

.Write "</select><input type=submit value=确定></form>"

.Write "</h1></body></html>"

End With

End Sub

其中的三个HTML模版内容如下:

HTML模版otherpage:

<html>

<body>

<h1>你选择的是其他职业!</h1>

</body>

</html>

HTML模版salespage:

<html>

<body background="">

<h1>

<br>你选择的是销售人员职业!</h1>

</body>

</html>

HTML模版worker:

<html>

<body>

<h1>你选择的是普通工人!</h1>

</body>

</html>

运行这个项目之后首先会出现如下叶面,让用户选择喜欢的职业:

如果用户做出了自己的选择,并提交了这个表单,则显示如下图:

我们知道在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中的代码一般如下:<WC@test>mytest</WC@test>。

而参数TagContents则是标签所包围的内容了,你可以通过对这个参数的赋值来实现标签间内容的动态改变。

参数SendTags表示是否将标签本身也传送到浏览器,默认的情况下是false,也就是不将标签本身传送到浏览器。

我们现在来做一个使用ProcessTag事件的具体例子,还是沿用我们上面的例子,不过我们加上,当用户选择的是其他的职业的时候,在otherpage这个HTML模版中我们定义一个标签:WC@other。

HTML模版otherpage的代码修改如下:

<html>

<body>

<h1>你选择的是其他职业!</h1>

<WC@other>test</WC@other>

</body>

</html>

这样当我们选择了“其他”的选项之后,从我们上面运行过的代码可以看出在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

运行我们的这个例子,你就会发现位于标签<WC@other>和</WC@other>之间的内容"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.CreateObject("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下运行通过)

<全文完>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有