webForumDet fria alternativet
Logga in / Bli medlem

Randomize.

ASP

0 svar · 259 visningar · startad av Melitta

Medlem sedan sep. 2003448 inlägg
Trådstart#1

Har suttit och donat lite med ett random sctipt här och min fråga är, skulle detta script kunna generera 20k+ slumpningar där ingen dublett uppstår?
Finns det nått smart sätt att kolla detta på?
Den koll jag har nu litar jag inte riktigt på eftersom den alltid tar rad 256 som dublett oavsett om den är det eller inte.

Detta är bara av ren nyfikenhet och ska väll igentligen inte användas till nått men det skulle vara skoj att veta.

<%
function strRandom(antal)
	random = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,Y,V,W,Z," & _
				 "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,y,v,w,z," & _
				 "1,2,3,4,5,6,7,8,9,0," & _
				 "_,-"
	
	arrRandomThis = split(random,",")
	Randomize Timer
	for i = 1 to int(antal)
		Randomize Timer
		intStart = int(Rnd*((ubound(arrRandomThis)-1)/10)*10) + 1
		makeStr = makeStr & arrRandomThis(intStart)
	next
	strNow = replace(now(),":","")
	strNow = replace(strNow,"-","")
	strNow = replace(strNow," ","")
	strRandom = left(strNow,12) & "_" & makeStr
end function

for iCheck = 0 to 20000
	getRandom = strRandom(5)
	if iCheck = 0 then 
		check = getRandom
		else
		if instr(getRandom,check) > 0 then check = check & " " & getRandom : response.write "<strong>"& iCheck &" - "& getRandom & "</strong><br />"
	end if
next
%>
306 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)