回复：4.0SP5挂马补丁文件下载
将原来的相应代码改成
if Request.QueryString("Type") = "AddFolder" then
FildNameStr = Request("FolderName")
if FildNameStr <> "" then
If ReplaceExpChar(FildNameStr) = False Then
Response.Write "<script>alert('新的目录名不规范，请重设');window.location.href='FileManage.asp';</script>"
Response.End
End If
Path = Add_Root_Dir("/") & G_USERFILES_DIR & "/" & Fs_User.UserNumber
&"/"&FildNameStr Path = Server.MapPath(Path)
if p_FSO.FolderExists(Path) = True then
Response.Write("<script>alert('目录已经存在');
history.back(-1);</script>")
response.end
else
p_FSO.CreateFolder Path
end if
end if
'response.write path:response.end
strShowErr = "<li>创建目录成功</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../FileManage.asp")
Response.end
end if
