file.asp

来自「注意本程序是小偷代码,运用到某些类,卡巴会对INC.ASP误杀,其实并非木马,请」· ASP 代码 · 共 26 行

<%
function NB_ReadFile(FileName)
dim objFSO,objFile
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(server.mappath(FileName)) then
set objFile=objFSO.OpenTextFile(server.mappath(FileName),1,true)
NB_ReadFile=objFile.ReadAll
objFile.close
set objFile=nothing
else
NB_ReadFile=""
end if
set objFSO=nothing
end Function
Sub NB_WriteFile(FileName,strContent)
FileName="cache\"&FileName
dim objFSO,objFile
On Error Resume Next
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(server.mappath(FileName),2,True)
objFile.WriteLine (strContent)
objFile.close
Set objFile=Nothing
Set objFSO=Nothing
End Sub%>