ASP编程：ASP天生天生一个不反复的随即数字
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。反复 写这个文章相对是偶尔的偶尔的时机，前年等一回的除夕节，和妻子上街散步，突然想起买上一张福利彩票，了局屁都没有中上，开春第一天，就写了个展望彩票中奖的程序,这个中的一个很关头的算法就是怎样天生一个不反复的随即数字,人人看完这个程序今后假如中奖，万万不要健忘豆腐了呀：）SubCalCaPiao()
DimstrCaiPiaoNoArr()AsString
DimstrSQLAsString
DimstrCaiPiaoNoAsString
strCaiPiaoNo="01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
DimStrTempArr(7)AsString
DimstrZhongJiangArr(7)AsString
strCaiPiaoNoArr=Split(strCaiPiaoNo,",")
DimintRandAsInteger
DimiAsInteger
DimjAsInteger
i=0
DimfindAsBoolean
DoWhileTrue
find=False
Randomize
intRand=Int((33*Rnd)+1)
Forj=0Toi-1
IfStrTempArr(j)=CStr(intRand)Then
find=True
EndIf
Next
IfNotfindThen
StrTempArr(j)=CStr(intRand)
strZhongJiangArr(i)=CStr(intRand)
Text1(i)=strZhongJiangArr(i)
i=i+1
Ifi=7Then
ExitDo
EndIf
EndIf
Loop
EndSub
呵呵，过几天，我把这个程序弄成组件，放到我的站点上人人一同来玩玩,呵呵！
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的； 不能只是将它停留在纸上谈兵的程度上。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:
页:
[1]