never-online 's Tech Blog In CSDN

never online - Everlasting love for angela.

用户操作

[即时聊天] [发私信] [加为好友]

never-onlineID：BlueDestiny

共154328次访问，排名502好友17人，关注者33人
在京城

BlueDestiny的文章

原创 114 篇

翻译 0 篇

转载 8 篇

评论 224 篇

never-online的公告

Web:
www.never-online.net
Email:
BlueDestiny##126.com
QQ:
77091373

最近评论

kwlong2008：来看看朋友，最近过的怎么样？俺的空间是介绍网站制作和网站建设的，有时间也常去一下我的空间谢谢，wow gold

When you play a game of the day, the list of friends in the game whether there are always a few names of black wow power leveling<……

zyhomepage：支持一下

clicksun：如果要制作纯CSS+DIV的圆角方框图形，可以到这里直接在线制作，什么颜色都可以：http://corner.cha.la

C_SuperMe：可以好好学习一下啊！！

文章分类

收藏

相册

JS & DHTML

常去之地

我的网站

友情链接

存档

软件项目交易

订阅我的博客

总得再写写asp的东西的，发一个以前写的遍历文件夹中文的文件夹，或指定类型（文件名）的文件夹收藏

新一篇: 发一个很久以前写CMS时写的一个生成静态页面的类 | 旧一篇: 关于个人网站never-online.net的code（代码）模块已经初步建成。（图）

指定re.pattern即可。

<%
'
'--------------------------------------------------------------
'    Modules : IteratorFile
'    Description : connect database file
'    Version : beta 1.0
'    Script Written by never-online
'    last updated Date: 2005-6-22
'--------------------------------------------------------------
'    Copyright (C) 2005,2006 Miracle Tech. All rights reserved.
'    Web: http://www.never-online.net
'    Email: bluedestiny [at] 126 . com
'--------------------------------------------------------------
'    Depend file(s): const.asp
'
'--------------------------------------------------------------
Function iterateChineseFileName(fileFolder)
Set Folder=fso.getFolder(fileFolder)
Set FileSets=Folder.files
for Each f in FileSets
if re.test(f.name)=true then
response.Write f.path & "<br/>"
response.Flush
counter=counter+1
end if
if response.isclientconnected=false then response.End
next
Set SubFolder=Folder.SubFolders
For Each f in SubFolder
iterateChineseFileName(f.path)
Next
End Function
dim fso, re,fileFolder,counter
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set re=new RegExp
re.global=true
re.ignorecase=false
'--------------------------------------
'  pattern : file name ? or regular
'            expression
'--------------------------------------
re.pattern="^([\u0391-\uFFE5]+)\.(?:doc|txt)$"
fileFolder=server.mappath(".")
counter=1
iterateChineseFileName(fileFolder)
response.Write "total chinese file(s) " & counter & ""
%>

发表于 @ 2006年06月05日 20:31:00|评论(loading...)|编辑

新一篇: 发一个很久以前写CMS时写的一个生成静态页面的类 | 旧一篇: 关于个人网站never-online.net的code（代码）模块已经初步建成。（图）

评论：没有评论。

发表评论

姓名：
主页：
校验码：看不清,换一张

当前用户设置只有注册用户才能发表评论。如果你没有登录，请点击登录