ASP产生不重复的随机数（模拟洗牌）
功能作用：ASP产生不重复的随机数（模拟游戏洗牌）
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum = getRndNumber(Fun_I,unit)
Fun_X = myArray(RndNum)
myArray(RndNum)=myArray(Fun_I)
myArray(Fun_I)=Fun_X
Next
GetRnd = myArray
end function
function getRndNumber(lowerbound,upperbound)
Randomize
getRndNumber=Int((upperbound-lowerbound+1)*Rnd+lowerbound)
end function
%>
相关文档：
创建一个简单的ASP页面
在服务器端编写的文件 index.asp ：
以下为引用内容：
<%@LANGUAGE="JSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"&g ......
常用的脚本语言有 Javascript 和 VBscript 。
使用哪种语言需先设定。如上节代码中的<%@ LANGUAGE="JSCRIPT" ... %>。
如果没有指定，系统就会使用 IIS 程序指定的脚本语言。
VBscript 用法
VBscript 一般放在 <head> 与 </head> 内的 <% 和 %> 之间。
代 ......
变量申明，命名规则与运算符
1，用三种语句来声明变量：dim ，public 与 private ，比较常用的还是 dim 。
如：<% dim a %> ；<% dim a , b , c %>
2，命名规则：
<1> 变量的第一个字符必须是字母，数字和符号都不行。
<2> 不能嵌入句点。
<3> 长度不能超过255个字符。
<4> ......
在网上看到很多这方面的代码，但是有些是不能用，有些是垃圾代码太多，我简单的修改了一下现在与大家共享一下。
<%
Option Explicit
dim databasename '定义数据库名称
databasename="database.mdb" '数据库名称
dim databasepath '定义数据库存放路径
......
