[absconder]

bende katılayım bari

bu şekilde class yazıp onlardan kütüphane oluşturmak ve bu kütüphaneyi kullanmak daha koılayıma gidiyor benim, o yüzden bu formatta yazıyorum.

class içerisinde iki fonksiyon mevcut, yazılan class'ın asıl amacı parametre ile gönderilen texti katıştırmak (mix etmek) ama rastgele say üreticisi olarakta kullanılabilir.

<%
Dim word
word = "ABCDEFGHIJKLMNOPQRSTUVXYZabcdefghijklmnopqrstuvxyz1234567890"

set m = new mixer

' parametre olarak gönderilen kelimeyi katıştırır. kullanım: m.strMix(kelime)
response.write m.strMix(word) 

response.write "<br>"

' rastgele sayı üretir. kullanım : m.rndInt(ustSınır)
response.write m.rndInt(100)
%>

<%
Class mixer
	Public Property Get strMix(arg)
		dim myStr, char, retVal
		retVal = ""
		myStr = arg
		while (myStr <>"")
			char = mid(myStr,rndInt(len(myStr)),1)
			myStr = replace(myStr,char,"")
			retVal = retVal + char
		wend
		strMix = retVal
	End Property
	
	Public Function rndInt(diameter)
		randomize timer
		rndInt= int(rnd * diameter) + 1
	End Function
End Class
%>