test.asp

一个较完备的交互式网络教学系统 开发语言为 asp

<%
Function MyRnd(X,Y)'Please Write Bug To [e-mail]
	Dim K,P,TP,I,T
	For K=0 To 100
		Randomize
		P=Fix(Rnd*X)+1
		If Not Instr(TP,P)>0 Then
			TP=TP & P & ","
			I=I+1
		end If
		If I>=Y Then Exit For
	Next
	T=Split(TP,",")
	MyRnd=join(T,",")
End Function

'Response.Write MyRnd(10,3)
Response.Write Ucase("aBad,，d,d")
%>