random.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 32 行

ASP
32 行
字号 
<%@ LANGUAGE = VBScript %> 

<%  Option Explicit     %>   

<HTML>     

<HEAD>         

<TITLE>用Tools组件生成随机整数</TITLE>     

</HEAD>      

<BODY BGCOLOR="White" topmargin="10" leftmargin="10">           

<!-- Display Header -->          

<font size="4" face="Arial, Helvetica">         

<b>用Tools组件生成随机整数</b></font><br>                

<hr size="1" color="#000000">  

<% Dim Tools  

Dim FoundFile, FileExists, FileDoesNotExist, NotFoundFile 

Dim RandInt, RandPosInt, RandIntBelow  

Set Tools = Server.CreateObject("MSWC.Tools") %>   

<h3>随机整数实例</h3>  

<% ' Random Integer  

RandInt = Tools.Random 

Response.Write "随机整数: " 

Response.Write RandInt 

Response.Write "<BR>"   



RandPosInt = Abs( Tools.Random ) 

Response.Write "随机整数的绝对值: " 

Response.Write RandPosInt 

Response.Write "<BR>"   



RandIntBelow =  Abs( Tools.Random ) Mod 200 

Response.write "小于200的随机整数: " 

Response.write RandIntBelow 

Response.write "<BR>" %>     

</BODY> </HTML>

random.asp - 源码说明

本页面展示了「集合了学习asp的100个实例」中的 random.asp 源码文件，采用 ASP 编程语言编写，共 32 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP实例相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?