发信人: zrsoft()
整理人: winsy(2003-03-09 13:21:38), 站内信件
|
用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]
|
|