MJJ比我的长短少啊
- <%
- Dim arr,result,i,j,k,fs,kk,key
- set fs=server.createobject("scripting.filesystemobject")
- arr=Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z",",")
- rem -----------------取所有不重复的2个字符组合-------------------------
- k=-1
- For i=0 To UBound(arr)
- For j=0 To UBound(arr)
- If i<>j then
- k=k+1
- If k=0 Then
- ReDim result(k)
- else
- ReDim Preserve result(k)
- End if
- result(k)=arr(i)&arr(j)
- End if
- next
- Next
- fs.createtextfile(server.mappath("1.txt"),true).write Join(result,vbcrlf)
- rem ------------------------------------------
- rem -----------------生成k个不重复的2个字符组合------------------------
- k=100
- kk=0
- Set result=Server.createObject("Scripting.Dictionary")
- Do While kk<k
- i=Int(26*Rnd)
- j=Int(26*Rnd)
- If i<>j And Not result.Exists(arr(i)&arr(j)) then
- kk=kk+1
- result.add arr(i)&arr(j),arr(i)&arr(j)
- End if
- Loop
- If fs.FileExists(server.mappath("2.txt")) then
- fs.deletefile server.mappath("2.txt")
- End If
- fs.createtextfile(server.mappath("2.txt"),true).write ""
- For Each key in result
- fs.OpenTextFile(server.mappath("2.txt"),8,true).writeline key
- Next
- rem---------------------------
- Set fs=nothing
- %>
复制代码 |