从0-27用ASP模拟开奖出23个不重复的号码如何写

<%
Randomize
Dim a(25)
For i=1 To 23
a(i)=-1
Next
For i=1 To 23
b=Int(rnd*27+1)
While Not unique(b)
b=Int(rnd*27+1)
Wend
a(i)=b
response.write a(i)
Next

Function unique(x)
unique=True
For j=1 To 23
If a(j)=b Then
unique=False
Exit Function
End If
Next
End Function
%>

html版，直接新建html，复制进去就行

<script language="vbscript">
Randomize
Dim a(25)
For i=1 To 23
a(i)=-1
Next
For i=1 To 23
b=Int(rnd*27+1)
While Not unique(b)
b=Int(rnd*27+1)
Wend
a(i)=b
document.write a(i)&" "
Next

Function unique(x)
unique=True
For j=1 To 23
If a(j)=b Then
unique=False
Exit Function
End If
Next
End Function

</script>

顺序输出的