用VB编写ASP组件

用VB编写ASP组件

作者：网上收集点击：读取中... 次

（摘自峥嵘软件室）
这是我从书上找来的一段文章，短小精焊，但是颇具启发意义。
1．用VB建立一个工程：Activex DLL；
2．将工程名改为MyFirst，类名改为Rnd，其它不动；
3．在该类中输入下个函数的代码如下：

引用代码：Public Function GO() As Variant
Randomize
Number = Int((1000 * Rnd) + 1)
GO = Number
End Function

4．对以上工程进行编译；
5．编写一个测试用ASP文件，内容如下：

引用代码：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
set myobj=server.createobject("MyFirst.Rnd")
key=myobj.go()
response.write "现在是第" & key & "号上场！"
%>
</BODY>
</HTML>

以上例子可以产生一个随机数。

收藏此文章　　　　　打印更新　　　　　编辑此文章　　　　『关闭窗口』


	家园个人文集		http://www.5x54.com