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，网页
网页是符合HTML规范，能通过浏览器看到的文件。
2，静态网页
采用HTML标记语言编写的网页，后缀一般为 html 或 htm，如 index.html。
3，动态网页
采用ASP，JSP，PHP，CGI 等程序动态生成的页面，只有在接到用户访问要求后才生成页面并传输至用户浏览器。文件名后缀为 .asp ，.shtm � ......
常用的脚本语言有 Javascript 和 VBscript 。
使用哪种语言需先设定。如上节代码中的<%@ LANGUAGE="JSCRIPT" ... %>。
如果没有指定，系统就会使用 IIS 程序指定的脚本语言。
VBscript 用法
VBscript 一般放在 <head> 与 </head> 内的 <% 和 %> 之间。
代 ......
FormatDateTime
返回表达式，此表达式已被格式化为日期或时间。
FormatDateTime(Date[, NamedFormat])
参数
Date
必选项。要被格式化的日期表达式。
NamedFormat
可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。
设置
NamedFormat 参数可以有以下值：
常数 值 描述
vbGeneralDate ......
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 ......
在网上看到很多这方面的代码，但是有些是不能用，有些是垃圾代码太多，我简单的修改了一下现在与大家共享一下。
<%
Option Explicit
dim databasename '定义数据库名称
databasename="database.mdb" '数据库名称
dim databasepath '定义数据库存放路径
......
