用VB实现WEB交互式应用
)
''输出查询结果
With Response
.Write "<html>"
.Write "<body>"
.Write "<title>Search Results</title>"
.Write "<h1><font face=""Arial"">查询结果如下:</font></h1>"
If mrd.BOF And mrd.EOF Then ''没有符合条件的值
.Write "<center>对不起,没有相应的部门!</center>"
Else ''有符合条件的值，以表格形式输出
.Write "<center>"
.Write "<table border=""5"" wide=""50%"">"
.Write "<tr><td>部 门</td><td>电 话</td>"
Do While Not mrd.EOF
.Write "<tr><td>"
.Write mrd("depart")
.Write "</td><td>"
.Write mrd("phone_no")
.Write "</td>
"
mrd.MoveNext
Loop
End If
.Write "</table>"
.Write "<h1><font face=""Arial"">谢谢使用</font></h1>"
.Write "</body>"
.Write "</html>"
End With
''释放变量,关闭数据库连接
Set mrd=Nothing
Dbconn.close
End Sub
本例程使用了ACCESS数据库表Phone，DSN名为Telphone,表结构及部分示例数据如下。
Phone表结构:
字段名 类型 长度 说明
PhoneID 自动编号 长整形 主键
Depart 文本 20
Depart_p 文本 10
Phone_no 文本 7
示例数据:
1 网管中心 Wgzx 2419039
2 网管办 Wgb 2419187
3 计算机系办公室 Jsjxb 2419237
4 计算机系主任办公室 Jsjxb 2419236
5 计算机系实验室 Jsjxsys 2419234
如用户输入"网管"或"wg"后，程序响应其请求。
三、部署IIS应用程序
一个IIS应用程序必须作为一个进程内部件或一个DLL文件被创建。象编译其它VB工程一样，选择生成DLL文件。IIS应用程序编译时产生以下文件：一个VB用于运行工程的DLL文件;一个在浏览器中宿主应用程序并产生它的运行时部件的asp文件;一个在编译和连接工程时由连接器产生的EXP文件;一个包含工程的窗口布局信息的VBW文件。然后使用VB的打包和展开向导来部署IIS应用程序。必须部署的应用程序包括DLL文件，与工程相关的HTML页面及被HTML页面引用的文件。
四、小结
用VB构造服务器端的IIS应用程序比其它的WEB应用开发具有减少每个用户部署费用，可重复使用部件，代码和HTML分离，高效等优点;而且由于对VB环境的熟悉，可以充分利用传统的编程方法。
参考资料：Microsoft MSDN 之Visual Basic文档
(本示例程序在Windows 98+PWS下运行成功)
''输出查询结果
With Response
.Write "<html>"
.Write "<body>"
.Write "<title>Search Results</title>"
.Write "<h1><font face=""Arial"">查询结果如下:</font></h1>"
If mrd.BOF And mrd.EOF Then ''没有符合条件的值
.Write "<center>对不起,没有相应的部门!</center>"
Else ''有符合条件的值，以表格形式输出
.Write "<center>"
.Write "<table border=""5"" wide=""50%"">"
.Write "<tr><td>部 门</td><td>电 话</td>"
Do While Not mrd.EOF
.Write "<tr><td>"
.Write mrd("depart")
.Write "</td><td>"
.Write mrd("phone_no")
.Write "</td>
"
mrd.MoveNext
Loop
End If
.Write "</table>"
.Write "<h1><font face=""Arial"">谢谢使用</font></h1>"
.Write "</body>"
.Write "</html>"
End With
''释放变量,关闭数据库连接
Set mrd=Nothing
Dbconn.close
End Sub
本例程使用了ACCESS数据库表Phone，DSN名为Telphone,表结构及部分示例数据如下。
Phone表结构:
字段名 类型 长度 说明
PhoneID 自动编号 长整形 主键
Depart 文本 20
Depart_p 文本 10
Phone_no 文本 7
示例数据:
1 网管中心 Wgzx 2419039
2 网管办 Wgb 2419187
3 计算机系办公室 Jsjxb 2419237
4 计算机系主任办公室 Jsjxb 2419236
5 计算机系实验室 Jsjxsys 2419234
如用户输入"网管"或"wg"后，程序响应其请求。
三、部署IIS应用程序
一个IIS应用程序必须作为一个进程内部件或一个DLL文件被创建。象编译其它VB工程一样，选择生成DLL文件。IIS应用程序编译时产生以下文件：一个VB用于运行工程的DLL文件;一个在浏览器中宿主应用程序并产生它的运行时部件的asp文件;一个在编译和连接工程时由连接器产生的EXP文件;一个包含工程的窗口布局信息的VBW文件。然后使用VB的打包和展开向导来部署IIS应用程序。必须部署的应用程序包括DLL文件，与工程相关的HTML页面及被HTML页面引用的文件。
四、小结
用VB构造服务器端的IIS应用程序比其它的WEB应用开发具有减少每个用户部署费用，可重复使用部件，代码和HTML分离，高效等优点;而且由于对VB环境的熟悉，可以充分利用传统的编程方法。
参考资料：Microsoft MSDN 之Visual Basic文档
(本示例程序在Windows 98+PWS下运行成功)