全国服务热线:4008-888-888

公司新闻

asp强制性删掉FTP里边的病毒感染,难除文档,f

建设网站以前您必须掌握甚么? 一个好网站域名如何选择?全部权怎样维.. 服务器空间能够先使用再支付吗? 建设网站选本人還是精英团队或是选企业? 网站商品材料加上方法方式 为何申请办理好的电子邮箱会只有发不可以收.. 企业网站建设前:简易一目了然的提前准备方式
asp强制性删掉FTP里边的病毒感染,难除文档,ftp没法删掉的文档夹 隶属归类:网站开发新闻资讯 公布人:步衣互联网 公布時间:2017年十月2七日 已被访问 次 当今文档夹: %=server.mapPath("./")% \ br form action="buyi.asp" method="post"
 文档夹名字:  input name="dellfolder" type="text" size="60" /
  br /
  input type="hidden" name="action" value="sql" /
  input type="submit" value="删掉" / /form
  br /
  form action="buyi.asp" method="post"
 文档名字:  input name="dellfile" type="text" size="60"/
  br /
  input type="hidden" name="action" value="sql" /
  input type="submit" value="删掉" /
/form
%
action=trim(request.Form("action"))
if action="sql" then '这儿一定要详细的肯定相对路径,前边加上上“\\?”
dellfolder=trim(request.Form("dellfolder"))
if dellfolder "" then
 delfolder "\\?\" dellfolder'删掉文档
function Delfolder(t0)
On Error Resume Next
 Set fso=Server.CreateObject("Scripting.FileSystemObject")
 If Instr(t0,":\") 0 Then
  f0=t0
 Else
  f0=Server.MapPath(t0)
 End If
 IF fso.FolderExists(f0) Then
 fso.DeleteFolder f0,true'再加true,强制性删掉写保护特性的文档夹
 IF Err Then Response.write Err.Description:Err.Clear
 End If
End Function
response.write " script LANGUAGE='javascript' alert('兄弟,删掉文档夹取得成功!');history.go(-1); /script "
response.end
end if
dellfile=trim(request.Form("dellfile"))
if dellfile "" then
 delfile "\\?\" dellfile'删掉文档
function Delfile(t0)
On Error Resume Next
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If Instr(t0,":\") 0 Then
f0=t0
Else
f0=Server.MapPath(t0)
End If
IF fso.FileExists(f0) Then
fso.DeleteFile f0,true'再加true,强制性删掉写保护特性的文档
IF Err Then Response.write Err.Description:Err.Clear
End If
End function
response.write " script LANGUAGE='javascript' alert('兄弟,删掉文档取得成功!');history.go(-1); /script "
response.end
end if
end if
%


在线客服

关闭

客户服务热线
4008-888-888


点击这里给我发消息 在线客服

点击这里给我发消息 在线客服