今天有人在群里说随机生成数字，并生成超链接的形式！
于是就有了下面的程序：
<%
for i=1 to 6
Randomize
j=Int((6 - 1 + 1) * Rnd + 1)
str=”<a href=’”&j&”‘>”&j
str=str&”</a><br>”
response.write str
next
%>

但是生成之后重复的较多，不要让重复的！于是我在网上找寻了一段，参考了一下改写为如下：
<%
randomize
s=”"
a=cint((6-1+1)*rnd+1)
s=s&a
for i=2 to 6
flag=0
arys=split(s,”,”)
b=UBound(arys)
do while flag=0
a=cint((6-1+1)*rnd+1)
flag=1
for j=0 to b
if a=cint(arys(j)) then
flag=0
exit for
end if
next
loop
s=s&”,”&a
next

response.write s&”<br>”
c=len(s)
s=replace(s,”,” ,”")
dim m,q
for j=1 to c
q=mid(s,j,1)
if q=”" then exit for
m=”<a href=’”&q&”‘ id=’”&j&”‘>”&q
m=m&”</a><br>”
response.write m
next
%>
但这个程序仍然有问题，就是无法直接输出，只能是循环输出，唉，现在后悔当初学vb的时候不操心了，弄个简单的asp程序还这么费劲！

随机生成不重复的数字

• No Related Post