test.asp

来自「网络教学平台由教师教学系统、学生学习系统和教学管理系统三大模块组成」· ASP 代码 · 共 20 行

<%
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")
%>