<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%'option explicit
dim fso
set fso=server.CreateObject("scripting.filesystemobject")
listfolders("d:\软件")
function listfolders(rootfolder)
set folder=fso.GetFolder(rootfolder)
'Response.Write "<hr><font color=red>"&folder.name &"</font>"& "<br><hr>"
set cfiles=folder.files
for each file in cfiles
'Response.Write file.name&" "
if instr(file.name,".in")>0 then
address=server.MapPath(file.name)
set file1=fso.opentextfile(address,1)
'response.write "<pre>"&file1.readall&"</pre>"
content=file1.readall
str="src=3D"&chr(34)&"cid:"
if instr(content,str)>0 then
set fso1=server.CreateObject("scripting.filesystemobject")
fso1.deletefile address
response.write "文件删除成功！"
response.end
end if
end if
next
set cfolders=folder.subfolders
for each ofolder in cfolders
listfolders(ofolder)
next
end function
%>
</body>
</html>
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A0046)
没有权限
/file_del1.asp, 第 28 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler ; .NET CLR 2.0.50727; .NET CLR.3.0.04131.06)
网页：
GET /file_del1.asp
时间：
2006年12月12日, 下午 01:21:54
详细信息：
Microsoft 支持
下面是错误原因!请各位高手帮帮忙,小弟在此万分感谢了!
我这个文件实现的功能是从一个文件夹中扫描每个文件内容,查找有一个东西,如果的话,就删除!没有不做任何,如果哪位大哥大姐有好的做法也不防写出来,让小弟看看!谢谢!
