asp文件管理问题

给你一个比较全的例子 参考一下

<%

' 设定一个演示目录，：）

CONST DirectorY = "../dd/images"

' 用常数定义排序方式

CONST FILE_NAME = 0 '按照名字排序……依次类推

CONST FILE_EXT = 1

CONST FILE_TYPE = 2

CONST FILE_SIZE = 3

CONST FILE_CREATED = 4

CONST FILE_MODIFIED = 5

CONST FILE_AccessED = 6

'获得 排序命令，默认为按照名字排序

req = Request("sortBy")

If Len(req) <1 Then sortBy = 0 Else sortBy = CInt(req)

req = Request("priorSort")

If Len(req) <1 Then priorSort = -1 Else priorSort = CInt(req)

'设置倒序

If sortBy = priorSort Then

reverse = true

priorSort = -1

Else

reverse = false

priorSort = sortBy

End If

' 接下来开始我们真正的代码了。。。

path = Server.MapPath( DIRECTORY )

Set fso = CreateObject("Scripting.FileSystemObject")

Set theCurrentFolder = fso.GetFolder( path )

Set curFiles = theCurrentFolder.Files

' 给这些文件做一个循环

Dim theFiles( )

ReDim theFiles( 500 ) ' 我随便定的一个大小

currentSlot = -1 ' start before first slot

' 我们将文件的所有相关信息放到数组里面

For Each fileItem in curFiles

fname = fileItem.Name

fext = InStrRev( fname, "." )

If fext <1 Then fext = "" Else fext = Mid(fname,fext+1)

ftype = fileItem.Type

fsize = fileItem.Size

fcreate = fileItem.DateCreated

fmod = fileItem.DateLastModified

faccess = fileItem.DateLastAccessed

currentSlot = currentSlot + 1

If currentSlot >UBound( theFiles ) Then

ReDim Preserve theFiles( currentSlot + 99 )

End If

' 放到数组里

theFiles(currentSlot) = Array(fname,fext,ftype,fsize,fcreate,fmod,faccess)

Next

' 现在都在数组里了，开始下一步

fileCount = currentSlot ' 文件数量

ReDim Preserve theFiles( currentSlot )

' 排序

' (8 表示 string)

If VarType( theFiles( 0 )( sortBy ) ) = 8 Then

If reverse Then kind = 1 Else kind = 2 ' 给字符排序

Else

If reverse Then kind = 3 Else kind = 4 '数字、时间。。。

End If

For i = fileCount TO 0 Step -1

minmax = theFiles( 0 )( sortBy )

minmaxSlot = 0

For j = 1 To i

Select Case kind

Case 1

mark = (strComp( theFiles(j)(sortBy), minmax, vBTextCompare ) <0)

Case 2

mark = (strComp( theFiles(j)(sortBy), minmax, vbTextCompare ) >0)

Case 3

mark = (theFiles( j )( sortBy ) <minmax)

Case 4

mark = (theFiles( j )( sortBy ) >minmax)

End Select

If mark Then

minmax = theFiles( j )( sortBy )

minmaxSlot = j

End If

Next

If minmaxSlot <>i Then

temp = theFiles( minmaxSlot )

theFiles( minmaxSlot ) = theFiles( i )

theFiles( i ) = temp

End If

Next

' 结束

%>

<FORM Name="doSort" Method="Get">

<INPUT Type=Hidden Name=priorSort Value="<% = priorSort %>">

<INPUT Type=Hidden Name=sortBy Value="-1">

</FORM>

<SCRIPT Language="javascript">

function reSort( which )

{

document.doSort.sortBy.value = which

document.doSort.submit( )

}

</SCRIPT>

<CENTER>

<FONT Size="+2">

显示<% = (fileCount+1) %>该目录下的文件<% = path %>

</FONT>

<P>

单击排序，再点一次反向排序

<P>

<TABLE Border=1 CellPadding=3>

<TR>

<TH><A HREF="javascript:reSort(0)">文件名</A></TH>

<TH><A HREF="javascript:reSort(1)">扩展名</A></TH>

<TH><A HREF="javascript:reSort(2)">类型</A></TH>

<TH><A HREF="javascript:reSort(3)">大小</A></TH>

<TH><A HREF="javascript:reSort(4)">建立时间</A></TH>

<TH><A HREF="javascript:reSort(5)">上次修改时间</A></TH>

<TH><A HREF="javascript:reSort(6)">上次存取时间</A></TH>

</TR>

<%

For i = 0 To fileCount

Response.Write "<TR>" &vbNewLine

For j = 0 To UBound( theFiles(i) )

Response.Write " <TD>" &theFiles(i)(j) &"</TD>" &vbNewLine

Next

Response.Write "</TR>" &vbNewLine

Next

%>

</TABLE>

1.登陆后台Admin_Login.asp，进入样式管理-->管理-->点“代码”(你想要的样式)-->复制样式代码

2.将复制的代码粘贴到你所要ewebeditor出现的位置，更改路径和id即可。

以下是我自己测试过的，可以用

<!--#include file="../eWebEditor/Include/DeCode.asp"-->

<table width="500" height="300" border="0" cellpadding="0" cellspacing="0">

<form name="form1" method="post" action="" onSubmit="">

<tr>

<td><textarea name="newText" id="newText" style="width:0pxheight:0px"></textarea>

<IFRAME ID="eWebEditor1" SRC="../eWebEditor/ewebeditor.asp?id=newText&style=standard" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME>

</td>

</tr>

</form>

</table>

这个软件是给论坛管理员在网站后台使用的，如果你只是论坛的普通会员是没有办法用的。

如果你确实是论坛管理员，就看下面的

目录结构说明

=============================

admin ： 后台管理相关图片

buttonimage ： 按钮图片

css ： 样式文件

db : 数据库文件

dialog ： 对话框相关文件

example ： 例子

include ： 公用包含文件

sysimage ： 系统图片

uploadfile ： 默认的上传文件目录

安装

=============================

1、解开压缩包，直接拷贝到站点目录或建虚拟目录；

2、访问例子文件，看是否运行正常：

1) eWebEditor 标准调用和d窗调用示例：

http://127.0.0.1/ewebeditor/example/test1.asp

2) eWebEditor 远程文件上传示例：

http://127.0.0.1/ewebeditor/_example/test2.asp

3、如果显示正常信息，即表示安装已完成！

使用

=============================

1、后台管理

地址：http://127.0.0.1/ewebeditor/admin_default.asp

默认登录用户：admin

默认登录密码：admin

控制面板－添加/删除程序－添加/删除windows组件，里面有个INTERNET信息管理，在这里可以看到IIS服务，把它选中，然后点击确认安装，并根据提示放入系统安装盘，安装完毕就可以了。

使用方法：

在桌面上“我的电脑”图标，点击右键，选择“管理”，“服务”，INTERNET信息服务－默认WEB管理，点击“属性”，在属性里将主文件夹更改为你放ASP页面的文件夹，如果你的页面名用的是INDEX.ASP或其它名称，还需要在“文档”里添加对应的主页文件名。

祝你好运！

---