"Del" then
FoundErr=True
ErrMsg=ErrMsg & "参数不足!"
end if
if FoundErr=False then
if instr(ID,",")>0 then
dim idarr,i
idArr=split(ID)
for i = 0 to ubound(idArr)
call DelProduct(clng(idarr(i)))
next
else
call DelProduct(clng(ID))
end if
end if
if FoundErr=False then
call CloseConn()
response.Redirect "ProductManage.asp"
else
call CloseConn()
call WriteErrMsg()
end if
sub DelProduct(ID)
PurviewChecked=False
sqlDel="select * from Products where ID=" & CLng(ID)
Set rsDel= Server.CreateObject("ADODB.Recordset")
rsDel.open sqlDel,conn,1,3
if FoundErr=False then
if DelUpFiles="Yes" and ObjInstalled=True then
dim fso,strUploadFiles,arrUploadFiles
strUploadFiles=rsDel("UploadFiles") & ""
if strUploadFiles"" then
Set fso = CreateObject("Scripting.FileSystemObject")
if instr(strUploadFiles,"|")>1 then
arrUploadFiles=split(strUploadFiles,"|")
for i=0 to ubound(arrUploadFiles)
if fso.FileExists(server.MapPath("../" & arrUploadfiles(i))) then
fso.DeleteFile(server.MapPath("../" & arrUploadfiles(i)))
end if
next
else
if fso.FileExists(server.MapPath("../" & strUploadfiles)) then
fso.DeleteFile(server.MapPath("../" & strUploadfiles))
end if
end if
Set fso = nothing
end if
end if
rsDel.delete
rsDel.update
set rsDel=nothing
end if
end sub
%>
用网站程序分析器发现这个文件有危险,请问个文件程序有问题吗?
发现 ProductDel.asp 包含危险特征!安全评估: 危险度高!(未知)
描述:此文件包含木马执行特征.请检查是否合法. 序列:6
哪句有木马执行特征啊?
|