ASP高手来帮帮忙啊！解答下~~急用！！！

来源：百度知道 编辑：UC知道 时间：2024/05/04 21:50:51
1、设计页面计算1000以内的水仙花数（1^3+5^3+3^3=153）
2、设计一页面完成功能是：执行页面后自动删除指定目录下的扩展名是BAK的文件

解答下 帮帮忙啊！！急用啊！！

1、水仙花数
dim a,b,c,d,m,n,z
i=1
for i=100 to 999
a=mid(i,1,1)
b=mid(i,2,1)
c=mid(i,3,1)
d=a*a*a
m=b*b*b
n=c*c*c
z=d+m+n
if z=i then
response.write z & "<br>"
end if
next

2、删除文件
dir="目录名称" '设置你要操作的目录的相对路径
set fs=server.CreateObject("scripting.filesystemobject")
set lq2=fs.getfolder(server.mappath(dir))
for each name2 in lq2.files
if lcase(right(name2.name,3))="bak" then
fs.deletefile name2.name
end if
next

<% s=""
For i = 100 To 999
If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i
Then
s=s& i &","
end if
Next i %>

<%@ Language=VBScript %>
<%
function bianli(path)
dim fso 'fso对象
dim objFolder '文件夹对象
dim objSubFolders '子文件