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
%>
相关文档：
Javascript 的变量声明规则
1、变量名以英文字母开头；
2、长度不能超过255字节；
3、之间不能有空格；
4、不能包含 Javascript 的运算符；
5、不能使用 Javascript 的保留字；
6、区分大小写。
Javascript 的流程控制语句
与VBSCRIPT 相同， Javascript 的流程控制语句与分为条件语句和循环语句。
实� ......
http://fjtysgzx.hpw-js.com/Photo-151469.aspx) <%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net"%>
<%@ Page Language="C#" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD ......
今天在网上找了好久关于ASP生成静态页的代码 最多的就是 FSO方法，模板方法，但不知道，我把代码拿来之后都不好用，就是提供下载的压缩包里面写好的我运行都是有错误。。
不过黄天不负有心人，我终于找到一个单页生成静态的方法，拿出来给大家分享
<!-- ======================== 生成静态方法 ================ ......
调试程序和做程序的时候，好多重复的代码一直输入很麻烦，也很没有效率，封装一个自己的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 '定义数据库存放路径
......
