UC知道asp 语句，请高手帮忙解释下
来源：百度知道 编辑：UC知道 时间：2024/05/01 20:53:54
sub delfiles(struploadfiles)
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"
response.write"this.location.href='javascript:history.back();'</script>"
end sub
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"
response.write"this.location.href='javascript:history.back();'</script>"
end sub
sub delfiles(struploadfiles) 程序名,获取一个值叫struploadfiles
if struploadfiles="" then exit sub 如果是空的,推出程序
dim fso,arruploadfiles,i 定义这几个值
set fso = createobject("scripting.filesystemobject") 把fso建立成一个对象
fso.deletefile(server.mappath("" & struploadfiles)) 把这个对象从它的所在路径删除掉
set fso = nothing 清楚fso
response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"
response.write"this.location.href='javascript:history.back();'</script>" 显示一个消息成功删除和一个反回上一页的连接
end sub
满意就加点分吧