用VB将ASP代码封装成DLL（3）
作者：csbq 发布时间：2007-09-28 12:46:00
标签：dll,封装,vb
使用article.dll后的index.asp中的代码：
<％Dim AspTransBuilderObject
Set AspTransBuilderObject = Server.CreateObject("article.Class1")
AspTransBuilderObject.AspClassInit
Set AspTransBuilderObject = Nothing％>
使用article.dll前的index.asp中的代码：
<％ Set conn=Server.CreateObject("ADODB.Connection")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Article.mdb")
conn.Open strcon ％>
<％ Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from Article order by ArticleID desc"
rs.Open sql, Conn,1,1 ％>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章管理系统-CSSTUDIO</title>
</head>
<body bgcolor="#FFFFFF" topmargin="0">
<table width="100％" border="0" cellpadding="2"
cellspacing="0">
<tr>
<td width="742" height="20">文章标题</td>
<td width="90">点击</td>
<td width="145">添加日期</td>
</tr>
</table>
<％ While Not Rs.Eof And Rows<Rs.PageSize ％>
<table width="100％" border="0" cellspacing="0"
cellpadding="0">
<tr>
<td width="747" height="20">☆<a href="view.asp?id=<％
= rs("ArticleID") ％>">
<％ =rs("标题") ％></a></td>
<td width="94"><％ = rs("点击") ％></td>
<td width="148"><％ = rs("添加日期") ％></td>
</tr>
</table>
<％ Rs.MoveNext
Wend ％>
</body>
</html>
<％ rs.close
set rs=nothing
conn.close
set conn=nothing ％>
四、结论
因为这些代码是在服务器端运行的，所以客户端不需要安装任何东西。这仅仅是用ActiveX DLL所能实现的功能的小小的例子。你们可以写好自己的更大的组件,而且还可以用VB中的很多控件。让我们用组件来扩展我们的程序的功能吧!也希望多多的看到我们中国人的组件。但愿本文能起到抛砖引玉的作用。
0
投稿猜你喜欢
- 外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子: 如你是文章网站,文章有200
- 1. document.form.item 问题 (1)现有问题：现有代码中存在许多 document.formName.item(&quo
- Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作. 组件：&qu
- dim dr dr="2123123" dr1=Cint(dr) dr2=Clng(dr) 可参考如下函数说明： CIn
- 在查看Mysql对文件的操作中，它在不同的操作系统上对文件的操作，除了使用标准C运行库函数，包括open、close、seek等，在Win3
现在电子商务网站的设计,正面临着一系列的挑战,其中最主要的挑战是:我们尝试建立一种用户体验,来提高用户在线购物的可能性。为了对抗网上激烈的竞- 从开始认识CSS(DW4)那时起,我就知道了CSS的强大,但从未用CSS排版过,因为我曾经尝试过学习,但感觉太难了而且用DW的表格,所见及所
- ASP如何分两段读取数据库？中间插入广告。代码如下：<!--#include file="conn.asp"--&
- 事情开始得很简单。MegaWare公司市场部门想要一个新的网站来发布文档，开发团队觉得使用SQL Server 2000数据库作为文档存储仓
- 如果出现 automation服务器不能创建对象 解决方法：1、如果是Scripting.FileSystemObje
- 尽管人们期望在屏幕上有些改变，但是CSS和HTML对页面中的交互能做的实在太少了，而那些还需要用代码来实现。比如一个链接要么是这个颜色，要么
- 昨天我突发奇想,想用display:inline来实现三列的布局可是搞了半天就是不行。但是理论上是可以的呀（后来才发现是不理解的不深刻，我的
- 曾有位网友遇到这样一个问题：产品名称为“A&T Plastic”，在产品列表中需要做这样的超链接，<a href="
- 以下是服务端代码var HTTPREQUEST_PROXYSETTING_DEFAULT = 0;var&nb
- 下面我们以论坛排行榜举例说明：<％ @ LANGUAGE="VBSCRIPT" ％&
- ASP给图片加水印是需要组件的...常用的有aspjpeg软件和中国人自己开发的wsImage软件，可以上网搜索下载这两个软件，推荐使用咱们
- 用过软件的朋友都知道，进度条是一个优秀软件的重要组成部分。它的存在能够使用户及时掌握程序的运行进度，确认应用程序正常工作。可是ASP中似乎没
- 在ASP编程中，身份认证可以说是常要用到的。但怎么样才能做到认证的安全呢？表单提交页面：sub.htm &
- 1、看机器配置，指三大件：cpu、内存、硬盘2、看mysql配置参数3、查系mysql行状态，可以用mysqlreport工具来查看4、查看
- 嗯，你可以说我很无聊。最近疯狂加班，今天才得以有时间搞一个CSS的像素图来消遣休息下。先看效果：运行代码框<!DOCTYPE html
