用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
投稿猜你喜欢
本文实例讲述了Python udp网络程序实现发送、接收数据功能。分享给大家供大家参考，具体如下：1. udp网络程序-发送数据创建一个基于- 引言随着圣诞的到来，大家纷纷@官方微信给自己的头像加上一顶圣诞帽。当然这种事情用很多P图软件都可以做到。但是作为一个学习图像处理的技术人，还
- PyTorch创建自己的数据集图片文件在同一的文件夹下思路是继承 torch.utils.data.Dataset，并重点重写其 __get
- 在用户登录windows操作系统的时候，如果触发到了登录表单的密码录入框上，并且此时按下了“大写锁定键(Caps Lock)”，那么界面上会
- Keras确实是一大神器，代码可以写得非常简洁，但是最近在写LSTM和DeepFM的时候，遇到了一个问题：样本的长度不一样。对不定长序列的一
- PyTorch: https://github.com/shanglianlm0525/PyTorch-Networksimport tor
- 前言最近工作中需要开发前端操作远程虚拟机的功能,简称WebShell. 基于当前的技术栈为react+django,调研了一会发现大部分的后
- 随着手机用户的不断增加，WAP站点如雨后春笋迅速的滋长开来，手机邮箱也不断的出现在人的眼前，笔者也曾经开发了一套手机邮箱的系统，但由于时间仓
- 微软 Office 提供基于 COM 接口的编程。Python 通过 pywin32 可以方便地调用各组件。如果下载和安装 pywin32
- 介绍对于绘制某些类型的数据来说，瀑布图是一种十分有用的工具。不足为奇的是，我们可以使用Pandas和matplotlib创建一个可重复的瀑布
- 什么是拼音转换在我们学习语言之前，我们一般会学习拼音来认识汉字，并学会如何读汉字。所以，拼音在对于我们语言的重要性不言而喻。而拼音转换指的是
- 前言本篇来学习下在allure中如何添加环境信息properties文件在allure的report根目录下添加一个 environment
- 阅读Chapter 1 清单Chapter 2 标题总览:不但所有网页都需要有标题,而且如果标记正确的话,他们能为网页设计和易用性
- 今天在写BLOG的Trackback时，需要用到当前页的URL地址，并且包括?后的所有参数。在网上看到以下的这段ASP代码，它的
- 如何让我的网页自动适应客户端的屏幕分辨率？然后用下列办法进行自动推送：<％ @language="vbscript
- Python语言简洁明了，可以用较少的代码实现同样的功能。这其中Python的四个内置数据类型功不可没，他们即是list, tuple, d
- 1. 使用os.system("cmd")特点是执行的时候程序会打出cmd在Linux上执行的信息。import oso
- 最近有个需求，一个列表上下移动要有简单过渡效果，在网上找了找没找到，可能是我搜的关键词不对？试了试 Vue 的 transition-gro
- 一.怎样删除一个表中某个字段重复的列呀,举个例子 表[table1] id name 1 &nb
- 图形由json格式加载，可以灵活配置。下一步是完善用户的操作，做这个感觉还是蛮有意思的。呵呵。截图：部分源码：<script type
