asp 语句,请高手帮忙解释下
发布网友
发布时间:2024-09-26 03:54
我来回答
共1个回答
热心网友
时间:2024-11-23 11:24
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
满意就加点分吧