发信人: zrsoft()
整理人: qcrsoft(2002-05-24 13:19:04), 站内信件
|
用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://go.163.com/~zrsoft http://zrsoft.8u8.com
[email protected]
欢迎首页连接!
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.40.13]
|
|