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
%>
相关文档：
变量申明，命名规则与运算符
1，用三种语句来声明变量：dim ，public 与 private ，比较常用的还是 dim 。
如：<% dim a %> ；<% dim a , b , c %>
2，命名规则：
<1> 变量的第一个字符必须是字母，数字和符号都不行。
<2> 不能嵌入句点。
<3> 长度不能超过255个字符。
<4> ......
流程控制语句
以下用实例来演示流程控制语句中的循环语句与条件语句：
条件语句：if ...else
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns ......
调试程序和做程序的时候，好多重复的代码一直输入很麻烦，也很没有效率，封装一个自己的Asp包包，挺有有的
下载个精简版的VB6.0，新建 ActiveX dll，以下是封装的代码，重要部分都有注释，不懂可以跟帖
Option Explicit
Public Resp As Response, Requ As Request, Appl As Application, Serv As Server, Sess As Sessio ......
在网上看到很多这方面的代码，但是有些是不能用，有些是垃圾代码太多，我简单的修改了一下现在与大家共享一下。
<%
Option Explicit
dim databasename '定义数据库名称
databasename="database.mdb" '数据库名称
dim databasepath '定义数据库存放路径
......
