dim a(1 to 7) as string
a(1)="duo"
a(2)="re"
a(3)="me"
a(4)="fa"
a(5)="suo"
a(6)="la"
a(7)="xi"
for i=1 to 100
for j=1 to 25
Randomize
response.Write(a((rnd*7)+1) & "()")
next
response.Write("")
next
实在看不出这个代码有什么问题
用application最方便a.asp,代码如下:<%num=32'为方便测试,当所有签都被抽掉后,删除所有抽签记录count=numFor i=1 To num If isempty(Application(CStr(i))) Thencount=count-1 End ifNextIf count=12 Then For i=1 To numApplication.LockApplication(CStr(i))=emptyApplication.Unlock NextEnd If'初始化签号For i=1 To num If ise
dim a(8) a(1)="duo"a(2)="re"a(3)="me"a(4)="fa"a(5)="suo"a(6)="la"a(7)="xi"for i=1 to 100for j=1 to 25Randomizeresponse.Write(a((rnd*7)+1) & "()")nextres