ASP网站制作之ASP中一个用VBScript写的随机数类
缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全vbscript|随机<%**************************************************************************
CLASS:cRandom
Callsrandomizetoseedtherandomnumbergenerator.
Providesfunctionsforreturningrangedrandomintegersorarraysof
rangedrandomintegers.
**************************************************************************
classcRandom
Callingrandomizetoseedtherandomnumbergeneratoratthetimethe
classiscreatedseemedlikeareasonablethingtodo.
privatesubClass_Initialize()
ChecktheVBScriptdocumentationforthespecificsrelating
totheRandomizefunction
Randomize
endsub
Terminatedoesntneedtodoanythingforthisclass
privatesubClass_Terminate()
endsub
**********************************************************************
FUNCTION:RangedRandom
PARAMETER:lowerBound,thelowestallowablenumbertoreturn
PARAMETER:upperBound,thehighestallowablenumbertoreturn
RETURNS:ArandomintegerbetweenlowerBoundandUpperBound,
inclusive
**********************************************************************
publicfunctionRangedRandom(lowerBound,upperBound)
RangedRandom=CInt((upperBound-lowerBound)*Rnd+lowerBound)
endfunction
**********************************************************************
FUNCTION:RangedRandomArray
PARAMETER:lowerBound,thelowestallowablenumbertoreturn
PARAMETER:upperBound,thehighestallowablenumbertoreturn
PARAMETER:arraySize,zerobasednumberspecifyingthesizeofthearray
PARAMETER:duplicates,trueorfalsetoindicatewhetherduplicate
randomvaluesareallowedinthearray
RETURNS:AsingledimensionarraysizedtomatchthearraySize
parameter,containingrandomintegersbetweenlowerBoundand
upperBound,inclusive
**********************************************************************
publicfunctionRangedRandomArray(lowerBound,upperBound,arraySize,duplicates)
dimtempArray()
dimfilledElements,tempValue,badValue,i
resizethetempArraytoholdthenumberofelementspassedinthe
arraySizeparameter
redimtempArray(arraySize)
Thisisaloopcounter,setitto0
filledElements=0
loopuntilfilledElementsisequaltothearraySize+1
dountilfilledElements=arraySize+1
CalltheRangedRandomfunctionwiththelowerBoundandupperBoundparameters
tempValue=RangedRandom(lowerBound,upperBound)
Handlethecasewherewedontwantduplicatevalues
ifduplicates=falsethen
badValue=false
fori=0toUBound(tempArray)
checkifthenewrandomvaluealreadyexistsinthearray
ifitdoessetthebadValueflagtotrueandbreakoutoftheloop
iftempValue=tempArray(i)then
badValue=true
exitfor
endif
next
ifbadValue=falsethen
tempArray(filledElements)=tempValue
filledElements=filledElements+1
endif
else
Handlethecasewhereduplicatevaluesinthearrayareacceptable
tempArray(filledElements)=tempValue
filledElements=filledElements+1
endif
loop
returnthearray
RangedRandomArray=tempArray
endfunction
endclass
%>
<%
Allthecodethatfollowsisexamplecodeshowingtheuseofthe
cRandomclass.
dimobjRandom
dimflip
dimrandomArray
dimrowsToTest
dimi,j
createaninstanceofourclass
setobjRandom=newcRandom
setthenumberofiterationsthatwewanttotest
rowsToTest=10
"toggle"todeterminewhetherornotwesetthebgcolorofthetablerow
flip=true
Startthetable
Response.Write"<tableborder=0cellpadding=1cellspacing=1>"
forj=0torowsToTest
Wellalternatethebgcolorofthetablerowsbasedonthe
valueoftheflipvariable
ifflipthen
Response.Write"<trbgcolor=LightGrey>"
else
Response.Write"<tr>"
endif
CalltheRangedRandomArrayfunction</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 掌握asp的特性而且一定要知道为什么。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。
页:
[1]