文件夹下的名字不是根据数据库生成的，并且多为汉字，后缀为htm，请问怎样才能随机读取5条文件名？文件夹内都是htm文件，求ASP代码

for i=1 to 5
判断记录是否到底，如果到底，返回记录头
读一条记录
随机数，并判断是否读取
如果不读取，i=i-1
next

好像只有数字的才可以吧，或者说我没弄好

字符串就读不出来么

麻烦hams版主看下
<%
Sub AllFiles(dirPath)
On Error Resume Next
if right(dirPath,1)<>"\" then dirPath=dirPath&"\"
Set FSO = CreateObject("scripting.filesystemobject")
Set f = FSO.GetFolder(dirPath)
Set fs = f.files
dim Str,Arr,a,Content,url,ShowContent
For Each fileN in fs
if  RegExpfind(".html",fileN.name) then
Str=fileN.name
 response.write str
 response.write "<br>"
end if
Next
Set FSO = Nothing
End sub
Function RegExpfind(patrn, strng)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
RegExpfind = regEx.Test(strng)
End Function
AllFiles(server.mappath(""))
%>
以上代码可以读出所有html文件，就是不知道该添加什么代码才能做到随机读取5条

[ 本帖最后由 hebss 于 2010-12-8 13:40 编辑 ]

<%
Sub AllFiles(dirPath)
On Error Resume Next
if right(dirPath,1)<>"\" then dirPath=dirPath&"\"
Set FSO = CreateObject("scripting.filesystemobject")
Set f = FSO.GetFolder(dirPath)
Set fs = f.files
dim Str,Arr,a,Content,url,ShowContent
i=0
For Each fileN in fs
i=i+1
if  RegExpfind(".html",fileN.name) then
Str=fileN.name
response.write str
response.write "<br>"
end if
Next
if i>4 then exit for
Set FSO = Nothing
End sub
Function RegExpfind(patrn, strng)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
RegExpfind = regEx.Test(strng)
End Function
AllFiles(server.mappath(""))
%>


[ 本帖最后由 sky222 于 2010-12-8 14:20 编辑 ]

楼上的思路是对的，但还差两个东西
1、没有随机数
2、没有考虑到，如果记录数不足5个怎么处理？就算是记录超过5位，但经过随机数选择之后，就有可能不够。

另外
if i>4 then exit for
放错了地方，应该要放在FOR内

<%
Sub AllFiles(dirPath)
i=0
Randomize
On Error Resume Next
if right(dirPath,1)<>"\" then dirPath=dirPath&"\"
Set FSO = CreateObject("scripting.filesystemobject")
Set f = FSO.GetFolder(dirPath)
Set fs = f.files
dim Str,Arr,a,Content,url,ShowContent
For Each fileN in fs
  if  RegExpfind(".html",fileN.name) then
    Str=fileN.name
    if Rnd>0.6 then
      i=i+1
      response.write str&"<br>"
    end if
  end if
  if i>4 then exit for
Next
Set FSO = Nothing
End sub

Function RegExpfind(patrn, strng)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
RegExpfind = regEx.Test(strng)
End Function
AllFiles(server.mappath(""))
%>
以上代码同样没有解决不足五位的情况，思路是把读文件的指针恢复到开头，具体代码想不起来了，实在不行就做个循环把文件名再读一次，再到够5个。

谢谢hams版主，已经成功了，同时也感谢sky222。